[推荐方案]高效解决方案
勾选通配符
查找内容: ^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