统计word文档中“人民”出现的次数

APPLE123

如题，请教大神，可否使用VBA统计word文档中关键字“人民”出现的次数，并结果弹窗报告。

谢谢！

413191246se

* 楼主，请将代码复制到 Word 中的新建文档，然后，全选，剪切，再粘贴到 VBE 中试用，以防乱码。

1. Sub a_a1128_Word_Frequency_词频统计()
   
2.     Dim s$, n&
   
3.     s = InputBox("", "请输入查询词语！", "人民")
   
4.     If s = "" Then Exit Sub
   
5.     With ActiveDocument.Content.Find
   
6.         .ClearFormatting
   
7.         .Text = s
   
8.         .Forward = True
   
9.         .MatchWildcards = True
   
10.         Do While .Execute
    
11.             With .Parent
    
12.                 .Font.Color = wdColorRed
    
13.                 n = n + 1
    
14.                 .Start = .End
    
15.             End With
    
16.         Loop
    
17.     End With
    
18.     MsgBox "【" & s & "】全文出现次数 = " & n, 0 + 48, "词频统计"
    
19. End Sub

复制代码

APPLE123

413191246se 发表于 2022-11-28 02:18
* 楼主，请将代码复制到 Word 中的新建文档，然后，全选，剪切，再粘贴到 VBE 中试用，以防乱码。

谢谢老师！正是我所需要的

梧叶沙沙

用插件可以统计，支持一次性统计多个关键词。
word魔方

单击下载
https://www.vbashuo.top/wordtool