This example replaces the next occurrence of the word "hi" in the selection with "hello."
With Selection.Find
.Forward = True
.Text = "hi"
.ClearFormatting
.Replacement.Text = "hello"
.Execute Replace:=wdReplaceOne
End With
The following example searches backward through the document for the word "Microsoft." If the word is found, it's automatically selected.
Selection.Collapse Direction:=wdCollapseStart
With Selection.Find
.Forward = False
.ClearFormatting
.MatchWholeWord = True
.MatchCase = False
.Wrap = wdFindContinue
.Execute FindText:="Microsoft"
End With