Hi Avkokin,

like that:

Sub Test6()
Dim rTmp As Range
Set rTmp = ActiveDocument.Range
Options.DefaultHighlightColorIndex = wdRed
With rTmp.Find
  .Text = "lazy"
  .Replacement.Text = "lazy"
  .Replacement.Highlight = True
  .Execute Replace:=wdReplaceAll
End With
End Sub

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

Do you want to *highlight* ie with a colour, all items found? In which case

Sub ReplaceExample()
Dim sFindText As String
sFindText = InputBox("Find what?")
   With Selection
       .HomeKey Unit:=wdStory
       With .Find
           .ClearFormatting
           .Replacement.ClearFormatting
'**********************
           .Text = sFindText
           .Replacement.Text = "^&"
           .Replacement.Highlight = True
'**********************
           .Forward = True
           .Wrap = wdFindContinue
           .Format = True
           .MatchCase = False
           .MatchWholeWord = False
           .MatchAllWordForms = False
           .MatchSoundsLike = False
           .MatchWildcards = False
           .Execute replace:=wdReplaceAll
       End With
   End With
End Sub

or

Do you want to *select* all items found? The Find dialog does this, so why
do you need to re-invent the wheel? If you want to process the found items
then a macro would do so individually.