Macro to select Headings of ALL styles

macropod · #1 06-16-2021, 01:26 AM

For example:

Code:

Sub DeleteHeadings()
Application.ScreenUpdating = False
Dim i As Long
With ActiveDocument.Content.Find
  .ClearFormatting
  .Format = True
  .Text = "^12"
  .Replacement.Text = "^&"
  .Replacement.Style = wdStyleNormal
  .Wrap = wdFindContinue
  .Replacement.ClearFormatting
  .Text = ""
  .Replacement.Text = ""
  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