Word批量删除空行VBA

如何批量删除空行 2011-2-16

空行为回车直接敲出来的，用^p^p会把所有的回车都删掉，使全文格式全无。用^p也是格式全无。求一种即能删除空行，格式又能保持的方法。不是shift加回车的空行，用^l不管用。

用Word打开含空行的文章，依次单击“工具” →“宏” →“Visual Basic编辑器”，打开Visual Basic编辑器。双击“Project”下的“ThisDocument”，打开“代码”输入窗口，将下面的代码输入进去，并保存。

Sub DelBlank()
Dim i As Paragraph, n As Integer
Application.ScreenUpdating = False
For Each i In ActiveDocument.Paragraphs
If Len(i.Range) = 1 Then
i.Range.Delete
n = n + 1
End If
Next
MsgBox "共删除空白段落" & n & "个"
Application.ScreenUpdating = True
End Sub

代码输入完毕，单击“工具栏”中的“运行”按钮，执行这段代码。这时，会弹出一个消息窗口，告诉你一共删除了多少空行。