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删除空白段落的宏代码

    通过如下的宏代码，您就可以在WORD中删除空白的段落。 Sub DelBlank() Dim i As Paragraph， n As Long Application.ScreenUpdating ...

  • 怎么在Word中将空白段落删除

    怎么在Word中将空白段落删除

    有的小伙伴在使用Word软件编辑文字时,想要删除空白段落,但是如果一段一段删除会非常麻烦,因此想要快速删除,那么如何操作呢?小编就来为大家介绍一下吧.具体如下:1. 第一步,双击或者右击打开需要删除空 ...

  • Word中怎么快速删除空白段落

    平时在编辑文档是或者计算机等级考试时会遇到需要删除空白段落,有时候篇幅较大的文档删除时会比较麻烦并且耗时间,那么怎么快速删除呢/ 操作方法 01 第一步,比如这篇文档,就有许多的空白段落. 02 第二 ...

  • word中批量删除空白段落

    word中如何批量删除空白段落呢?下面小编来教大家. 操作方法 01 首先,我们打开一个word文档,如图所示: 02 然后我们点击工具栏中的文字工具: 03 弹出的界面,我们点击删除空段: 04 最 ...

  • Word删除空白页方法

    对于电脑小白来说，Word编辑过程中总是容易遇到问题，其中之一便是空白页。有的人就会问怎样删除Word空白页?事实上，Word删除空白页的方法并不难，这里就为大家简单介绍一下。 方法一：按Delete ...

  • word删除空白页方法汇总

    word删除空白页方法汇总 1.将鼠标放在前一页的最后,用DEL健删除.如果空白面是最后一页,且鼠标在第一行,可选"格式"-"段落",将这一行的行距设为固定值1 ...

  • word2010如何删除空白页?Word删除空白页方法图解

    很多时候我们在编辑文档的时候,尾部都会留有空白页,让人看着不舒服.今天,我就给大家说说如何删除空白页,一起来看看吧. 删除空白页 情况一 当文档出现空白页的时候,通常情况下,我们可以直接将鼠标光标调整 ...

  • wps文字如何删除空白段落

    wps文字删除空白段落的方法 1.打开需要编辑修改的WPS文档 2.点击工具栏的"文字工具",在文字工具里选择"删除空段" 3.这个时候你会发现文档里的空段全部 ...

  • word删除空白页?word怎么删除整页/一页?

    很多时候我们用到的word的空白页太多了,或者整页需要删除,怎么做呢?下面小编就为大家详细介绍一下,不会的朋友快快来学习吧! word空白页是最后一页删除方法 如果空白页是最后一页,例如本文消失那一页 ...