Word VBA技术：统计指定文本在文档中出现了多少次

标签：Word VBA

有时候，我们可能需要统计特定的文字/文本在文档中出现的次数，例如某某报告中出现了多少次“人民”，某某文件中写了多少个“精神”，等等。一个一个数肯定是最愚蠢的方法，特别是对于万字长文来说，不仅费时，而且不准确。而使用程序来帮助我们统计是好方法之一。

下面的代码允许你输入想要统计的文字，然后报告你该文字在文档中出现的次数。代码如下：

代码语言：javascript复制

Sub CountTextOccurrence()
 Dim lngCount As Long
 Dim strSearch As String

 '设置对话框供用户输入想要查找的内容
 strSearch = InputBox$("请输入你想要搜索的文字/文本.")
 '初始化统计变量
 lngCount = 0

 '查找并统计
 With ActiveDocument.Content.Find
   .Text = strSearch
   .Format = False
   .Wrap = wdFindStop
   Do While .Execute
     lngCount = lngCount   1
   Loop
 End With

 '给出查找结果信息
 MsgBox "本文档中找到" & Chr$(34) & strSearch & Chr$(34) & "共有" & lngCount & "处."
End Sub

vba word 程序 统计

0 人点赞