[第4期] WORD VBA-自动标色(已总结)

konggs

各位太强了！[em17]老大更强！[em17][em17]看来，又要学习好一段时间了。

lg_cai

要是我的代码关了屏幕更新,运行时间多少呢?

守柔

以下是引用qee用在2005-10-22 11:15:44的发言： 守柔 版主测试速度为什么不使用这样的方式呢： sub xx() dim t1 t1=timer ..... msgbox "用时：" & timer-t1 end sub 我觉得这样是不是更方便些。 还有一点写下来供大家参考： 同样是遍历，for each ..in ... 比for i=1 to ...要快，我把3楼的代码改成for each后，速度提高了50%左右。

测试方法中,您说得很对,我可以直接将结果写到代码中都没有问题.

通常情况下,FOR EACH的循环要比FOR NEXT的循环快许多,除非没有办法,一般应该使用FOR EACH在集合对象中循环.在本题中,由于段落中字符数不多,影响不大,但当字符数很多时,速度就会受到影响.

守柔

以下是引用lg_cai在2005-10-22 20:08:57的发言：

要是我的代码关了屏幕更新,运行时间多少呢?

通常无论EXCEL还是WORD中,如果对当前内容进行格式设置或者改写\输入等操作时,应该将屏幕更新在执行操作前关闭,在结束程序前恢复.

今天测试了一下，可提高约0.1秒,即1.5%左右的提高.(本例中屏幕变化很少)

[此贴子已经被作者于2005-10-25 6:24:54编辑过]

gues1688

9 楼守柔版主给出了很快的方法，各位高手的方法值得学习。

这里再给一段不用搜索的方法，速度略快于守柔版主的代码：

Sub test()
Dim myStr As String
Dim iColor As WdColor, cColor As WdColor
Dim myP As Paragraph, myR As Range
Dim t1 As Long
t1 = Timer
Application.ScreenUpdating = False
cColor = wdColorBlue
For Each myP In ActiveDocument.Paragraphs
iColor = cColor
For Each myR In myP.Range.Characters
If myR = "只" Then
myR.Select
Selection.Font.Color = iColor
iColor = IIf(iColor = wdColorRed, wdColorBlue, wdColorRed)
End If
Next myR
cColor = IIf(cColor = wdColorRed, wdColorBlue, wdColorRed)
Next myP
Application.ScreenUpdating = True
Debug.Print Timer - t1 '输出代码运行的时间
End Sub

测试时，使用了=rand(100,51)生成虚拟文本，使运行时间稍长，以便进行比较。反复测试多次，这段代码速度是比较快的，跟9楼的代码运行时间相当并略快一些。