VBA 查找（宏）通用代码 2019-6-3

413191246se

1. Sub 查找_通用_ActiveDocument()
   
2. '全文查找：不激活对象/不选定文字内容/查找后光标不动/速度极快
   
3.     With ActiveDocument.Content.Find
   
4.         .ClearFormatting
   
5.         .Text = "[0-9. 　^s^t,，]{1,}元"
   
6.         .Forward = True
   
7.         .MatchWildcards = True
   
8.         Do While .Execute
   
9.             With .Parent
   
10. '                .Select
    
11.                 .Font.Color = wdColorRed
    
12. '                .Start = .End
    
13.             End With
    
14.         Loop
    
15.     End With
    
16. End Sub
    
17. Sub 查找_通用_Selection()
    
18. '全文查找：激活对象/选定文字内容/查找后光标移动/速度较快
    
19.     With Selection
    
20.         .HomeKey Unit:=wdStory
    
21.         With .Find
    
22.             .ClearFormatting
    
23.             .Text = "[0-9. 　^s^t,，]{1,}元"
    
24.             .Forward = True
    
25.             .MatchWildcards = True
    
26.             Do While .Execute
    
27.                 With .Parent
    
28.                     .Font.Color = wdColorRed
    
29. '                    .Start = .End
    
30.                 End With
    
31.             Loop
    
32.         End With
    
33.     End With
    
34. End Sub
    
35. Sub 查找_通用_Range()
    
36. '选区查找：不激活对象/仅在选定区域内查找文字(未选则全选)/速度较快
    
37.     Dim r As Range, a As Range
    
38.     With Selection
    
39.         If .Type = wdSelectionIP Then .WholeStory
    
40.         Set r = .Range
    
41.         Set a = .Range
    
42.     End With
    
43.     With r.Find
    
44.         .ClearFormatting
    
45.         .Text = "[0-9. 　^s^t,，]{1,}元"
    
46.         .Forward = True
    
47.         .MatchWildcards = True
    
48.         Do While .Execute
    
49.             With .Parent
    
50. '                .Select
    
51.                 .Font.Color = wdColorRed
    
52.                 If .Information(12) Then .Start = .End Else .SetRange Start:=.End, End:=a.End
    
53. '                .Select
    
54.             End With
    
55.         Loop
    
56.     End With
    
57. End Sub
    
58. Sub 查找_通用_取消加粗()
    
59. '全文查找(微软官方代码)
    
60.     With ActiveDocument.Content.Find
    
61.         .ClearFormatting
    
62.         .Font.Bold = True
    
63.         With .Replacement
    
64.             .ClearFormatting
    
65.             .Font.Bold = False
    
66.         End With
    
67.         .Execute FindText:="", ReplaceWith:="", Format:=True, Replace:=wdReplaceAll
    
68.     End With
    
69. End Sub
    
70. Sub 查找替换()
    
71. '全文查找 aa 全部替换为 bb(标准)
    
72.     ActiveDocument.Content.Find.Execute FindText:="aa", MatchWildcards:=True, ReplaceWith:="bb", Replace:=wdReplaceAll
    
73. End Sub
    
74. Sub 查找替换2()
    
75. '全文查找 aa 全部替换为 bb(简写)-- 1 的作用和 MatchWildcards:=True(勾选使用通配符)相同
    
76.     ActiveDocument.Content.Find.Execute "aa", , , 1, , , , , , "bb", 2
    
77. End Sub

复制代码