如何在 Word 中快速选中所有空白段落？

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

在处理包含大量空白或空段落的文档时，您可能希望删除这些空白段落，以避免不必要的打印浪费。在删除之前，需先选中所有空白段落。本文将为您介绍三种方法，助您在 Word 中快速选中所有空白段落。

逐一选择所有空白段落

通过 Kutools for Word 选中所有空白段落

使用 VBA 选中所有空白段落

逐一选择所有空白段落

您可以手动逐一选中所有空白段落，但此方法仅适用于空白段落数量较少的情况。

单击空白段落以选中该段落。
按住 Ctrl 键，继续选择其他空白段落。

注意：如果文档中包含大量空白段落（如超过 100 个），建议使用以下方法，实现更快速高效的选择。

通过 Kutools for Word 选中所有空白段落

如果您正在寻找更简单、更高效的方法在 Word 中选中所有空白段落，Kutools for Word 为您提供一键式解决方案。使用此功能，无需手动查找，即可快速选中全部空白段落。

Kutools for Word，搭载 AI 功能🤖，提供超过 100 项实用功能，助您轻松完成各类任务。

立即下载

依次点击 Kutools > 段落 > 选取空段落。

注意：如需仅在文档的特定部分选取空段落，请先选中该部分，再应用此工具。

如需了解选取空段落在 Kutools for Word 中的更多详细信息，请访问我们的 Word 中轻松选中各类段落页面。

使用 VBA 选中所有空白段落

您无需手动选择空段落，VBA 宏即可自动完成整个流程。

在 Word 中按下 Alt + F11 即可打开 VBA 编辑器。

点击模块，在插入选项卡下，然后将下方的 VBA 代码复制粘贴到模块窗口中。

Sub SelectBlankParagraphs()
    Dim tempParagraph As Paragraph
    Application.ScreenUpdating = False
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    For Each tempParagraph In ActiveDocument.Paragraphs
        If Len(tempParagraph.Range.Text) = 1 Then tempParagraph.Range.Editors.Add wdEditorEveryone
    Next
    ActiveDocument.SelectAllEditableRanges wdEditorEveryone
    ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
    Application.ScreenUpdating = True
End Sub