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
投稿猜你喜欢
双硬盘怎么设置主从盘?我们使用的电脑随着文件越来越多，硬盘明显不够用，于是加了一块新硬盘。可是自从加了新硬盘后，电脑老是出现卡顿、死机的问题- win10补丁kb3140743更新失败怎么办?win10补丁kb3132372更新进不了系统怎么办?近期WIN10又更新了，很多更新的朋友
- Cmd即命令提示符，以管理员身份运行命令提示符是大家在日常使用电脑过程中经常会用到的有一个操作，那么应该如何打开命令提示符呢？下面就和小编一
- 咱们在 操纵WPS 笔墨与Word 笔墨 停止 一样平常办公时， 常常 需求给 笔墨 增加 林林总总的图片来 帮助 咱们更好地 理解文章，但
- 众所周知，Win9系统是被微软直接跳过的一个版本。在Win10系统公布之前，大家都以为Win8之后的下一代Windows系统是Win9，但谁
- Win10专业版安全中心会删除自动一些无用的文件，有时候这些文件正是小伙伴们需要的，那么要如何进行恢复呢？遇到相同问题的小伙伴就跟小编一起来
- Win8.1系统中的任务管理器怎么打开？针对此问题，下面小编就给大家带来win8.1快速启动任务管理器的三种方法，希望可以帮助到大家Win8
- win10如何恢复系统呢？很多用户对此还不是很清楚，小编这里就给大家带来有关win10如何恢复系统的回答，希望能够对大家有所帮助。1，敲击键
- 现在很多90后都喜欢玩lol英雄联盟游戏，不过在运行游戏过程也碰到一些故障问题，这不就有win7系统的用户在玩英雄联盟时鼠标指针消失了，重启
- win11怎么安装语言包？相信很多小伙伴还不知道win11系统中可以使用多个不同的语音包，我们可以根据自己的需求去添加相应的语音包，但还有小
- 微软在最近已经推送了新版的Win10 RS2创作者更新，但这并不意味Win10的改版停下了脚步。有媒体发现，泄漏图显示在更加新版Window
- 下面小编就为大家介绍Excel表格的每一个单元格重新命名的两种方法，教程真的很不错，很值得学习，推荐到脚本之家，喜欢的朋友可以跟着教程一起来
- 当Excel表格中有大量数据时，我们会发现该列中可能有两个或多个数据需要排序。在这种情况下，我们应该考虑添加一个额外的排序条件吗？新添加的条
- 在使用AutoCAD LT 2019 for Mac(cad二维图形设计)难免会碰到一些问题，macdown小编做了一下统计，将出现几个最多
- win10系统更新在哪里呢？很多用户对此还不是很清楚，小编这里就给大家带来有关win10系统更新在哪里的介绍，希望能够对大家有所帮助。1，首
- edge浏览器flash不能正常使用怎么办？相信有不少用户在使用浏览器看视频时都遇到过，系统提示flash无法使用的情况，那么遇到这种问题应
- 首先我们准备一张背景透明的蜡烛照片，要求蜡烛上有火焰。然后将火焰和烛芯分离成两个部分。具体方法如下插入一个矩形，并将矩形置于蜡烛底层，其中矩
- 苹果公司与FBI就是否应该解锁圣贝纳迪诺枪击案凶犯 iPhone 5c 的争论还没有结束，但是双方的这场拉锯战却让苹果公司的所有隐私政策受到
- 天猫魔盒是什么？天猫魔盒怎么用？天猫魔盒是一种网络机顶盒，通过天猫魔盒我们可以在电视上观看电视剧、玩游戏，购物等。据说还有很多伙伴不懂天猫魔
- mac系统清除废纸篓时怎么禁止显示警告？mac系统在删除回收站的时候，发现总是提示警告，想要取消显示警告，该怎么操作呢？下面我们就来看看详细
