如何在 Word 中選取所有標題段落？

Author: Amanda Li Last Modified: 2025-08-06

在處理 Word 文件時，您可能需要一次性編輯或刪除所有標題段落。手動逐一選取每個標題可能會非常繁瑣，尤其是在較長的文件中。本教程介紹了三種高效的方法，可快速選取 Word 中的所有標題段落。

使用「查找和替換」選取所有標題段落

使用 Kutools for Word 選取所有標題段落

使用 VBA 選取所有標題段落

使用「查找和替換」選取所有標題段落

Word 中的「查找和替換」功能提供了一種簡單的方法來定位並選取標題段落。

點擊「主頁」>「查找」選擇「高級查找」。
點擊「更多」按鈕以展開搜索選項。
點擊「格式」按鈕以顯示更多選項，然後選擇「樣式」。
在「查找樣式」對話框中選擇要查找的標題樣式。
點擊「查找位置」>「主文檔」以選取所有找到的標題樣式。

Office Tab：為 Word、Excel、PowerPoint... 帶來分頁介面

Navigate through documents using Office Tab

立即提升您的工作流程。了解更多關於 Office Tab 的資訊 免費下載

使用 Kutools for Word 選取所有標題段落

如果您偏好一種無需麻煩的方法，Kutools for Word 可讓您通過單擊選取所有標題段落。安裝後，請按照以下步驟操作：

Kutools for Word，內建人工智慧 🤖，提供超過 100 種實用功能，簡化您的工作流程。

立即下載

點擊「Kutools」>「選取段落」>「選取標題段落」。

有關 Kutools for Word 的段落選取功能的更多詳細信息，請訪問我們的「選取各類段落」頁面。

Kutools for Word 是終極的 Word 增益工具，能夠簡化您的工作並提升文檔處理技能。立即獲取！

使用 VBA 選取所有標題段落

為了更快捷的方式，您可以使用 VBA 自動選取文檔中的所有標題段落。

按下 Alt + F11 打開 Microsoft Visual Basic for Applications (VBA) 編輯器。

點擊模組在插入標籤下，然後複製並粘貼以下 VBA 代碼到模組窗口中。

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

注意：此 VBA 代碼針對標題 2。如果需要選取其他標題級別，請將 wdStyleHeading2 替換為相應的標題樣式。