空白段落的删除由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“wps怎样删除段落布局”。
WORD空白段落的删除
功能简介:可以对指定长度的段落进行删除，当LEN=1时可对空白段落进行删除。SubDelBlank()
DimiAsParagraph,nAsLong
Application.ScreenUpdating=False’关闭屏幕刷新
ForEachiInActiveDocument.Paragraphs'在活动文档的段落集合中循环
IfLen(i.Range)=1Then'判断段落长段,此处可根据文档实际情况
i.Range.Delete'进行必要的修改可将任意长度段落删除
n=n+1'计数
EndIf
Next
MsgBox“共删除空白段落”& n &“个!”
Application.ScreenUpdating=True'恢复屏幕刷新
EndSub
