Skip to main content

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

Recommended Productivity Tools for Word

Kutools for Word: Integrating AI 🤖, over 100 advanced features save 50% of your document handling time.Free Download

Office Tab: Introduces the browser-like tabs to Word (and other Office tools), simplifying multi-document navigation.Free Download


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

Office Tab: Brings tabbed interfaces to Word, Excel, PowerPoint...
ot word middle ad 100
Enhance your workflow now.      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


Best Office Productivity Tools

Kutools for Word - Elevate Your Word Experience with Over 100 Remarkable Features!

🤖 Kutools AI Assistant: Transform your writing with AI - Generate Content  /  Rewrite Text  /  Summarize Documents  /  Inquire for Information based on Document, all within Word

📘 Document Mastery: Split Pages  /  Merge Documents  /  Export Selection in Various Formats (PDF/TXT/DOC/HTML...)  /  Batch Convert to PDF  /  Export Pages as Images  /  Print Multiple Files at once...

Contents Editing: Batch Find and Replace across Multiple Files  /  Resize All Pictures  /  Transpose Table Rows and Columns  /  Convert Table to Text...

🧹 Effortless Clean: Sweap away Extra Spaces  /  Section Breaks  /  All Headers  /  Text Boxes  /  Hyperlinks  /  For more removing tools, head to our Remove Group...

Creative Inserts: Insert Thousand Separators  /  Check Boxes  /  Radio Buttons  /  QR Code  /  Barcode  /  Diagonal Line Table  /  Equation Caption  /  Image Caption  /  Table Caption  /  Multiple Pictures  /  Discover more in the Insert Group...

🔍 Precision Selections: Pinpoint specific pages  /  tables  /  shapes  /  heading paragraphs  /  Enhance navigation with more Select features...

Star Enhancements: Navigate swiftly to any location  /  auto-insert repetitive text  /  seamlessly toggle between document windows  /  11 Conversion Tools...

👉 Want to try these features? Kutools for Word offers a 60-day free trial, with no limitations! 🚀
Free Download     Read More     Buy Now
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This is very useful definitely, thank you very much. Is there a way to add bold text in the selection? what would be the best way to change line 7? I want to get all headings and also all keywords in normal text that are marked bold in the text.
This comment was minimized by the moderator on the site
Thanks, this is very useful. I wanted to select all instances of all Headings at once, so I changed line 7 to this:
If tempTable.OutlineLevel <> wdOutlineLevelBodyText Then
This comment was minimized by the moderator on the site
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
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations