word中如何批量删除多余的行

word中如何批量删除多余的行

批量删除方式，就好比 文字替换的那样方法：
空行，可能是段落标记（^p），也可能是换行符（^l），所以：
编辑 → 替换
查找内容：[^11^13]{1,}
替 换 为：^p
高级 → √使用通配符 → 全部替换 即可。
'补充----------
看了文档，原来所谓的“空行”还有超链接，用正常方法难以处理，所以建议用宏来实现。宏代码：Sub DelBlaPar()
Dim Par As Paragraph
With ActiveDocument.Content.Find
.ClearFormatting
.Replacement.ClearFormatting
.Execute findtext:="^l", replacewith:="^p", MatchWildcards:=True,
Replace:=wdReplaceAllEnd WithFor Each Par In ActiveDocument.Paragraphs
If Len(Par.Range) < 2 Then
Par.Range.DeleteEnd IfNextEnd Sub
代码使用方法：
1、先安装OFFICE2003（完全安装或者一定要安装宏控件）
2、打开文档之后 -工具 → 宏 → VB 编辑器；或者直接按 Alt + F11 也可以进入 VB 编辑器；3、找到当前文档名称下面的 ThisDocument，双击这个 ThisDocument；
4、然后将代码粘贴在右边的空白窗口里面；
5、光标定位到代码里面，就是代码中间的任意位置；
6、然后单击上面的执行按钮即可。