Macro to select Headings of ALL styles

macropod · #2 06-15-2021, 03:04 PM

Each heading can have only one paragraph Style. If you want to delete all headings, simply use Find/Replace to delete all content in each heading Style. That would be way quicker than looping through all paragraphs and testing them. For example:

Code:

Sub DeleteHeadings()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument.Content.Find
  .ClearFormatting
  .Format = True
  .Text = ""
  .Replacement.Text = ""
  .Wrap = wdFindContinue
  For i = 1 To 9
    .Style = "Heading " & i
    .Execute Replace:=wdReplaceAll
  Next i
End With
Application.ScreenUpdating = True
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Unable to get Styles to move headings.	Balliol	Word Tables	0	10-12-2019 01:24 PM
Applied Styles to Headings in Multi-Level List; now ALL second level headings are 1.XX	NNL	Word	1	08-09-2017 02:52 PM
Help with Styles - What is +Body and +Headings	spdoffice	Word	8	12-18-2016 11:15 PM
Creating new styles and applying numbering to headings - numbering not following from headings	Fuzzyflo	Word	1	07-26-2016 04:34 AM
Headings and Styles.	Balliol	Word	2	07-26-2013 12:41 AM