Word VBA技术:统计指定文本在文档中出现了多少次
2023-06-13 09:17:15 时间
标签:Word VBA
有时候,我们可能需要统计特定的文字/文本在文档中出现的次数,例如某某报告中出现了多少次“人民”,某某文件中写了多少个“精神”,等等。一个一个数肯定是最愚蠢的方法,特别是对于万字长文来说,不仅费时,而且不准确。而使用程序来帮助我们统计是好方法之一。
下面的代码允许你输入想要统计的文字,然后报告你该文字在文档中出现的次数。代码如下:
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
相关文章
- 搭建高考文档
- Boost.Lockfree官方文档[通俗易懂]
- 熬夜爆肝整理的elasticsearch中文手册文档
- 再见Swagger UI 国人开源了一款超好用的 API 文档生成框架,真香
- !DOCTYPE html文档类型声明
- PDF 文档编辑神器 Adobe Acrobat-最牛逼的PDF编辑器
- Word VBA技术:一组操作文档表格的代码
- Word VBA技术:统计文档中每个字母字符的数量
- 泛微-采知连文档协作平台:采集、存储、协作更高效智能
- MongoDB插入、更新、删除文档实现代码
- 文档数据库 OrientDB v2.2.18 发布详解大数据
- 《Drools6.4 中文文档》管理(组织单元&资源库)详解编程语言
- Java编程指南:Redis文档(javaredis文档)
- 编写项目文档时要问自己的 5 个问题
- MySQL使用指南灵活运用C语言调用数据库(c mysql帮助文档)
- 狂神点评Redis文档深度剖析细节(狂神说redis文档)
- 解析phpDOMElement操作xml文档的实现代码