数组内容超过1000后遍历速度变得好慢，求大神帮优化

libin171

平时工作中一般会用数组中的字符串去遍历文档内容，但是数组中内容较多，导致查找及标注文字颜色的时间越来越长，一次下来要10s左右，求大神帮忙优化下结构能加快点时间，万分感谢！代码如下，附件为一般应用的文档，内容几页到十几页不等。


Sub aa()

Selection.WholeStory
Selection.Editors.Add wdEditorEveryone
Selection.HomeKey Unit:=wdLine
Application.ScreenUpdating = False

Dim arrRed As Variant


arrRed = Array("aa1", "bb2", "cc3", "dd4", "ee5", "ff6", "gg7", "hh8", "aa2", "bb3", "cc4", "dd5", "ee6", "ff7", "gg8", "hh9", "aa3", "bb4", "aa2", "bb3", "cc4", "dd5", "ee6", "ff7", "gg8", "hh9", "aa3", "bb4", "cc5", "dd6", "ee7", "ff8", "gg9", "hh10", "aa4", "bb5", "aa3", "bb4", "cc5", "dd6", "ee7", "ff8", "gg9", "hh10", "aa4", "bb5", "cc6", "dd7", "ee8", "ff9", "gg10", "hh11", "aa5", "bb6", "aa4", "bb5", "cc6", "dd7", "ee8", "ff9", "gg10", "hh11", "aa5", "bb6", "cc7", "dd8", "ee9", "ff10", "gg11", "hh12", "aa6", "bb7", "aa5", "bb6", "cc7", "dd8", "ee9", "ff10", "gg11", "hh12", "aa6", "bb7", "cc8", "dd9", "ee10", "ff11", "gg12", "hh13", "aa7", "bb8", "aa6", "bb7", "cc8", "dd9", "ee10", "ff11", "gg12", "hh13", "aa7", "bb8", "cc9", "dd10", "ee11", "ff12", "gg13", "hh14", "aa8", "bb9", "aa7", "bb8", "cc9", "dd10", "ee11", "ff12", "gg13", "hh14", "aa8", "bb9", "cc10", "dd11", "ee12", "ff13", "gg14", "hh15", "aa9", _
"bb10", "aa8", "bb9", "cc10", "dd11", "ee12", "ff13", "gg14", "hh15", "aa9", "bb10", "cc11", "dd12", "ee13", "ff14", "gg15", "hh16", "aa10", "bb11", "aa9", "bb10", "cc11", "dd12", "ee13", "ff14", "gg15", "hh16", "aa10", "bb11", "cc12", "dd13", "ee14", "ff15", "gg16", "hh17", "aa11", "bb12", "aa10", "bb11", "cc12", "dd13", "ee14", "ff15", "gg16", "hh17", "aa11", "bb12", "cc13", "dd14", "ee15", "ff16", "gg17", "hh18", "aa12", "bb13", "aa11", "bb12", "cc13", "dd14", "ee15", "ff16", "gg17", "hh18", "aa12", "bb13", "cc14", "dd15", "ee16", "ff17", "gg18", "hh19", "aa13", "bb14", "aa12", "bb13", "cc14", "dd15", "ee16", "ff17", "gg18", "hh19", "aa13", "bb14", "cc15", "dd16", "ee17", "ff18", "gg19", "hh20", "aa14", "bb15", "aa13", "bb14", "cc15", "dd16", "ee17", "ff18", "gg19", "hh20", "aa14", "bb15", "cc16", "dd17", "ee18", "ff19", "gg20", "hh21", "aa15", "bb16", _
"aa14", "bb15", "cc16", "dd17", "ee18", "ff19", "gg20", "hh21", "aa15", "bb16", "cc17", "dd18", "ee19", "ff20", "gg21", "hh22", "aa16", "bb17", "aa15", "bb16", "cc17", "dd18", "ee19", "ff20", "gg21", "hh22", "aa16", "bb17", "cc18", "dd19", "ee20", "ff21", "gg22", "hh23", "aa17", "bb18", "aa16", "bb17", "cc18", "dd19", "ee20", "ff21", "gg22", "hh23", "aa17", "bb18", "cc19", "dd20", "ee21", "ff22", "gg23", "hh24", "aa18", "bb19", "aa17", "bb18", "cc19", "dd20", "ee21", "ff22", "gg23", "hh24", "aa18", "bb19", "cc20", "dd21", "ee22", "ff23", "gg24", "hh25", "aa19", "bb20", "aa18", "bb19", "cc20", "dd21", "ee22", "ff23", "gg24", "hh25", "aa19", "bb20", "cc21", "dd22", "ee23", "ff24", "gg25", "hh26", "aa20", "bb21", "aa19", "bb20", "cc21", "dd22", "ee23", "ff24", "gg25", "hh26", "aa20", "bb21", "cc22", "dd23", "ee24", "ff25", "gg26", "hh27", "aa21", "bb22", _
"aa20", "bb21", "cc22", "dd23", "ee24", "ff25", "gg26", "hh27", "aa21", "bb22", "cc23", "dd24", "ee25", "ff26", "gg27", "hh28", "aa22", "bb23", "aa21", "bb22", "cc23", "dd24", "ee25", "ff26", "gg27", "hh28", "aa22", "bb23", "cc24", "dd25", "ee26", "ff27", "gg28", "hh29", "aa23", "bb24", "aa22", "bb23", "cc24", "dd25", "ee26", "ff27", "gg28", "hh29", "aa23", "bb24", "cc25", "dd26", "ee27", "ff28", "gg29", "hh30", "aa24", "bb25", "aa23", "bb24", "cc25", "dd26", "ee27", "ff28", "gg29", "hh30", "aa24", "bb25", "cc26", "dd27", "ee28", "ff29", "gg30", "hh31", "aa25", "bb26", "aa24", "bb25", "cc26", "dd27", "ee28", "ff29", "gg30", "hh31", "aa25", "bb26", "cc27", "dd28", "ee29", "ff30", "gg31", "hh32", "aa26", "bb27", "aa25", "bb26", "cc27", "dd28", "ee29", "ff30", "gg31", "hh32", "aa26", "bb27", "cc28", "dd29", "ee30", "ff31", "gg32", "hh33", "aa27", "bb28", _
"aa26", "bb27", "cc28", "dd29", "ee30", "ff31", "gg32", "hh33", "aa27", "bb28", "cc29", "dd30", "ee31", "ff32", "gg33", "hh34", "aa28", "bb29", "aa27", "bb28", "cc29", "dd30", "ee31", "ff32", "gg33", "hh34", "aa28", "bb29", "cc30", "dd31", "ee32", "ff33", "gg34", "hh35", "aa29", "bb30", "aa28", "bb29", "cc30", "dd31", "ee32", "ff33", "gg34", "hh35", "aa29", "bb30", "cc31", "dd32", "ee33", "ff34", "gg35", "hh36", "aa30", "bb31", "aa29", "bb30", "cc31", "dd32", "ee33", "ff34", "gg35", "hh36", "aa30", "bb31", "cc32", "dd33", "ee34", "ff35", "gg36", "hh37", "aa31", "bb32", "aa30", "bb31", "cc32", "dd33", "ee34", "ff35", "gg36", "hh37", "aa31", "bb32", "cc33", "dd34", "ee35", "ff36", "gg37", "hh38", "aa32", "bb33", "aa31", "bb32", "cc33", "dd34", "ee35", "ff36", "gg37", "hh38", "aa32", "bb33", "cc34", "dd35", "ee36", "ff37", "gg38", "hh39", "aa33", "bb34", _
"aa32", "bb33", "cc34", "dd35", "ee36", "ff37", "gg38", "hh39", "aa33", "bb34", "cc35", "dd36", "ee37", "ff38", "gg39", "hh40", "aa34", "bb35", "aa33", "bb34", "cc35", "dd36", "ee37", "ff38", "gg39", "hh40", "aa34", "bb35", "cc36", "dd37", "ee38", "ff39", "gg40", "hh41", "aa35", "bb36", "aa34", "bb35", "cc36", "dd37", "ee38", "ff39", "gg40", "hh41", "aa35", "bb36", "cc37", "dd38", "ee39", "ff40", "gg41", "hh42", "aa36", "bb37", "aa35", "bb36", "cc37", "dd38", "ee39", "ff40", "gg41", "hh42", "aa36", "bb37", "cc38", "dd39", "ee40", "ff41", "gg42", "hh43", "aa37", "bb38", "aa36", "bb37", "cc38", "dd39", "ee40", "ff41", "gg42", "hh43", "aa37", "bb38", "cc39", "dd40", "ee41", "ff42", "gg43", "hh44", "aa38", "bb39", "aa37", "bb38", "cc39", "dd40", "ee41", "ff42", "gg43", "hh44", "aa38", "bb39", "cc40", "dd41", "ee42", "ff43", "gg44", "hh45", "aa39", "bb40", _
"aa38", "bb39", "cc40", "dd41", "ee42", "ff43", "gg44", "hh45", "aa39", "bb40", "cc41", "dd42", "ee43", "ff44", "gg45", "hh46", "aa40", "bb41", "aa39", "bb40", "cc41", "dd42", "ee43", "ff44", "gg45", "hh46", "aa40", "bb41", "cc42", "dd43", "ee44", "ff45", "gg46", "hh47", "aa41", "bb42", "aa40", "bb41", "cc42", "dd43", "ee44", "ff45", "gg46", "hh47", "aa41", "bb42", "cc43", "dd44", "ee45", "ff46", "gg47", "hh48", "aa42", "bb43", "aa41", "bb42", "cc43", "dd44", "ee45", "ff46", "gg47", "hh48", "aa42", "bb43", "cc44", "dd45", "ee46", "ff47", "gg48", "hh49", "aa43", "bb44", "aa42", "bb43", "cc44", "dd45", "ee46", "ff47", "gg48", "hh49", "aa43", "bb44", "cc45", "dd46", "ee47", "ff48", "gg49", "hh50", "aa44", "bb45", "aa43", "bb44", "cc45", "dd46", "ee47", "ff48", "gg49", "hh50", "aa44", "bb45", "cc46", "dd47", "ee48", "ff49", "gg50", "hh51", "aa45", "bb46", _
"aa44", "bb45", "cc46", "dd47", "ee48", "ff49", "gg50", "hh51", "aa45", "bb46", "cc47", "dd48", "ee49", "ff50", "gg51", "hh52", "aa46", "bb47", "aa45", "bb46", "cc47", "dd48", "ee49", "ff50", "gg51", "hh52", "aa46", "bb47", "cc48", "dd49", "ee50", "ff51", "gg52", "hh53", "aa47", "bb48", "aa46", "bb47", "cc48", "dd49", "ee50", "ff51", "gg52", "hh53", "aa47", "bb48", "cc49", "dd50", "ee51", "ff52", "gg53", "hh54", "aa48", "bb49", "aa47", "bb48", "cc49", "dd50", "ee51", "ff52", "gg53", "hh54", "aa48", "bb49", "cc50", "dd51", "ee52", "ff53", "gg54", "hh55", "aa49", "bb50", "aa48", "bb49", "cc50", "dd51", "ee52", "ff53", "gg54", "hh55", "aa49", "bb50", "cc51", "dd52", "ee53", "ff54", "gg55", "hh56", "aa50", "bb51", "aa49", "bb50", "cc51", "dd52", "ee53", "ff54", "gg55", "hh56", "aa50", "bb51", "cc52", "dd53", "ee54", "ff55", "gg56", "hh57", "aa51", "bb52", _
"aa50", "bb51", "cc52", "dd53", "ee54", "ff55", "gg56", "hh57", "aa51", "bb52", "cc53", "dd54", "ee55", "ff56", "gg57", "hh58", "aa52", "bb53", "aa51", "bb52", "cc53", "dd54", "ee55", "ff56", "gg57", "hh58", "aa52", "bb53", "cc54", "dd55", "ee56", "ff57", "gg58", "hh59", "aa53", "bb54", "aa52", "bb53", "cc54", "dd55", "ee56", "ff57", "gg58", "hh59", "aa53", "bb54", "cc55", "dd56", "ee57", "ff58", "gg59", "hh60", "aa54", "bb55", "aa53", "bb54", "cc55", "dd56", "ee57", "ff58", "gg59", "hh60", "aa54", "bb55", "cc56", "dd57", "ee58", "ff59", "gg60", "hh61", "aa55", "bb56", "aa54", "bb55", "cc56", "dd57", "ee58", "ff59", "gg60", "hh61", "aa55", "bb56", "cc57", "dd58", "ee59", "ff60", "gg61", "hh62", "aa56", "bb57", "aa55", "bb56", "cc57", "dd58", "ee59", "ff60", "gg61", "hh62", "aa56", "bb57", "cc58", "dd59", "ee60", "ff61", "gg62", "hh63", "aa57", "bb58", _
"aa56", "bb57", "cc58", "dd59", "ee60", "ff61", "gg62", "hh63", "aa57", "bb58", "cc59", "dd60", "ee61", "ff62", "gg63", "hh64", "aa58", "bb59", "aa57", "bb58", "cc59", "dd60", "ee61", "ff62", "gg63", "hh64", "aa58", "bb59", "cc60", "dd61", "ee62", "ff63", "gg64", "hh65", "aa59", "bb60", "aa58", "bb59", "cc60", "dd61", "ee62", "ff63", "gg64", "hh65", "aa59", "bb60", "cc61", "dd62", "ee63", "ff64", "gg65", "hh66", "aa60", "bb61", "aa59", "bb60", "cc61", "dd62", "ee63", "ff64", "gg65", "hh66", "aa60", "bb61", "cc62", "dd63", "ee64", "ff65", "gg66", "hh67", "aa61", "bb62", "aa60", "bb61", "cc62", "dd63", "ee64", "ff65", "gg66", "hh67", "aa61", "bb62", "cc63", "dd64", "ee65", "ff66", "gg67", "hh68", "aa62", "bb63", "aa61", "bb62", "cc63", "dd64", "ee65", "ff66", "gg67", "hh68", "aa62", "bb63")


