如何批量删除word文档里的空白行

［推荐方案］高效解决方案

勾选通配符

查找内容： ^13{2,}

替换为： ^p

全部替换

此替换是把2至255个相邻的段落标记替换为一个，也就是删除多余的段落标记（也就是空行）！

[说明]

重复几次（一般一次是不是就够了吧？哪有连续256个空白行的？），直到替换处数为1，因为最后一个空行无法如此删除，点击“查找下一处”，过去看看，手工删吧。

在做此替换之前，最好先做一下准备工作,这样会删的更彻底：

点击：编辑－替换

查找内容： ^w^13

替换为： ^p

全部替换

此替换是把段落标记前面多余的空白部分删除！

再次点击：编辑－替换

查找内容： ^13^w

替换为： ^p

全部替换

此替换是把段落开始处多余的空白部分删除！

如果空行不是太多，也可以这样解决：

点击：编辑－替换

查找内容： ^w^13

替换为： ^13

全部替换

此替换是把段落标记前面多余的空格删除！

然后：

查找内容： ^13^13

替换为： ^p

全部替换

此替换是把两个相邻的段落标记替换为一个，也就是删除多余的段落标记（也就是空行）！

[说明]

^w指空白区域（包括空格），^13表示段落标记，也可以用^p表示。

重复几次，直到替换处数为1，因为最后一个空行无法如此删除，点击“查找下一处”，过去看看，手工

删吧。

 

 

 

或者用此宏清除，效率更高！

Sub blankdel()
For Each i In ActiveDocument.Paragraphs
a = i.Range.End
b = i.Range.Start
If a - b = 1 Then
i.Range.Delete
m = m + 1
End If
Next i
MsgBox "共删除空白段落" & m & "个"
End Sub