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

Author: Amanda Li Last Modified: 2025-05-12

在處理 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 替換為相應的標題樣式。