MatchSoundsLike Property Example

This example selects the next word that sounds like the word "fun" (for instance, "funny") in the selection.

With Selection.Find
    .ClearFormatting
    .Text = "fun"
    .MatchFuzzy = False
    .MatchSoundsLike = True
    .Execute Format:=False, Forward:=True, Wrap:=wdFindContinue
End With