word中批量删除多余的行.doc

空行，可能是段落标记（^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:=wdReplaceAll
End With
For Each Par In ActiveDocument.Paragraphs
If Len(Par.Range) < 2 Then
Par.Range.Delete
End If
Next
End Sub

代码使用方法：
1、先安装OFFICE2003（完全安装或者一定要安装宏控件）
2、打开文档之后 -工具 → 宏 → VB编辑器；或者直接按 Alt + F11 也可以进入VB编辑器；
3、找到当前文档名称下面的 ThisDocument，双击这个 ThisDocument；
4、然后将代码粘贴在右边的空白窗口里面；
5、光标定位到代码里面，就是代码中间的任意位置；
6、然后单击上面的执行按钮即可。