Cookies help us deliver our services. By using our services, you agree to our use of cookies.
Tip: Other languages are Google-Translated. You can visit the English version of this link.
Log in
x
or
x
x
Register
x

or

How to select all heading paragraphs in Word?

Sometimes we need to delete or edit all heading paragraphs. The first step is to select all heading paragraphs. This tutorial will teach you following methods to how to select all heading paragraphs.

Select all heading paragraphs with the Find and Replace

Select all heading paragraphs with the VBA

Select all heading paragraphs with the Kutool for Word

Kutools for Word: Add 100 New Advanced Features to Word 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office Tab: Enable Tabbed Editing and Browsing in Office, Just Like Chrome, Firefox, IE 8/9/10.
Classic Menu for Office: Bring Old Look of Office 2003 Back to Office 2007, 2010, 2013, 2016 and 2019.

arrow blue right bubbleSelect all heading paragraphs with the Find and Replace

Hot
Amazing! Use Efficient Tabs in Word (Office) like Chrome, Firefox and New Internet Explorer!

Read more Free download

The Find and Replace function in word is the most commonly way to select all heading paragraphs.

Step 1: Click Home >Find and select the Advance Find mark

Step 2:Click More button to bring up more Search Options;

doc-select-heading-paragraphs-1

Step 3: Click Format mark pop up options below.

doc-select-heading-paragraphs-2

Step 4: Click the Style to select the heading style you have used in Find what style dialog box.

doc-select-heading-paragraphs-3

Note: this method  can only select one heading paragraph each time. It is time consuming to edit all heading paragraphs.


arrow blue right bubbleSelect all heading paragraphs with the VBA

Alternatively we can use the VBA to select all headings paragraphs.

Step 1: Press “Alt-F11” to open the Microsoft Visual Basic for Application window;

Step 2: Click Module on the Insert tab, copy and paste the following VBA code into the Module window;

Step 3: Then click Rundoc-reverse-sign-6 button to apply the VBA.

The VBA code to select all heading paragraphs:

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

Note : this method takes Heading2 as an example. Heading2 can change to another heading styles.


arrow blue right bubbleSelect all heading paragraphs with the Kutool for Word

Is there an easier way to select all heading paragraphs? Kutool for Word is your best choice. After you have installed the Kutool for Word, you can select all headings (heading paragraphs) with one click.

Kutools for Word, a handy add-in, includes groups of tools to ease your work and enhance your ability of processing word document. Free Trial for 45 days! Get It Now!

Click Kutools >Paragraph Select on the Paragraph Select group. See screenshot

doc-select-heading-paragraphs-4

For more detailed information about Select Heading Paragraphs of Kutools for Word, please visit: Paragraph Select feature description




Kutools for Word

More than 100 Advanced Functions for Word 2003, 2007, 2010, 2013, 2016 and 2019

shot-kutools-700-225-kte

More Features  |  Free Download  |  Only $39.00 for hundreds of functions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Bob Flisser · 3 years ago
    Thanks, this is very useful. I wanted to select all instances of Heading1 and Heading2 at once, so I changed line 7 to this:

    If (tempTable.Style = ActiveDocument.Styles(wdStyleHeading1)) Or (tempTable.Style = ActiveDocument.Styles(wdStyleHeading2)) Then