SetAllFuzzyOptions Method Example

This example activates all nonspecific options before executing a search in the selected range. If the word "" is formatted as bold, the entire paragraph is selected and copied to the Clipboard.

With Selection.Find
    .ClearFormatting
    .SetAllFuzzyOptions
    .Font.Bold = True
    .Execute FindText:="", Format:=True, Forward:=True
    If .Found = True Then
        .Parent.Expand Unit:=wdParagraph
        .Parent.Copy
    End If
End With