在WPS文字中，那些隐藏的空段落往往比想象中更令人头疼——它们并不只是多按几次Delete键就能解决。这些空段常常隐藏在正文之间、表格注释里，或是从网页复制过来的内容缝隙中，手动清理不仅容易遗漏，还可能不小心把前后不相关的段落粘在一起。其实，使用宏进行批量清理的逻辑非常简单：先识别出文档中所有多余的连续段落标记，再让WPS自动循环处理。对于几十页甚至上百页的长文档，这种方法特别省时省力。
动手之前，务必先将文档另存一份备份，尤其是合同、论文、公司制度等正式文件。宏批量改动的范围可能很大，即使能撤销也不一定能完全恢复，保留原文件才是最稳妥的做法。
先打开段落标记，看清空段位置
打开WPS文字中的目标文档，先显示段落标记。所有回车和空白段落都会以标记形式直接显示出来，一眼就能看出这些空段是普通回车敲出来的，还是混入了分页符、分节符，或者表格后面自带的固定空行。这一步判断非常关键——宏只适合处理普通的空白段落，千万不要上来就乱跑代码，以免把整个文档的分页结构搞乱。
如果你看到一串连在一起的段落标记，中间没有任何正文，这就是需要重点清理的对象。如果空白位置夹着“分页符”或“分节符”，建议手动调整，不要交给宏处理。
用查找替换先确认清理口径
正式写宏之前，可以先打开查找替换窗口，尝试用特殊格式匹配段落标记。这一步不是让你直接删除内容，而是先摸清文档中空段的实际构成——很多从网页、PDF或旧版Word里复制过来的内容，看似是空段，里面其实混入了空格、制表符和多个回车。
如果空段全是连续回车敲出来的，用宏处理最省心。如果不少空段里还藏着空格，后面提供的代码会自动把只有空格的段落也删掉，不会留下残留。
开启开发工具并进入宏编辑器
接下来，找到WPS文字顶部菜单栏的“开发工具”，或者直接寻找宏的入口。如果界面上没有显示“开发工具”，需要先到设置选项中将这个功能调出来。进入宏编辑器后，新建一个宏模块，用于存放后续批量删除空白段落的代码。
宏编辑器刚打开时，不要直接在正式文档上运行第一次测试。建议先复制一小段带空白段落的内容到新的测试文档中，先跑一遍确认效果无误，再切换回原文档操作。
粘贴删除空白段落的宏代码
在新建的模块中粘贴以下代码。它会从文档末尾向开头倒着检查每一个段落，将仅包含回车、空格、全角空格、制表符的空段全部删除。从后往前处理，是为了避免删除某一段后打乱后面所有段落的序号，导致漏判。
Sub DeleteBlankParagraphs()
Dim i As Long
Dim txt As String
For i = ActiveDocument.Paragraphs.Count To 1 Step -1
txt = ActiveDocument.Paragraphs(i).Range.Text
txt = Replace(txt, Chr(13), "")
txt = Replace(txt, Chr(9), "")
txt = Replace(txt, " ", "")
txt = Replace(txt, ChrW(12288), "")
If Len(txt) = 0 Then
ActiveDocument.Paragraphs(i).Range.Delete
End If
Next i
End Sub如果你的文档中插入了不少表格，运行代码之前先检查表格后面是否有必须保留的说明空行。宏只会按普通规则判断段落是否为空，表格周边的排版留白最好提前单独检查，避免把特意留出的间隔也一并删掉。
运行宏并复查清理结果
切换回WPS文字界面运行这个宏，处理完成后先不要急着保存。打开段落标记，将正文的开头、中间、结尾都过一遍，重点检查标题前后、表格附近、分页位置、引用说明旁边是否有被误删的内容。只要正文之间没有多余的连续空段，基本上就达到了批量清理的效果。
如果只是偶尔处理几页的短文档，直接使用WPS自带的文字排版工具或查找替换功能就能解决；但面对长文档、空段来源复杂的情况，用宏批量处理效率要高得多。记住核心原则：先备份，先用小段内容测试，确认效果无误后再处理整篇文档。
