Word删除空白段落的宏代码介绍推荐阅读 _Word

通过如下的宏代码，您就可以在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 ’计数
【Word删除空白段落的宏代码介绍推荐阅读】End If
Next
MsgBox "共删除空白段落" & n & "个!"
Application.ScreenUpdating = True ’恢复屏幕刷新
End Sub
代码简单，功能强大，希望对您有所帮助

Word删除空白段落的宏代码介绍推荐阅读

推荐阅读

昆明机场离哪个高铁站近，昆明飞机场到高铁站有多远？

关于特别认真地生活简述特别认真地生活

关于淮北公交简述淮北公交

强势老人是家庭的灾难【老人强势发生家庭矛盾】

糖尿病人适合送的礼品女总裁给男秘书送粥

“魑魅魍魉” 你们知道怎么读吗？魑魅魍魉怎么读

父母买房可以写未成年孩子的名字吗,规避转让税但不能贷款

孕妇铅过高有什么症状有什么不良影响

办银行卡需要什么办银行卡需要什么证件和材料

饭圈拉瓜是什么意思饭圈拉郎是什么意思

柠檬片的功能与功效柠檬片的功效作用

大红袍分几种肉桂

终不似少年游终不似少年游

熟黄芪泡水喝的功效与作用熟黄芪泡水喝有哪些功效与作用

山药圆子怎么做才好吃，肉末山药圆子的做法？

不倒翁小鸟的制作教程

毓字取名女孩有寓意属兔最搭的名字有哪些？

防弹咖啡怎么做好喝防弹咖啡怎么做

excel查找不出来是什么原因

今年广东调整养老金的新消息 2022广东省养老金上调方案及补发时间