FindRange 宏——重大修正！

天地惠

谢谢413191246se老师的耐心解答

413191246se

* 最新更新：

1. Sub FindRange()
   
2. '选区查找/未选则全选/光标不动/不激活对象/速度极快！
   
3.     Dim r As Range
   
4.     Set r = IIf(Selection.Type = wdSelectionIP, ActiveDocument.Content, Selection.Range)
   
5.     With r.Find
   
6.         .ClearFormatting
   
7.         .Text = "China"
   
8.         .Forward = True
   
9.         .MatchWildcards = True
   
10.         Do While .Execute
    
11.             With .Parent
    
12.                 If .Start > Selection.End Then Exit Do
    
13.                 .Font.Color = wdColorRed
    
14. '                .Start = .End
    
15.             End With
    
16.         Loop
    
17.     End With
    
18. End Sub

复制代码