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

作者Amanda Li修改日期2025-02-13

在处理 Word 文档时，您可能需要一次性编辑或删除所有标题段落。在长文档中，逐一手动选择每个标题既耗时又繁琐。本教程将为您介绍三种高效方法，助您快速选中 Word 中的所有标题段落。

通过查找和替换选中所有标题段落

借助 Word 版 Kutool 选中所有标题段落

用 VBA 快速选中所有标题段落

通过查找和替换选中所有标题段落

Word 的查找和替换功能，助您轻松定位并选中标题段落。

单击开始 > 查找和选择中的高级查找。
单击更多按钮，展开搜索选项。
单击格式按钮，查看更多选项后，选择样式。
在查找样式对话框中，选择您需要查找的标题样式。
单击在以下范围查找 > 主文档，即可选中所有出现的标题样式。

Office Tab：为 Word、Excel、PowerPoint 带来标签式界面……

立即提升您的工作流程。 了解更多 Office Tab 详情立即免费下载

借助 Word 版 Kutool 选中所有标题段落

如果您想要更省心的方法，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 代码适用于 标题 2. 如需选择其他标题级别，请将 wdStyleHeading 2 替换为对应的标题样式。