Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = " SEARCH TEXT HERE "
    .MatchWildcards = False
    .Replacement.Text = ""
    .Wrap = wdFindStop
    .Forward = True
End With
Selection.Find.Execute ' Replace:=wdReplaceAll