跳至主要内容

如何删除Word中的所有空段落?

Author: Sun Last Modified: 2025-07-31

Word文档中的空段落会让文档显得杂乱且不专业。这些多余的空白通常是由格式问题或从其他来源复制文本时产生的。手动逐一删除每个空段落可能会非常繁琐,尤其是在长文档中。幸运的是,有一些高效的方法可以快速删除文档中的所有空段落。

在本教程中,我们将向您展示如何在Word中清除这些空段落,让您的文档更加整洁、易于阅读。

推荐的 Word 生产力工具

Kutools for Word:集成 AI 🤖,超过 100 个高级功能,节省您 50% 的文档处理时间。下载地址

Office Tab:为 Word(及其他 Office 工具)引入类似浏览器的标签页,简化多文档导航。下载地址


使用“查找和替换”功能删除所有空段落

逐一手动删除空段落可能很繁琐,但Word的“查找和替换”功能简化了这一过程:

  1. 点击“开始”选项卡下的“替换”按钮打开“查找和替换”工具,或者按快捷键Ctrl + H
  2. 点击 更多>> 按钮以显示更多选项。

    Find and Replace dialog box with More button highlighted

  3. 将光标放置在 查找内容 框中,然后选择 段落标记特殊格式 下拉菜单中。

    Paragraph Mark selected from the Special drop-down list

  4. 选择“段落标记”后,“^p”符号将出现在“查找内容”框中。
  5. 再次复制“^p”符号到“查找内容”框中,使其变为“^p^p”,然后点击“全部替换”以删除空段落。

注意:使用“^p”会删除所有段落标记,可能导致文本合并为一个段落。“^p^p”则只删除空段落,保留文本的适当分隔。

Office Tab:为 Word、Excel、PowerPoint 等带来选项卡式界面…
Navigate through documents using Office Tab

使用Kutools for Word删除所有空段落

使用Word内置功能删除所有空段落需要多个步骤,而宏对许多用户来说又过于复杂。幸运的是,Kutools for Word提供了一种快速简便的方法来删除文档中的所有空段落。

Kutools for Word内置 AI 🤖,提供超过 100 种实用功能,助您简化任务。

要删除空段落:

  • 整个文档:点击 Kutools > 段落 > 清除选择范围内的所有空段落
  • 特定部分:首先选择该部分,然后点击 Kutools > 段落 > 清除选择范围内的所有空段落.

    Remove All Empty Paragraph Marks in Selected Ranges option on the Kutools tab on the ribbon

点击“清除空段落”后,所选范围或整个文档中的所有空段落都将被删除。

Document with empty paragraphs

Arrow

Document with empty paragraphs removed

Kutools for Word 是终极的 Word 插件,能够简化您的工作并提升文档处理技能。立即获取!

使用VBA删除所有空段落

如果您更喜欢使用宏,以下VBA代码可以帮助您删除Word文档中的所有空段落。请按照以下步骤操作:

  1. Alt + F11 打开 Microsoft Visual Basic for Applications 窗口。
  2. 点击 模块插入 选项卡中。
    Module options selected from the Insert dropdown
  3. 将以下VBA代码复制并粘贴到 模块 窗口中。
    Sub Deleemptyparagraphs()
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
    .Text = "^p^p"
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchAllWordForms = False
    .MatchSoundsLike = False
    .MatchWildcards = False
    .MatchFuzzy = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    End Sub
  4. 点击 运行 按钮 Run button 或按 F5 执行脚本。

最佳Office办公效率工具

Kutools for Word -通过超过100项强大功能全面提升您的Word体验!

🤖 Kutools AI功能AI助手 / 实时助手 / 超级润色(保留格式)/ 超级翻译(保留格式)/ AI遮挡 / AI校正……

📘 文档大师翻页 / 文档合并 /选区多格式导出(PDF/TXT/DOC/HTML等)/ 批量转换为PDF……

内容编辑跨多个文件批量查找与替换 / 全部图片大小调整 / 翻转表格行和列 / 表格转文本……

🧹轻松清理:一扫而空多余空格 / 分节符 / 文本框 / 超链接 / 更多清除工具请前往清除所有功能组……

创意插入:插入千位分隔符 /复选框 /选项按钮 / 二维码 / 条形码 / 多张图片 / 更多请探索插入功能组……

🔍 精准选取:精准锁定指定页码 / 表格 / 形状 / 标题段落 /通过更多 选取 功能提升导航体验……

明星增强一键定位任何位置 / 自动插入重复文本 / 在文档窗口间快速切换 /11 转换工具……

🌍 支持40+种语言:Kutools支持您的本地语言 — 英语、西班牙语、德语、法语、中文等40多种语言均适用!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 想体验这些强大功能?立即下载Kutools for Word!🚀
 

最佳Office办公效率工具

Kutools for Word - 100+ Word工具