在用word编辑文档的时候，有时候需要在统计某个字/词/句/短/符号/字母/单词……在这篇文章中出现的次数，如果用查找的方式一个一个找，进行叠加，太麻烦。本文以word 2007为例，用宏实现一个一键式命令。工具/原料more宏 VBA步骤/方法1/8分步阅读点击【开发工具】菜单下面的【宏】命令按钮，如果在word窗口的菜单栏上没有【开发工具】这个菜单，则需要进行设置：打开【word选项】对话框，在【常用】选项卡中，勾上选项【在功能区显示“开发工具”选项卡(D)】，然后就可以打开宏了。2/8在【宏】的对话框中，在宏名中输入“FindText”，然后点【创建】按钮，如图 3/8创建宏的同时，就打开了在VB窗口。在【代码】窗口中，输入以下代码：

Sub FindText()Text = InputBox("请输入要查找的文本：", "提示")With ActiveDocument.Content.FindDo While .Execute(FindText:=Text) = Truetim = tim + 1LoopEnd WithMsgBox ("当前文档查找到 " + Str(tim) + " 个 " + Text), 47, "完成"End Sub

然后点保存按钮，并关闭VB窗口，返回到word窗口。

4/85/8在word窗口的菜单栏的空白处点击右键，选择【自定义快速访问工具栏】，即打开了【word选项】中的【自定义】选项卡。6/8在【从下列位置选择命令】的下拉列表中选择【宏】，下面就会列出所有创建的宏，选中刚才创建的宏“Normal.NewMacros.FindText”，然后点击中间的【添加(A)】按钮，就把这个宏添加到了右侧列表中，在右侧选中“Normal.NewMacros.FindText”，点击下方的【修改(M)】命令，在这里可以修改这个命令的图标和名称，随便选择一个图标，然后把名称改为“统计文本数量”，【确定】即可。7/8设置完成之后，在word 2007的快速工具栏上面就有了此图标，点击它，就可以实现功能。8/8如果要查询在一个文档中某个词的使用次数，就可以点击该命令，进行统计了。注意事项

在word2003和之前的版本里，同样按照这种方法创建宏，把此功能加入到菜单的命令里面的方法略有不同，但大致思路是一样的。

word统计