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


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




Recommended Word Productivity Tools

 

Kutools For Word - More Than 100 Advanced Features For Word, Save Your 50% Time

  • Complicated and repeated operations can be done one-time processing in seconds.
  • Insert multiple images across folders into Word document at once.
  • Merge and combine multiple Word files across folders into one with your desired order.
  • Split the current document into separate documents according to heading, section break or other criteria.
  • Convert files between Doc and Docx, Docx and PDF, collection of tools for common conversions and selection, and so on...
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 · 4 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