用Word统计文本出现次数

来源：百度文库 编辑：神马文学网 时间：2024/04/28 12:58:30
不详     2006-02-24 14:29:59   View: 4   [Come back]
有的时候，我们要在一个文档中查找某个文本出现的总次数，也就是查找该文本的总数量，例如在一份违纪登记表格中查找一个姓名被记载的总数，类似的应用还有很多。但Word没有这样的功能，我编写了一个宏，使Word具有统计单个文本总数量的功能。下面介绍实现方法。

第一步 单击Word菜单[工具]→[宏]→[宏]，输入宏的名称“FindText” ，然后单击[创建]按钮。
第二步 在弹出的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
第三步 录入完毕后，单击菜单[文件]→[关闭并返回到Micrcsoft后Word]。
第四步 单击菜单[工具]→[自定义]，单击“命令”选项卡，在“类别”中选择“宏”，将右边的“Normal.NewMacros.FindText”命令拖入“编辑”菜单中，并右击拖入的命令，在“命名”框中重命名为“查找文本数量”（如图）。
以后要统计文本数量时，只要单击[编辑]→[查找文本数量]，按提示输入要查找的内容，单击[确定]就得到统计结果。
用Word统计文本出现次数 统计google广告点击次数的方法 统计Google广告点击次数的方法 巧用键盘快速定位选定Word文本 巧用键盘快速定位选定Word文本 用“宏”功能实现精确统计Word文档字数 word 为文本加注释(转载) Word中快速改变文本字号 让Word文本边界整齐的技巧 ,如何让WORD文档自动朗读文本 在Word 2010中查看文档被修改次数 Word恢复文本转换器-修复选坏的WORD文件 word字数统计，如何计算word中字数的多少 巧借记事本和word保存网页文本 巧借记事本和word保存网页文本 如何将word中的项目编号转换为普通文本_AirPlay 可使pdf文本转换为word的方式 如何在word 中为文本加注释 简单可行的PDF转Word教程（汉王文本） 转载：WORD自带"文本恢复转换器"的使用 为Word添加“无格式文本”粘贴按钮 刷机次数多了总是出现些问题的简单解决办法【CMDA 智能机刷机】 Word中用另类方法复制文本Word－《电脑爱好者》杂志官方网站 BP世界能源统计：石油供应短缺并未出现