【办公-WORD】VBA 统计相同字符(文字)出现的个数

1、启动VBA

使用快捷键“Alt+F11”启动VBA

2、输入VBA代码

Sub 查找相同字符个数()
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、运行代码

使用快捷键“F5”运行代码，出现如下所示的对话框，输入你想统计的字符或字符串。