For m = 0 To UBound(arrRed)


Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
    .Text = arrRed(m)
    .Replacement.Text = ""
    .Replacement.Font.Color = wdColorRed
    .Replacement.Font.Bold = wdToggle
    .Replacement.Font.Size = 13
    .Forward = True
    .MatchWildcards = True
End With
Selection.Find.Execute Replace:=wdReplaceAll

Next m
Erase arrRed


Application.ScreenUpdating = True

End Sub

413191246se

* 楼主，经我优化后，在我的高级联想电脑上运行时间还是 18 秒，你只有 10 秒，你的电脑太高级了！
* 不知道 楼主 是想加粗还是取消加粗（如果想取消加粗，将 .Bold=True 改为 .Bold=False），字号 13 可以改为 14（四号）或 12（小四）。——如果我优化后的宏还不如你原来的快，请删除它，请备份原文档后试用）：

1. Sub ColorRed()
   
2.     Dim arr, i&, t!
   
3.     t = Timer
   
4.     Application.ScreenUpdating = False
   
5.     arr = Array("aa1", "bb2", "cc3", "dd4", "ee5", "ff6", "gg7", "hh8", "aa2", "bb3", "cc4", "dd5", "ee6", "ff7", "gg8", "hh9", "aa3", "bb4", "aa2", "bb3", "cc4", "dd5", "ee6", "ff7", "gg8", "hh9", "aa3", "bb4", "cc5", "dd6", "ee7", "ff8", "gg9", "hh10", "aa4", "bb5", "aa3", "bb4", "cc5", "dd6", "ee7", "ff8", "gg9", "hh10", "aa4", "bb5", "cc6", "dd7", "ee8", "ff9", "gg10", "hh11", "aa5", "bb6", "aa4", "bb5", "cc6", "dd7", "ee8", "ff9", "gg10", "hh11", "aa5", "bb6", "cc7", "dd8", "ee9", "ff10", "gg11", "hh12", "aa6", "bb7", "aa5", "bb6", "cc7", "dd8", "ee9", "ff10", "gg11", "hh12", "aa6", "bb7", "cc8", "dd9", "ee10", "ff11", "gg12", "hh13", "aa7", "bb8", "aa6", "bb7", "cc8", "dd9", "ee10", "ff11", "gg12", "hh13", "aa7", "bb8", "cc9", "dd10", "ee11", "ff12", "gg13", "hh14", "aa8", "bb9", "aa7", "bb8", "cc9", "dd10", "ee11", "ff12", "gg13", "hh14", "aa8", "bb9", "cc10", "dd11", "ee12", "ff13", "gg14", "hh15", "aa9", _
   
6.     "bb10", "aa8", "bb9", "cc10", "dd11", "ee12", "ff13", "gg14", "hh15", "aa9", "bb10", "cc11", "dd12", "ee13", "ff14", "gg15", "hh16", "aa10", "bb11", "aa9", "bb10", "cc11", "dd12", "ee13", "ff14", "gg15", "hh16", "aa10", "bb11", "cc12", "dd13", "ee14", "ff15", "gg16", "hh17", "aa11", "bb12", "aa10", "bb11", "cc12", "dd13", "ee14", "ff15", "gg16", "hh17", "aa11", "bb12", "cc13", "dd14", "ee15", "ff16", "gg17", "hh18", "aa12", "bb13", "aa11", "bb12", "cc13", "dd14", "ee15", "ff16", "gg17", "hh18", "aa12", "bb13", "cc14", "dd15", "ee16", "ff17", "gg18", "hh19", "aa13", "bb14", "aa12", "bb13", "cc14", "dd15", "ee16", "ff17", "gg18", "hh19", "aa13", "bb14", "cc15", "dd16", "ee17", "ff18", "gg19", "hh20", "aa14", "bb15", "aa13", "bb14", "cc15", "dd16", "ee17", "ff18", "gg19", "hh20", "aa14", "bb15", "cc16", "dd17", "ee18", "ff19", "gg20", "hh21", "aa15", "bb16", _
   
7.     "aa14", "bb15", "cc16", "dd17", "ee18", "ff19", "gg20", "hh21", "aa15", "bb16", "cc17", "dd18", "ee19", "ff20", "gg21", "hh22", "aa16", "bb17", "aa15", "bb16", "cc17", "dd18", "ee19", "ff20", "gg21", "hh22", "aa16", "bb17", "cc18", "dd19", "ee20", "ff21", "gg22", "hh23", "aa17", "bb18", "aa16", "bb17", "cc18", "dd19", "ee20", "ff21", "gg22", "hh23", "aa17", "bb18", "cc19", "dd20", "ee21", "ff22", "gg23", "hh24", "aa18", "bb19", "aa17", "bb18", "cc19", "dd20", "ee21", "ff22", "gg23", "hh24", "aa18", "bb19", "cc20", "dd21", "ee22", "ff23", "gg24", "hh25", "aa19", "bb20", "aa18", "bb19", "cc20", "dd21", "ee22", "ff23", "gg24", "hh25", "aa19", "bb20", "cc21", "dd22", "ee23", "ff24", "gg25", "hh26", "aa20", "bb21", "aa19", "bb20", "cc21", "dd22", "ee23", "ff24", "gg25", "hh26", "aa20", "bb21", "cc22", "dd23", "ee24", "ff25", "gg26", "hh27", "aa21", "bb22", _
   
8.     "aa20", "bb21", "cc22", "dd23", "ee24", "ff25", "gg26", "hh27", "aa21", "bb22", "cc23", "dd24", "ee25", "ff26", "gg27", "hh28", "aa22", "bb23", "aa21", "bb22", "cc23", "dd24", "ee25", "ff26", "gg27", "hh28", "aa22", "bb23", "cc24", "dd25", "ee26", "ff27", "gg28", "hh29", "aa23", "bb24", "aa22", "bb23", "cc24", "dd25", "ee26", "ff27", "gg28", "hh29", "aa23", "bb24", "cc25", "dd26", "ee27", "ff28", "gg29", "hh30", "aa24", "bb25", "aa23", "bb24", "cc25", "dd26", "ee27", "ff28", "gg29", "hh30", "aa24", "bb25", "cc26", "dd27", "ee28", "ff29", "gg30", "hh31", "aa25", "bb26", "aa24", "bb25", "cc26", "dd27", "ee28", "ff29", "gg30", "hh31", "aa25", "bb26", "cc27", "dd28", "ee29", "ff30", "gg31", "hh32", "aa26", "bb27", "aa25", "bb26", "cc27", "dd28", "ee29", "ff30", "gg31", "hh32", "aa26", "bb27", "cc28", "dd29", "ee30", "ff31", "gg32", "hh33", "aa27", "bb28", _
   
9.     "aa26", "bb27", "cc28", "dd29", "ee30", "ff31", "gg32", "hh33", "aa27", "bb28", "cc29", "dd30", "ee31", "ff32", "gg33", "hh34", "aa28", "bb29", "aa27", "bb28", "cc29", "dd30", "ee31", "ff32", "gg33", "hh34", "aa28", "bb29", "cc30", "dd31", "ee32", "ff33", "gg34", "hh35", "aa29", "bb30", "aa28", "bb29", "cc30", "dd31", "ee32", "ff33", "gg34", "hh35", "aa29", "bb30", "cc31", "dd32", "ee33", "ff34", "gg35", "hh36", "aa30", "bb31", "aa29", "bb30", "cc31", "dd32", "ee33", "ff34", "gg35", "hh36", "aa30", "bb31", "cc32", "dd33", "ee34", "ff35", "gg36", "hh37", "aa31", "bb32", "aa30", "bb31", "cc32", "dd33", "ee34", "ff35", "gg36", "hh37", "aa31", "bb32", "cc33", "dd34", "ee35", "ff36", "gg37", "hh38", "aa32", "bb33", "aa31", "bb32", "cc33", "dd34", "ee35", "ff36", "gg37", "hh38", "aa32", "bb33", "cc34", "dd35", "ee36", "ff37", "gg38", "hh39", "aa33", "bb34", _
   
10.     "aa32", "bb33", "cc34", "dd35", "ee36", "ff37", "gg38", "hh39", "aa33", "bb34", "cc35", "dd36", "ee37", "ff38", "gg39", "hh40", "aa34", "bb35", "aa33", "bb34", "cc35", "dd36", "ee37", "ff38", "gg39", "hh40", "aa34", "bb35", "cc36", "dd37", "ee38", "ff39", "gg40", "hh41", "aa35", "bb36", "aa34", "bb35", "cc36", "dd37", "ee38", "ff39", "gg40", "hh41", "aa35", "bb36", "cc37", "dd38", "ee39", "ff40", "gg41", "hh42", "aa36", "bb37", "aa35", "bb36", "cc37", "dd38", "ee39", "ff40", "gg41", "hh42", "aa36", "bb37", "cc38", "dd39", "ee40", "ff41", "gg42", "hh43", "aa37", "bb38", "aa36", "bb37", "cc38", "dd39", "ee40", "ff41", "gg42", "hh43", "aa37", "bb38", "cc39", "dd40", "ee41", "ff42", "gg43", "hh44", "aa38", "bb39", "aa37", "bb38", "cc39", "dd40", "ee41", "ff42", "gg43", "hh44", "aa38", "bb39", "cc40", "dd41", "ee42", "ff43", "gg44", "hh45", "aa39", "bb40", _
    
11.     "aa38", "bb39", "cc40", "dd41", "ee42", "ff43", "gg44", "hh45", "aa39", "bb40", "cc41", "dd42", "ee43", "ff44", "gg45", "hh46", "aa40", "bb41", "aa39", "bb40", "cc41", "dd42", "ee43", "ff44", "gg45", "hh46", "aa40", "bb41", "cc42", "dd43", "ee44", "ff45", "gg46", "hh47", "aa41", "bb42", "aa40", "bb41", "cc42", "dd43", "ee44", "ff45", "gg46", "hh47", "aa41", "bb42", "cc43", "dd44", "ee45", "ff46", "gg47", "hh48", "aa42", "bb43", "aa41", "bb42", "cc43", "dd44", "ee45", "ff46", "gg47", "hh48", "aa42", "bb43", "cc44", "dd45", "ee46", "ff47", "gg48", "hh49", "aa43", "bb44", "aa42", "bb43", "cc44", "dd45", "ee46", "ff47", "gg48", "hh49", "aa43", "bb44", "cc45", "dd46", "ee47", "ff48", "gg49", "hh50", "aa44", "bb45", "aa43", "bb44", "cc45", "dd46", "ee47", "ff48", "gg49", "hh50", "aa44", "bb45", "cc46", "dd47", "ee48", "ff49", "gg50", "hh51", "aa45", "bb46", _
    
12.     "aa44", "bb45", "cc46", "dd47", "ee48", "ff49", "gg50", "hh51", "aa45", "bb46", "cc47", "dd48", "ee49", "ff50", "gg51", "hh52", "aa46", "bb47", "aa45", "bb46", "cc47", "dd48", "ee49", "ff50", "gg51", "hh52", "aa46", "bb47", "cc48", "dd49", "ee50", "ff51", "gg52", "hh53", "aa47", "bb48", "aa46", "bb47", "cc48", "dd49", "ee50", "ff51", "gg52", "hh53", "aa47", "bb48", "cc49", "dd50", "ee51", "ff52", "gg53", "hh54", "aa48", "bb49", "aa47", "bb48", "cc49", "dd50", "ee51", "ff52", "gg53", "hh54", "aa48", "bb49", "cc50", "dd51", "ee52", "ff53", "gg54", "hh55", "aa49", "bb50", "aa48", "bb49", "cc50", "dd51", "ee52", "ff53", "gg54", "hh55", "aa49", "bb50", "cc51", "dd52", "ee53", "ff54", "gg55", "hh56", "aa50", "bb51", "aa49", "bb50", "cc51", "dd52", "ee53", "ff54", "gg55", "hh56", "aa50", "bb51", "cc52", "dd53", "ee54", "ff55", "gg56", "hh57", "aa51", "bb52", _
    
13.     "aa50", "bb51", "cc52", "dd53", "ee54", "ff55", "gg56", "hh57", "aa51", "bb52", "cc53", "dd54", "ee55", "ff56", "gg57", "hh58", "aa52", "bb53", "aa51", "bb52", "cc53", "dd54", "ee55", "ff56", "gg57", "hh58", "aa52", "bb53", "cc54", "dd55", "ee56", "ff57", "gg58", "hh59", "aa53", "bb54", "aa52", "bb53", "cc54", "dd55", "ee56", "ff57", "gg58", "hh59", "aa53", "bb54", "cc55", "dd56", "ee57", "ff58", "gg59", "hh60", "aa54", "bb55", "aa53", "bb54", "cc55", "dd56", "ee57", "ff58", "gg59", "hh60", "aa54", "bb55", "cc56", "dd57", "ee58", "ff59", "gg60", "hh61", "aa55", "bb56", "aa54", "bb55", "cc56", "dd57", "ee58", "ff59", "gg60", "hh61", "aa55", "bb56", "cc57", "dd58", "ee59", "ff60", "gg61", "hh62", "aa56", "bb57", "aa55", "bb56", "cc57", "dd58", "ee59", "ff60", "gg61", "hh62", "aa56", "bb57", "cc58", "dd59", "ee60", "ff61", "gg62", "hh63", "aa57", "bb58", _
    
14.     "aa56", "bb57", "cc58", "dd59", "ee60", "ff61", "gg62", "hh63", "aa57", "bb58", "cc59", "dd60", "ee61", "ff62", "gg63", "hh64", "aa58", "bb59", "aa57", "bb58", "cc59", "dd60", "ee61", "ff62", "gg63", "hh64", "aa58", "bb59", "cc60", "dd61", "ee62", "ff63", "gg64", "hh65", "aa59", "bb60", "aa58", "bb59", "cc60", "dd61", "ee62", "ff63", "gg64", "hh65", "aa59", "bb60", "cc61", "dd62", "ee63", "ff64", "gg65", "hh66", "aa60", "bb61", "aa59", "bb60", "cc61", "dd62", "ee63", "ff64", "gg65", "hh66", "aa60", "bb61", "cc62", "dd63", "ee64", "ff65", "gg66", "hh67", "aa61", "bb62", "aa60", "bb61", "cc62", "dd63", "ee64", "ff65", "gg66", "hh67", "aa61", "bb62", "cc63", "dd64", "ee65", "ff66", "gg67", "hh68", "aa62", "bb63", "aa61", "bb62", "cc63", "dd64", "ee65", "ff66", "gg67", "hh68", "aa62", "bb63")
    
