MatchAllWordForms Property Example
This example selects the next form of the word "sit" found in the selection or displays a message box if a form of "sit" isn't found.
With Selection.Find
.MatchAllWordForms = True
.Text = "sit"
.Execute Format:=False
If .Found = False Then MsgBox "Not Found"
End With