find := "x"  
 

 word := ComObjActive("Word.Application") 
 
 word.Selection.Find.ClearFormatting  
 
 word.Selection.Find.Replacement.ClearFormatting  
 
 word.Selection.Find.Execute(find, 1, ComObjMissing(), ComObjMissing(), ComObjMissing(), ComObjMissing(), ComObjMissing(), 1, ComObjMissing(), "hello", 2)