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

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

当处理包含许多空白段落的文档时，您可能希望删除它们以避免不必要的打印浪费。在删除之前，您需要先选择所有空白段落。本教程介绍了三种快速选择 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 宏自动执行选择空白段落的过程，而不是手动选择它们。

按 Alt + F11 打开 Word 中的 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