Selection.Find (Word)

Retorna um objeto Find que contém o critério para uma operação de localização. Somente leitura.

A seleção será alterada se a operação de localização for bem-sucedida.

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