ClearFormatting Method Example
This example clears formatting from the find or replace criteria before replacing the word "Inc." with "incorporated" throughout the active document.
Set myRange = ActiveDocument.Content
With myRange.Find
.ClearFormatting
.Replacement.ClearFormatting
.MatchWholeWord = True
.Execute FindText:="Inc.", _
ReplaceWith:="incorporated", Replace:=wdReplaceAll
End With
This example removes formatting from the find criteria before searching through the selection. If the word "Hello" with bold formatting is found, the entire paragraph is selected and copied to the Clipboard.
With Selection.Find
.ClearFormatting
.Font.Bold = True
.Execute FindText:="Hello", Format:=True, Forward:=True
If .Found = True Then
.Parent.Expand Unit:=wdParagraph
.Parent.Copy
End If
End With