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.

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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