[分享]空白段落的删除问题

aft

守柔 老师： 你好，我现在正想学 VBA for word ，但没这方面的资料，能告诉我哪有吗？

守柔

TO aft: http://club.excelhome.net/dispbbs.asp?boardID=23&ID=26231 这是本论坛迄今为止较为全面的WORD VBA方面的学习资料，再次感谢清山兄。 其二：WORD VBA中自带的帮助文件， 如果你没有请运行安装程序在自定义中选择。 其三通过录制宏来进行学习。

aft

收到，非常感谢 守柔老师和水清山老师。谢谢！！！

守柔

Sub DelBlank() Dim i As Paragraph, n As Integer 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 注：

本来不想发表此新贴（时间已长了），一则由于吃了个精华，被人指点，不妥，更不能误人子弟；第二是代码的学习与使用有个过程，有不断完善、更新、更好的过程，好比程序的升级；三则近来较多网友提问关于空白段落删除的问题，使用替换要反复进行多次操作；四则此代码比如某段有1个字或规定几个字的需要删除的，此法更为适宜。年初时笔者曾用此法解决了公司财务每份转型文件（每个长达500~600多页）的限定字符段落的（无效数据/文本）的删除，速度极快。

liumu

试了一下斑竹的代码，的确不错，但有一个问题希望能解决，就是当图片和图形不是嵌入式时，如果在空段中间就会和空段一起被删除，请问这个你是怎么考虑的。

另希望能加入功能：只删除选定区域的空段，或者是从光标处开始，不知如何实现

守柔

VBA都是有一定局限性的，只能针对某一部分对象，而非全部。

有时，一堆代码，用户只要改变了其中的一个位置，所有代码可能全部无效！这个主题是空白段落的删除，不是图片的删除。

至于选定区域或者从光标处开始，是很简单的。但是，还是那句话，你需要将你的正确答案要求目的写出来，请另外重新发个主题贴。

哈哈大将~

这个方法太好了

我很喜欢楼主

大家别和我争~

liujy

多谢守柔版主!学习了.向您致敬!!

玉皇大帝

谢谢版主！！！！！！！！！！

掏宝者

谢谢版主！