有的时候,我们要在一个文档中查找某个文本出现的总次数,也就是查找该文本的总数量,例如在一份违纪登记表格中查找一个姓名被记载的总数,类似的应用还有很多。但Word没有这样的功能,我编写了一个宏,使Word具有统计单个文本总数量的功能。下面介绍实现方法。
图1 第一步 单击Word菜单[工具]→[宏]→[宏],输入宏的名称“FindText” ,然后单击[创建]按钮。
第二步 在弹出的VisualBasic编辑器的代码窗口中完成以下内容:
Sub FindText()
Text = InputBox("请输入要查找的文本:", "提示")
With ActiveDocument.Content.Find
Do While .Execute(FindText:=Text) = True
ti...
[ 查看全文 ]