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

守柔

昨天朋友托我将长达89页的下载文档进行打印，为节约起见，需将许多空白段落删除，以前一直以为用^P的替换非常方便，一试方知不然。只好用VBA做了一个删除空行的小模块，与大家共享。 Sub blankdel() Dim i As Integer For i = ActiveDocument.Paragraphs.Count To 1 Step -1 ActiveDocument.Paragraphs(i).Range.Select a = Selection.Words.Count If a = 1 Then Selection.Delete m = m + 1 End If Next i MsgBox "共删除空白段落" & m & "个" End Sub

jls

我不懂VB，从您发表的帖子来看，应是个高手。 特地向守柔请教，怎样学VB？应该有什么基础？

守柔

只要你继续坚持在论坛上学习，只要你不断地深化WORD与EXCEL，然后你会发现很多问题，通过主程序无法解决，或者难度很大，或者很繁。 你开始思考其它途径，开始接触VBA，开始学习VBA，开始试着做一些小的代码。我也一样，也没什么基础，根本谈不上高手，只是兴趣，它是引导一个人最好的进步力量。 等你回过头来，看看自己在论坛中的成长历程，你会发现自己的成果所在，并非仅仅局限于几颗星。 你可以先从宏入手，看一下，你所录的宏，其代码究竟是什么，能否修改得更好？ ……

jls

我正在学习应用宏，看来这一步走对了。谢谢守柔，希望只要本坛存在，就能经经常看到您。同时向您发出来自滇西北云岭深处的问候。

守柔

以下是引用jls在2003-9-22 19:08:00的发言： 我正在学习应用宏，看来这一步走对了。谢谢守柔，希望只要本坛存在，就能经经常看到您。同时向您发出来自滇西北云岭深处的问候。

谢谢jls，你我的学习之路，路漫漫兮唯修远，吾们均将上下而求索。 摘了一个小程序（源自七叶一枝梅，并略作修饰与包装），空时可消磨。 EP7dR222.rar (6.03 KB, 下载次数: 646)

2003-9-23 05:34 上传

点击文件名下载附件
[分享]空白段落的删除问题

jls

谢谢守柔，但不知道为什么，我打开该文件确是空的。 我用的是WORD2000。

守柔

就是一个类似游戏的登录，只要你猜的次数<=6次，便会打开一个文档；否则你将会不能进入该文档。按下SHIFT后，打开该文档，ALT+F11，进入VB编辑器中，查看该文档的代码。

jls

谢谢守柔。

守柔

经过多次试验，简化了一些代码，对于长文档和多段落，可以加提高25%的运行速度，对于1000个段落以上的文档，显然还是时间长了一些，不是很满意。 Sub blankdel() Application.ScreenUpdating = False Dim i As Integer For i = ActiveDocument.Paragraphs.Count To 1 Step -1 a = ActiveDocument.Paragraphs(i).Range.End b = ActiveDocument.Paragraphs(i).Range.Start If a - b = 1 Then ActiveDocument.Paragraphs(i).Range.Delete m = m + 1 End If Next i MsgBox "共删除空白段落" & m & "个" Application.ScreenUpdating = True End Sub

守柔

Sub blankdel() For Each i In ActiveDocument.Paragraphs a = i.Range.End b = i.Range.Start If a - b = 1 Then i.Range.Delete m = m + 1 End If Next i MsgBox "共删除空白段落" & m & "个" End Sub 在以上发表的三篇文章中，同样的目的不一样的循环过程，其运行速度截然不同，这个代码应该是最快的。