Word删除空白段落的宏代码介绍
时间:2023-09-18 16:03:19
通过如下的宏代码,您就可以在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 ’计数
End If
Next
MsgBox "共删除空白段落" & n & "个!"
Application.ScreenUpdating = True ’恢复屏幕刷新
End Sub
代码简单,功能强大,希望对您有所帮助。
标签:宏,空白,段落
0
投稿
猜你喜欢
Office 2010新感觉:Word
2022-02-13 03:49:47
Win7系统安装软件时提示“无数字签名”如何解决呢?
2022-04-17 04:31:56
Win11如何压缩照片?压缩照片教程
2023-02-24 07:21:40
epic方舟加入失败怎么办_epic方舟加入失败解决方法
2022-12-10 00:09:14
Win7旗舰版开机蓝屏0x000000fc错误怎么办?
2023-04-07 10:46:45
Win10教育版用户怎么开启Insider preview更新?
2022-09-25 01:31:30
电脑如何设置默认浏览器?
2022-07-21 00:04:15
win10怎么连接远程桌面?win10打开远程桌面的两种方法
2023-09-06 02:00:26
Win10系统提示windows错误报告占CPU怎么办?
2023-12-07 10:41:42
Win10专业版怎么打开色盲模式?
2022-04-03 09:29:48
Win7如何一键关闭所有程序
2023-12-07 09:36:41
电脑视频无法在手机中播放?用EV剪辑来处理
2022-08-05 08:38:59
3dmark物理分数是什么-3dmark物理分数详细介绍
2023-09-30 21:04:38
如何强制重启Mac电脑?
2022-11-14 08:18:29
Win7如何更改打印机的缓存文件夹
2022-12-24 17:25:15
Win7系统通过另一台计算机实现远程关机设置教程
2022-01-21 05:16:07
Word封面下划线怎么对齐?Word封面下划线设置对齐的方法
2023-07-18 09:47:38
QQ不能登录提示错误代码0x00008819的解决方法
2023-09-29 20:58:50
WPS 给文档添加连续行号的方法
2023-05-16 07:29:16
华硕主板为什么总显示按F1?华硕主板开机需要按F1键的解决方法
2023-02-12 11:07:14