word vba 删除空白段落

删除空白段落
'功能简介:可以对指定长度的段落进行删除，当LEN=1时
'可对空白段落进行删除。'
'* ---------------------------------------
Sub 删除空段()
Dim i As Paragraph, n As Long
Call 删除段首空格2 '调用工程
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

赏 支付宝打赏 微信打赏

如果文章或资源对您有帮助，欢迎打赏作者。一路走来，感谢有您！