Макрос для поиска и выделения слов

[ann-m]

что не так??
Sub макрос()
'
Dim rTmp As Range
Set rTmp = ActiveDocument.Range
With Selection.Find
.Text = Selection.Text
.Replacement.Text = "не более"
.Replacement.Highlight = True
.Replacement.Font.Color = wdColorPink
ment = Selection.Font.Color
.Replacement.Font.Color = ment
.Wrap = wdFindAsk
.Execute Replace:=wdReplaceAll
End With
End Sub

[Sasha_Smirnov]

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

Dim rTmp As Range
Set rTmp = ActiveDocument.Range

Испытал (без вышеуказанного куска).

Всё работает: пишет "не более" на месте курсора (т. е. в Selection).

Если изменить выделение (Selection), то будет и красить. А что надо-то?