Microsoft Office Forums - View Single Post - [Solved] Enclose All Instances of a Specific Custom Style in Brackets

Guessed · 05-28-2021, 03:22 PM

This gets rid of EVERY bracket in that style - including ones that the earlier macro didn't put in.

Code:

Sub RemoveBracketsUPDATED()
  With Selection.Find
    .ClearFormatting
    .Style = ActiveDocument.Styles("Normal")
    .Text = "[\(\)]{1}"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .MatchWildcards = True
    .Format = True
    .Execute Replace:=wdReplaceAll
  End With
End Sub