office中自动删除空行的宏代码

一个可以批量删除所有空格的宏，在复制文字到word时带有大量空格的时候感觉比较实用。
宏的使用方法见：

如何在OFFICE中使用宏

宏代码如下（附件为同样代码）：



Sub DBL()
i=1
Do
'从当前文档的顶端开始逐一选择文档的每一段文字
ActiveDocument.Paragraphs(i).Range.Select
If Trim(Selection.Text) = Chr(13) Then
'如果选择的段落里只有回车符和空格则删除此段
Selection.Delete
Else
'如果选择的段落非空，就将选择的指针移向下一段
Selection.MoveDown
i=i+1
End If
Loop Until i=ActiveDocument.Paragraphs.Count
End Sub

OK！
写好了宏程序后，可以把建好的宏拖到快捷工具栏上，做好后，如果需要从网页上拷贝文字到Word上编辑时，只要单击一次这个宏按钮，即可瞬间删除整篇文档里的空行了。

另外一种代码（可以显示出共删除了多少空行等）

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