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

shewoyu · 发表于 2006-7-22 11:54

那能否去除回车，全部连为一段呢！

shewoyu · 发表于 2006-7-22 12:01

QUOTE:

以下是引用守柔在2003-10-26 7:31:00的发言：
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
在以上发表的三篇文章中，同样的目的不一样的循环过程，其运行速度截然不同，这个代码应该是最快的。

象这里就无法去除，请看附件！！

DwmKkko1.rar (9.57 KB, 下载次数: 104)

看风听雨 · 发表于 2006-9-2 16:20

偶是新手，终于试验成功了，感谢！

buswalke · 发表于 2006-10-18 00:51

通过对守柔斑竹代码的学习，我明白了算法的重要性.谢谢!

linqiang0816 · 发表于 2006-11-1 14:00

谢谢守柔老师！

liujy · 发表于 2006-11-1 15:41

谢谢守柔斑竹!我从你这里学到很多东西!!再次表示感谢!!!

poetbox · 发表于 2006-12-17 17:53

原以为换^p^p最快，还是代码快。

不过：

如果空段很整齐，没那么怪异的偶然空很多，那么还是^p快，毕竟输入代码挺费劲的，顶替换P七八遍的时间啦，而且看的人会感觉很急，哈。

从优化的代码效率看，代码永远是最优秀的解决方案。

poetbox · 发表于 2006-12-17 17:55

QUOTE:

以下是引用shewoyu在2006-7-22 11:54:00的发言：

那能否去除回车，全部连为一段呢！

haha,if so,^p is the faster!

linqiang0816 · 发表于 2007-2-14 15:06

斑竹，有一个问题，没有搞懂，第一段程序和第四段程序的原理应该是一样的，但是里面有一句我不理解，为什么空白段落的长度会是1呢？不是0吗？用字数统计的话也是0啊？

我在WORD里面运行了一下，的确是长度是1，系统怎么会这么认为呢？

linqiang0816 · 发表于 2007-2-14 16:21

我已经明白了，也就是回车符也是算是一个字符，所以长度是1。

		自动登录	找回密码
密码			免费注册