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

软件世界

LoveOffice · 2004年3月29日

　　目的

　　在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”变量，可以修改为其他字符。

　　②该宏运行时，会弹出一个对话框，要求输入统计的字符；按下“确定”按钮后，会弹出统计结果消息框。