Enclose All Instances of a Specific Custom Style in Brackets

Matt C · #1 05-28-2021, 04:38 AM

UPDATE:

Sorry, I made some obvious minor errors with the above code. Here's my own tweaking which now works. However, it's a bit clunky as it repeats identical blocks of code to remove the "(" and ")" characters. Is there any way of slimming it down?

Quote:

Sub RemoveBracketsUPDATED()

Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Custom Style")
With Selection.Find
.Text = "("
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue

.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting
Selection.Find.Style = ActiveDocument.Styles("Custom Style")
With Selection.Find
.Text = ")"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
find and delet all text within brackets and the brackets themselves	wrdy	Word	2	08-03-2017 06:55 PM
Word forces use of a specific style	C_Hawk1996	Word	1	04-13-2016 05:35 AM
How to set the left indent in a specific style.	OfficeBoy95	Word	2	05-12-2014 06:31 PM
How do I add a custom style to tab button?	kennethc	Word	1	04-11-2014 05:25 PM
How to set style automatically for specific texts	ragesz	Word	2	07-25-2013 07:08 AM