Macro to delete text in specific styles

macropod · #15 01-22-2019, 01:22 PM

You don't need a loop for this. Indeed you don't even need a macro - a simple Find/Replace would do. That said, as a macro, you could use:

Code:

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Text = ""
    .Replacement.Text = ""
    .Style = "Heading 3"
    .Wrap = wdFindContinue
    .Execute Replace:=wdReplaceAll
  End With
End With
Application.ScreenUpdating = True
End Sub

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