使用查找替换法:
查找内容:^p^p
替换为:^p
VBA法:
Sub 删除空行()
Dim i As Paragraph, n As Long
For Each i In ActiveDocument.Paragraphs '检查当前文档中的每一个段落
If Len(i.Range) = 1 Then '如果段落长度等于1
i.Range.Delete '删除此段落
n = n + 1 '计数器加1,累计删除的段落数量
End If
Next
MsgBox "共删除段落" & n & "个!" '利用MsgBox函数返回一个显示删除段落总数的对话框
End Sub
我的小站:http://pfsx.5d6d.com
我的新书:《Word排版之道》已被台湾引进
我的新书:《Excel公式与函数大辞典》已出版上市