Поиск слова, встречающегося в каждом предложении текста - VBA

Формулировка задачи:

Дан файл, содержащий текст на русском языке. Найти слово, встречающееся в каждом предложении, или сообщить, что такого слова нет. помогите, пожалуйста. желательно код с комментариями

Решение задачи: «Поиск слова, встречающегося в каждом предложении текста»

textual
                            Листинг программы 
                        

                            Sub tt()
    Dim pr
    With CreateObject("scripting.dictionary")
        For Each pr In ActiveDocument.Sentences
            .Item(pr.Text) = .Item(pr.Text) + 1
        Next
        For Each pr In ActiveDocument.Sentences
            If .Item(pr.Text) > 1 Then pr.Font.ColorIndex = wdRed
        Next
    End With
End Sub
                        