Do While .Execute 循环内只留 .Execute 查找速度特别快！

413191246se

* 这两天，跟 ming0018 老师 学到一手，就是《查找和替换》操作中，把查找文本/通配符/向前属性 要放在循环外面，循环里面只留一个 .Execute 即可，这样查找速度特别快！测试通过。
* 我过去都是这样写：Do While .Execute("aa",,,1,,,1) 两个1分别是通配符和 向前(Forward)属性为TRUE，但实践证明，这样写很好看，都在一行，但是速度不敢恭维，还是 ming0018 老师 的写法速度极快！
* 我希望大家以后写查找语句时都要如此。
*下面是依照 ming0018 老师 的写法查找词语并设置为红色的示例，两者几乎一样快（但都没加 .ClearFormatting清除格式，这有待观察），感兴趣的朋友们可以测试一下：
* 优化前：.64秒，优化后：.53秒（如果连.ClearFormatting等语句也不要，则继续提速为：.46秒）
* 但为了保险起见，最好是，.ClearFormatting 和 .Forward=True 和 .MatchWildcards=True 这三行语句也要写上，以免哪天查找时看得见，找不到。
* 更新后的代码：

1. Sub 查找词语转红色1()
   
2.     With ActiveDocument.Content.Find
   
3.         .ClearFormatting
   
4.         .Text = "校园"
   
5.         .Forward = True
   
6.         .MatchWildcards = True
   
7.         Do While .Execute
   
8.             .Parent.Font.Color = wdColorRed '红色
   
9.         Loop
   
10.     End With
    
11. End Sub
    
12. Sub 查找词语转红色2()
    
13.     With Selection.Find
    
14.         .Parent.HomeKey Unit:=wdStory
    
15.         .Text = "校园"
    
16.         .Forward = True
    
17.         .MatchWildcards = True
    
18.         Do While .Execute
    
19.             .Parent.Font.Color = wdColorRed '红色
    
20.         Loop
    
21.     End With
    
22. End Sub

复制代码

ming0018

仅仅只是找查替换　直接　.execute replace:=wdreplaceall 啊

413191246se

谢谢 ming 老师！——用 ActiveDocument.Content.Find 怎么找到类似“十一、改革开放”这样的段落？
我也想少用 Selection，多用 Range，但有时做不到。

413191246se

下午想优化《第一章/第一条》宏，结果，测试时发现，有些“第X章”没有找到，失败了！重新又到压缩包中找回来原版。所以，优化后也要测试一番，以免出错。

ming0018

413191246se 发表于 2018-12-28 19:03
谢谢 ming 老师！——用 ActiveDocument.Content.Find 怎么找到类似“十一、改革开放”这样的段落？
我也 ...

.parent.start = .parent.paragraphs(1).range.start

413191246se

谢谢 ming 老师！楼上代码不明白什么意思。——我更新了《Word2003VBA通用模板宏（元旦版）》，ming 老师 有时间的话，可以指点我一二，代码如何减肥，我的愿望是代码大小<100KB。

ming0018

413191246se 发表于 2018-12-29 13:20
谢谢 ming 老师！楼上代码不明白什么意思。——我更新了《Word2003VBA通用模板宏（元旦版）》，ming 老师  ...

有空我去看看，或者你发我ＱＱ邮箱。

413191246se

ming 老师，我的帖子在第 8 位，你可以自己下载一下看看，我就不发你 QQ 邮箱了，我可不想付费编程啊！
还有，请问 ming 老师，我出一个难题：Word 怎么才能删除所有新样式，恢复内置默认样式呢？