如何在 Word 中选择所有标题段落？

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

在处理 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，内置 AI 🤖，提供超过 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 代码针对二级标题。如果需要选择其他级别的标题，请将 wdStyleHeading2 替换为相应的标题样式。