Word删除空白段落的宏代码
发布时间：2023-12-14 02:06:16
标签：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
投稿猜你喜欢
在Word文档中，目录是自动生成的，当目录生成之后，又修改了文档，这时文档的页码可能发生了变化，可以自动更新目录的页码。更新方法：在目录区域- 这篇文章主要介绍了高手分享的Office技巧大全,需要的朋友可以参考下Word绝招一、 输入三个“=”，回车，得到一条双直线;二、 输入三个
- Office2019专业增强版，该办公套件包含了 Word、Excel、PowerPoint (PPT)、OneNote、Publisher
- 首先打开word文档，具体操作如下：1.依次选择菜单栏-插入-符号，如图所示。2.直接选择需要的符号，如图。3.选择插入就可以了，如图。
- Win10专业版开始菜单点击无效怎么办？许多用户在使用电脑的时候，最经常使用的功能肯定有开始菜单，而最近有些小伙伴反应自己在重装电脑之后出现
- 长时间使用电脑后，难免会出现一些错误。有些用户在使用Win10系统时无法正常启动文件程序，提示错误码0xc000142。那么如何解决呢？以下
- 在word中插入表格大家都会，那么如何在word表格中插入增加行列呢?其实也非常简单，下面一起来看看操作方法吧。怎么在word2007中表格
- 电脑和硬件之间需要驱动程序来进行连接操控，不然硬件就是白白安装。有不少用户反馈，在安装驱动程序的时候，Win10系统老是提示没有数字签名无法
- 在word中插入大量的图片会导致文档占用空间过大，这样在文件传输都不是很方便。而我们在能节约的情况下对word中所有图片进行批量化的压缩，这
- 在编辑Word2010文档的时候，如果所做的操作不合适，而想返回到当前结果前面的状态，则可以通过“撤销键入”或“恢复键入”功能实现。“撤销”
- Win10小键盘不能使用怎么办？最近有小伙伴向我询问，自己的小伙伴在使用Win10系统的小键盘时发现根本无法使用，这是由于系统开启了键盘控制
- 如何解决Office2010升级Office2016时提示1714错误的问题呢？下面就简单的为大家介绍一下。首先将Office2016的IS
- ①我们启动Word2013，打开需要阅读的文档，当阅读完毕之后，在指定位置键入一个空格，然后按下Delete键删除，这样相当于是没有作任何更
- 问题描述：更新iOS14 beat版后发现BUG有点多，使用爱思助手想降级刷机至iOS13.5.1，刷机的时候选的是“保存用户资料刷机”，结
- 对于喜欢经常去不同地方拍摄照片的用户，可以让 iPhone 帮忙记录照片拍摄的位置。请按步骤进行如下设置：1.开启“定位服务”：打开 iPh
- PDF文档如何提取图片?很多朋友并不是很清楚，所以下面小编就为大家介绍抠出PDF中的好图5个方法，教程很不错，值得大家学习，推荐过来，一起来
- 当我们准备使用U盘对自己的计算机进行系统重装的时候，有些小伙伴可能会想知道iso格式的系统文件如何通过u盘安装win10。所以根据小编所知，
- 我们平时在使用Win10系统时遇到蓝屏PAGE_FAULT_IN_NONPAGED_AREA怎么办呢，这个蓝屏代码无法具体的指定问题所在。小
- 本站网站最新消息，今天早些时候，微软开始推送Windows 10 Quick Preview 19541系统更新，这是微软在圣诞节假期后发布
- 转转大师PDF编辑器是一款不错的PDF文本编辑软件，本文中介绍的是使用这款软件在PDF文本中添加形状的方法转转大师PDF编辑器专业的pdf文
