提速乐！Move4 远远快于 ForEachNext（循环遍历所有段落）

413191246se

* 谢谢 zhanglei 老师！——但运行结果不正确！老师如方便，可重新斟酌之。
* 昨晚开机时蓝屏，反复重启均如此！以为要请人修理，后灵机一动，按F11键恢复了系统备份，又恢复最近的注册表，OK了！用360杀毒、360安全卫士反复“强力模式+全盘扫描”确认是驱动型病毒作怪，后反复扫描，没有及时上线回复老师，抱歉！
* 再次谢谢 老师！也谢谢 ming 老师，及 小花鹿 老师！

daibao88

           审核中

daibao88

Sub test()
    Dim doc As Document, i As Integer
    Set doc = ActiveDocument
    If doc.Tables.Count >= 1 Then
        For i = 1 To doc.Paragraphs.Count
            If doc.Paragraphs(i).Range.Information(12) Then
                i = i + doc.Paragraphs(i).Range.Tables(1).Range.Paragraphs.Count - 1
            Else
                doc.Paragraphs(i).Range.Font.Color = wdColorRed '红色
            End If
        Next
    Else
        doc.Range.Font.Color = wdColorRed
    End If
End Sub

413191246se

咦？没看到 daibao88 老师 的回复呢！

ming0018

为什么我测试了一下　ForEach 比 Move4 快呢？

413191246se

ming 老师 是否方便提供示例文本？

413191246se

总结：一般来说，小文档，无表格时，用 ForEachNext 比较快；有表格用 .Move 4 比较快！但我在测试一个文档时，发现有表格时，.move 4 会造成程序无响应，这是很危险的！我想，之所以这样，是因为，.move 4 总是到下一段首，是 Selection 对象激活，造成不停地刷屏/刷新，影响排版；所以，安全起见，无论有无表格，还是统统用 ForEachNext 才稳妥。

413191246se

* 谢谢 daibao88 老师（的代码）！
*
* 刚才经重新测试，zhanglei 老师的代码，创造奇迹了！（当然我加了一个标签 sk:，否则会无限循环。）
*
* zhanglei 老师的代码，删除空行时（有表格），是我编的传统 For Each ... Next 代码的速度的 10-20 倍！
（实际测试值是：小文档，张=0.02秒/我=0.2秒；大文档，张=0.63秒，我=12.22秒）可谓极速！
*
* ming 老师 看到回帖，请再测试一下你的代码，与 张老师的代码 VS 一下（这里也严重再次谢谢一下 ming 老师啊！可能 张老师 也是根据你的提示写的代码呢！）。
*
* 下面是 zhanglei 老师的代码：

1. Sub 删除空行()
   
2. 'code by zhanglei1371/提速10-20倍！可谓极速！(小0.02秒/0.2秒/大0.63秒/12.22秒)
   
3.     With ActiveDocument.Range(0, 0)
   
4.         Do
   
5.             If .Tables.Count Then
   
6.                 .Start = .Tables(1).Range.Next.Start
   
7.                 GoTo sk
   
8.             Else
   
9. sk:
   
10.                 If .Paragraphs(1).Range.Text = vbCr Then .Paragraphs(1).Range.Delete Else .MoveStart 4
    
11.             End If
    
12.         Loop Until .Paragraphs(1).Range.End = ActiveDocument.Content.End
    
13.         If .Paragraphs(1).Range.Text = vbCr Then .Paragraphs(1).Range.Delete
    
14.     End With
    
15. End Sub

复制代码

413191246se

* 各位朋友，请注意：楼上结果，只是针对《有表格的文本》来测试删除空行，下面针对《无表格的纯文本》的测试结果，又有分晓：

413191246se

* 总结：如果有表格，则删除空行应该选用 18 楼代码！如果无表格，则选用 19 楼第 3 个程序 DelLine.