Selection.Find (Word)

Renvoie un objet Find qui contient les critères spécifiés pour une recherche.

La sélection est modifiée si l'opération de recherche est réussie.

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