大家好，我们今日继续讲解VBA代码解决方案的第143讲内容：利用VBA在Word中删除空白的段落我们在实际利用VBA的时候，如EXCEL中经常的操作就是删除空白行，那么在Word中可否能实现这个功能呢？答案当然是肯定的，在这类问题上，VBA真的可以发挥到极致。
今日我们就讲解这个知识点看看代码：Sub mynzdetp()Dim myParagraph As Paragraph, n As IntegerApplication.ScreenUpdating = False
n = 1For Each myParagraph In ActiveDocument.ParagraphsIf Len(Trim(myParagraph.Range)) = 1 ThenmyParagraph.Range.Delete
n = n + 1End IfNextMsgBox "本次共删除空白段落" & n - 1 & "个"Application.ScreenUpdating = TrueEnd Sub代码截图：
代码的讲解：①Dim myParagraph As Paragraph, n As Integer 定义段落和删除数量的自变量②Application.ScreenUpdating = False 关闭屏幕刷新
③然后将用一个FOR EACH 循环来遍历每个段落④当Len(Trim(myParagraph.Range)) = 1时那么将删除这个段落，大家是否理解这句的含义呢？一会儿我们做做测试⑤myParagraph.Range.Delete 如果Len(Trim(myParagraph.Range)) = 1成立那么将删除这段。
n = n + 1 段落的标识增加1我们先看看代码的运行：运行前：
运行后：
我们在原页面中按下shift+ctrl+8 看看页面的样子：
相信你看了上面的截图一定明白了Len(Trim(myParagraph.Range)) = 1的意义了吧。今日内容回向：1 利用VBA代码如何删除空的段落？2 空的段落的意义是什么
亲爱的读者们，感谢您花时间阅读本文。如果您对本文有任何疑问或建议，请随时联系我。我非常乐意与您交流。
发表评论:
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。