Selection.Find (Word)

Returns a Find object that contains the criteria for a find operation.

The selection is changed if the find operation is successful.

With Selection.Find 
 .Forward = True 
 .ClearFormatting 
 .MatchWholeWord = True 
 .MatchCase = False 
 .Wrap = wdFindContinue 
 .Execute FindText:="Microsoft" 
End With