功能简介:可以对指定长度的段落进行删除,当 LEN=1时可对空白段落进行删除。 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