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
投稿猜你喜欢
有些时候我们需要对Excel 2007工作表数据进行隔列求和的操作。如果工作表格式不允许或不方便进行调整的话，那么怎样才能顺利方便地得到我们- 初页APP怎么关注别人？初页APP是一款非常好用的海报制作软件，用户们在制作海报的时候可以在里面添加图片、文字等，那么，初页APP要怎么关注
- 什么是excel下拉菜单，就是通过设置让execl单元格，不用手动输入只需要用鼠标点击就可以选择一些内容输入到单元格，那么在Excel中怎样
- 最近有Win7用户反映电脑老是自动关机，用户在电脑关机后，又重新开机，结果电脑还是自动关机了，用户并不知道这是怎么回事，也不知道该怎么解决，
- 在使用办公软件时，难免出会现一些差错，此时可以使用“撤销”和“恢复”恢复、修改数据：如果只撤消上一步操作，请单击”快速访问工具栏”上的“撤消
- 一些用户对Win10桌面图标不满意，或者长时间以来，我感到有些无聊，想更改为自定义，并且找不到替换位置，本教程将告诉您如何替换Win10桌面
- Win7梦幻桌面动态效果怎么开启？最近有用户想把自己电脑桌面设置自己个性的桌面特效，但是不知道如何操作，你可以使用梦幻桌面动态效果，为此小编
- MATCH函数用于返回在指定方式下与指定数值匹配的数组中元素的相应位置。如果需要找出匹配元素的位置而不是匹配元素本身，则应该使用MATCH函
- 前段时间刚刚推出焕然一新的 MacBook Pro，很多果粉就迫不及待的购买了。新机型由全新 M1 Pro 和 M1 Max 芯片驱动，这是
- 打印机是我们生活中很常用的一款设备，不过还有很多的用户不知道怎么将打印机的驱动安装到电脑上，因此今天就给你们带来了打印机驱动安装到电脑上详细
- 在电脑上小伙伴们最容易误删的就是syswow64文件，而导致电脑很多的程序无法使用，那么不小心删了该怎么去解决呢？下面就来看看详细的解决方法
- ROW——行函数应用案例！函数基础功能：返回引用的行号。语法：ROW([reference])参数：Reference &nb
- word修订模式可以直观的显示出word文档中所做的修订，并可以选择是否接受这些修定，那么下面就由小编给大家分享下word使用修订模式的技巧
- 最近有用户反应，自己的电脑上缩略图不显示文件名，不知道如何解决，下面小编j8iu为大家讲解如何解决缩略图不显示文件名的问题有时候我们会发现，
- 网络的便利就是它的四通八达属性，只要我们之间建立了连接，就可以互相访问，那么远程连接可以让我们控制远在千里之外的电脑，又方便我们远程处理问题
- wps软件一直是大部分用户喜欢使用的办公软件之一，给用户带来了很多的强大的功能，并且用户在wps软件编辑的文件类型是没有太多的限制的，其中用
- 创世写作是一款受到大家欢迎的写作软件，我们写小说时首先要明确自己的主题，所以要先写大纲，你知道创世写作大纲怎么输入的吗？接下来我们一起往下看
- 注意！Win10升级需安装KB3025380才能收到9926推送，微软Windows Insider内测计划负责人Gabe Aul表示，如果
- Adobe InCopy CC 2018与Adobe InDesign CC紧密集合为作家、编辑、设计师等创意人员提供协作编辑、排版和设计功
- 相信小伙伴们在日常生活和办公时，都会用到一款非常好用的办公软件，那就是Word文档。在Word文档中，我们可以为文本设置各种各样的文本效果和
