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)
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)