Поиск и подсвечивание одинаковых слов в документе

Вопрос от Александра:

Александр, увы, по двойному клику можно выделить только текущее слово, но никак не совершить дополнительные действия с текстом.

Возможно, вам подойдет следующий макрос, позволяющий искать в тексте документа выделенное слово и подсвечивать найденные вхождения текущим цветом. То есть, вы выделяете интересующее вас слово и запускаете макрос (например, с помощью кнопки на панели инструментов). Макрос раскрасит текущим цветом все найденные слова.

К сожалению, просто выделить найденные слова редактор с помощью VBA не позволяет (по-крайней мере, специалисты так прокомментировали). Существуют определенные ограничения...

Вот код макроса:

Sub selectWord()
'Подсвечивание цветом найденных слов
Dim rTmp As Range
Set rTmp = ActiveDocument.Range
With rTmp.Find
   .Text = Selection.Text
   .Replacement.Text = ""
   .Replacement.Highlight = True
   .Execute Replace:=wdReplaceAll
End With
End Sub

Неудобство этого макроса в том, что он подсвечивает цветом найденные слова. И для того, чтобы убрать цветовое выделение, нужно либо выделить все и убрать выделение цветом (кнопка на панели инструментов), либо использовать похожий макрос:

Sub unSelectWord()
'Снятие выделение цветом
With Selection.Find
    .ClearFormatting
    .Highlight = True
    .Replacement.ClearFormatting
    .Replacement.Highlight = False
    .Text = ""
    .Replacement.Text = ""
    .Wrap = wdFindContinue
    .Format = True
    .Execute Replace:=wdReplaceAll
End With
End Sub

Если вы не знаете, как подключить к документу и применить этот макрос, изучите следующие заметки с сайта:

Создание макроса из готового кода

Автоматическая запись макроса