Word中统计指定字符出现次数的宏代码

　　宏代码
　　Sub tjText()
　　tjzf = InputBox("请输入要统计的字符串：","字符统计")
　　With ActiveDocument.Content.Find
　　Do While .Execute(FindText:=tjzf) = True
　　zifu = zifu + 1
　　Loop
　　End With
　　MsgBox ("字符“" + tjzf + "”" + "在本文中共出现了 " + Str(zifu) + " 次 "),0,"字符统计结果"
　　End Sub

　　说明
　　①宏代码中“tjzf”和“zifu”变量，可以修改为其他字符。
　　②该宏运行时，会弹出一个对话框，要求输入统计的字符；按下“确定”按钮后，会弹出统计结果消息框。