有时候我们要在个文档中查找某个文本出现总次数也就是查找该文本总数量例如在份违纪登记表格中查找个姓名被记载总数类似应用还有很多但Word没有这样功能我编写了个宏使Word具有统计单个文本总数量功能下面介绍实现思路方法

　　图1

　　第步 单击Word菜单[工具]→[宏]→[宏]输入宏名称“FindText” 然后单击[创建]按钮

　　第 2步 在弹出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

　　第 3步 录入完毕后单击菜单[文件]→[关闭并返回到Micrcsoft后Word]

　　第 4步 单击菜单[工具]→[自定义]单击“命令”选项卡在“类别”中选择“宏”将右边“Normal.NewMacros.FindText”命令拖入“编辑”菜单中并右击拖入命令在“命名”框中重命名为“查找文本数量”(如图)

　　以后要统计文本数量时只要单击[编辑]→[查找文本数量]按提示输入要查找内容单击[确定]就得到统计结果