Macro to delete text in specific styles

macropod · #2 10-23-2014, 12:29 PM

Try:

Code:

Sub DeleteStyleText()
Application.ScreenUpdating = False
Dim strStyles As String, i As Long
strStyles = strStyles & "Style1,Style2,Style3,Style4,Style5,"
strStyles = strStyles & "Style6,Style7,Style8,Style9,Style10,"
strStyles = strStyles & "Style11,Style12,Style13,Style14,Style15"
With ActiveDocument.Content.Find
  .ClearFormatting
  .Format = True
  .Text = ""
  .Replacement.Text = ""
  .Wrap = wdFindContinue
  For i = 0 To UBound(Split(strStyles, ","))
    .Style = Split(strStyles, ",")(i)
    .Execute Replace:=wdReplaceAll
  Next i
End With
Application.ScreenUpdating = True
End Sub

where Style1 - Style15 are your actual Style names. You can use more Styles, or less; simply separate all the Style names with a comma.

PS: When posting code, please use the code tags - they're indicated by the # symbol on the posting menu.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Delete specific text	Jackson	Word VBA	16	12-06-2019 08:24 PM
Macro to change specific text styles	ljd108	Word VBA	3	10-22-2014 03:19 PM
Delete specific mass text on document	JadeRisley	Word	4	07-17-2013 11:11 PM
Using macro to delete styles	fogharty	Word	1	10-10-2011 03:42 PM
Need help extracting specific text from one doument to another with macro/VBA.	zsmithku	Word	1	04-15-2011 03:46 PM