Microsoft Office Forums - View Single Post - [Solved] Macro to select Headings of ALL styles

shistris03 · 06-15-2021, 12:36 PM

Hello,

i searched other threads but couldn't find the solution. no experience in vba.

i wish to select all headings with multiple styles all at once and then delete them.

any vba code on this?

i found this macro selecting only heading 1 style. How to add additional styles in the code?

Code:

Sub SelectHeadings()
'
' SelectHeadings Macro
'
'
Dim tempTable As Paragraph
Application.ScreenUpdating = False
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
For Each tempTable In ActiveDocument.Paragraphs
  'Debug.Print tempTable.Range.Style & " " & wdStyleHeading1
  If tempTable.Style = ActiveDocument.Styles(wdStyleHeading1) Then
    'Debug.Print "aaa"
    tempTable.Range.Editors.Add wdEditorEveryone
  End If
Next
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
End Sub