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