Word 循环查找

asd2436208asd

比如我在word里输入 2121212221212121212       查找212 如何才能显示出8的结果， 查找只能找到5个。

相见是缘8

这个用手动“查找＼替换”就是这个结果呀！
打开 Word 文档，同时按电脑键盘上的 Ctrl 和 H 键，调出“查找\替换”框，再点框内的“高级”，勾选框内的“使用通配符”。
在查找内容框内输入：212
点击框内的“查找全部”按钮，即可。

413191246se

1. Sub Find_Selection_Times()
   
2.     Dim n&
   
3.     With Selection
   
4.         .HomeKey Unit:=wdStory
   
5.         With .Find
   
6.             .ClearFormatting
   
7.             .Text = "212"
   
8.             .Replacement.Text = ""
   
9.             .Forward = True
   
10.             .MatchWildcards = True
    
11.             Do While .Execute
    
12.                 With .Parent
    
13.                     If n Mod 2 Then .Font.Underline = wdUnderlineDouble Else .Font.Underline = wdUnderlineSingle
    
14.                     If n Mod 2 Then .Font.Color = wdColorRed Else .Font.Color = wdColorGreen
    
15.                     .MoveLeft
    
16.                     .MoveRight
    
17.                     n = n + 1
    
18.                 End With
    
19.             Loop
    
20.         End With
    
21.     End With
    
22.     MsgBox "查找个数 = " & n, 0 + 48
    
23. End Sub

复制代码

asd2436208asd

413191246se 发表于 2019-12-6 10:36

谢谢你，加载这个宏 可以得到8了

asd2436208asd

相见是缘8 发表于 2019-12-6 07:24
这个用手动“查找＼替换”就是这个结果呀！
打开 Word 文档，同时按电脑键盘上的 Ctrl 和 H 键，调出“查 ...

用来这个 最后显示出来还是5的， 只有单个单个查找下一步 他才会显示出8个？

相见是缘8

asd2436208asd 发表于 2019-12-6 11:58
用来这个 最后显示出来还是5的， 只有单个单个查找下一步 他才会显示出8个？

啊！你是要查找到8个212的结果呀，我以为你要的是你如图所示的结果。