通过如下的宏代码，您就可以在WORD中删除空白的段落。

　　Sub DelBlank()

　　Dim i As Paragraph， n As Long

　　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