15.     With ActiveDocument
    
16.         For i = 0 To UBound(arr)
    
17.             With .Content.Find
    
18.                 .ClearFormatting
    
19.                 .Text = arr(i)
    
20.                 .Forward = True
    
21.                 .MatchWildcards = True
    
22.                 Do While .Execute
    
23.                     With .Parent
    
24.                         With .Font
    
25.                             .Size = 13
    
26.                             .Bold = True
    
27.                             .Color = wdColorRed
    
28.                         End With
    
29.                         .Start = .End
    
30.                     End With
    
31.                 Loop
    
32.             End With
    
33.         Next
    
34.     End With
    
35.     Erase arr
    
36.     Application.ScreenUpdating = True
    
37.     MsgBox "Cost-Time = " & Timer - t & " Seconds.", 0 + 48
    
38. End Sub

复制代码

wdpfox

先把重复选项去掉吧

libin171

辛苦！前后速度差不多，依然很感谢

libin171

wdpfox 发表于 2021-2-15 11:54
先把重复选项去掉吧

这个是测试数据，模拟一下平时遇到的情况，优化匹配文本是个思路，但是文本数量也在1000左右，依然感谢

wdpfox

libin171 发表于 2021-2-15 16:04
这个是测试数据，模拟一下平时遇到的情况，优化匹配文本是个思路，但是文本数量也在1000左右，依然感谢

明白了         

libin171

up excel vba区也同时问了  目前没有啥好的办法

413191246se

楼主，我觉得 18 秒左右也很好了！稍等一下就可以了，不算太慢。（加粗/标红/变字号，这 3 项是否都需要？如果只想标红，则另外两项参数最好删除，又能提高一些。）

sylun

如果对文档进行频繁编辑修改，使可撤销的操作数大量增加，可能会影响内存占用。可试试适当使用UndoClear方法清除可对指定文档撤消的操作列表，这样会导致操作变得不可撤销