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

413191246se · 发表于 2019-10-14 22:01

本帖最后由 413191246se 于 2019-10-14 23:36 编辑

* 特别感谢小花鹿老师！前一段老师总说 Move 4，当时没太重视，前几天偶然试验，发现提速秘密。
* 经过对比测试，在循环遍历每个段落时，“.Move 4”（4 是“段落”的值）方法远远快于 ForEachNext方法。

Sub Move4()
'循环遍历所有段落
'.Move 4 进入表格可以马上跳出/ForEachNext不能跳出
'.Move 4/极速/远远快于 ForEachNext
'.Move 4=.05秒/ForEachNext=.40秒/有表格/极速
'.Move 4=.05秒/ForEachNext=.33秒/无表格
Dim doc As Document
Set doc = ActiveDocument
With Selection
.HomeKey 6
Do
.Move 4
If .Information(12) Then .Start = .Tables(1).Range.Next.Start
.Paragraphs(1).Range.Font.Color = wdColorRed '红色
Loop Until .Paragraphs(1).Range.End = doc.Content.End
End With
End Sub
Sub ForEachNext()
'循环遍历所有段落
Dim i As Paragraph
For Each i In ActiveDocument.Paragraphs
With i.Range
If Not .Information(12) Then
.Font.Color = wdColorRed '红色
End If
End With
Next
End Sub

复制代码

413191246se · 发表于 2019-10-14 22:05

* 删除空行宏：.Move 4 方法也快于 ForEachNext 方法：（我要将所有 ForEachNext 宏重写为 .Move 4）

Sub 删除空行()
'.Move 4=.34'快于ForEachNext=.56'
With Selection
.HomeKey 6
Do
If .Information(12) Then
.Start = .Tables(1).Range.Next.Start
Else
If .Paragraphs(1).Range.Text = vbCr Then .Paragraphs(1).Range.Delete Else .Move 4
End If
Loop Until .Paragraphs(1).Range.End = ActiveDocument.Content.End
End With
End Sub

复制代码

xiaoyouxi01 · 发表于 2019-10-14 22:38

可惜光标位置会变

413191246se · 发表于 2019-10-14 22:52

本帖最后由 413191246se 于 2019-10-14 23:14 编辑

楼上朋友，好！——速度快啊！的确是提速了。

413191246se · 发表于 2019-10-14 22:58

本帖最后由 413191246se 于 2019-10-14 23:39 编辑

* 重要补充：由于刚才发帖时有些匆忙，考虑不周，再补充一下。* 区别：明显区别是前者光标移动，后者不移动；最重要区别是：Move4 进入表格后可以马上跳出！而 ForEachNext 却不能跳出。
* 刚才发现，Move 4 不是万能的，不能循环表格，而 ForEachNext 却可以。
* ".Move 4"方法的直观效果就是：光标到达下一个段落的段首。
* ".Move 4"方法：主要是在循环遍历所有（每个）段落时大放异彩，远远快于 ForEachNext；其它方面，还是得应用 For Each ... Next 方法来循环遍历集合中的每个元素。
*
* “全面取代”看来不成立！应该是在循环遍历每个段落这一点，可以取代。
* 希望各位朋友了解，谢谢大家！

413191246se · 发表于 2019-10-14 23:17

xiaoyouxi01 发表于 2019-10-14 22:38
可惜光标位置会变

朋友，你好！——提速是关键。

ming0018 · 发表于 2019-10-15 10:57

用range也可以move

ming0018 · 发表于 2019-10-15 11:00

.Information(12) 改成 .tables.count 试一下会更快！

413191246se · 发表于 2019-10-15 20:15

* ming 老师：两个提议，我均不会用，可否给个示意代码？（Range也Move试了不行；.Information(12) 改成 .tables.count什么意思呢？）以逐段变红但跳过表格为例。

zhanglei1371 · 发表于 2019-10-16 21:08

这样：

Sub 删除空行()
With ActiveDocument.Range(0, 0)
Do
If .Tables.Count Then
.Start = .Tables(1).Range.Next.Start
Else
If .Paragraphs(1).Range.Text = vbCr Then .Paragraphs(1).Range.Delete Else .MoveStart 4
End If
Loop Until .Paragraphs(1).Range.End = ActiveDocument.Content.End
End With
End Sub

复制代码

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

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