作者：绿色风
分类：
时间：2022-08-18
浏览：120
楼主
传递 |
用宏命令统计word文本出现次数
有的时候，我们要在一个文档中查找某个文本出现的总次数，也就是查找该文本的总数量，例如在一份违纪登记表格中查找一个姓名被记载的总数，类似的应用还有很多。但Word没有这样的功能，可以用宏，使Word具有统计单个文本总数量的功能。
 下面介绍实现方法。 第一步 单击Word菜单[工具]→[宏]→[宏]，输入宏的名称“查找自定义文本” ，然后单击[创建]按钮。 第二步 在弹出的VisualBasic编辑器的代码窗口中完成以下内容：
- Sub FindText()
- Text = InputBox("请输入要查找的文本：", "提示")
- With ActiveDocument.Content.Find
- Do While .Execute(FindText:=Text) = True
- tim = tim + 1
- Loop
- End With
- MsgBox ("当前文档查找到 " + Str(tim) + " 个 " + Text), 48, "完成"
- End Sub
第三步 录入完毕后，单击菜单[文件]→[关闭并返回到Word。 以后要统计文本数量时，只要单击[编辑]→[查找文本数量]，按提示输入要查找的内容，单击[确定]就得到统计结果。 |
2楼
chenlifeng |
太牛了！ |
3楼
樊可乐 |
不错哦，是个好东东了，学习了 |
4楼
tangqingfu |
谢谢楼主的分享！ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一