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

1、启动VBA

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

2、输入VBA代码

Sub 查找相同字符个数()Text = InputBox("请输入您要查找到字符：", "信息提示")With ActiveDocument.Content.FindDo While .Execute(FindText:=Text) = Truetim = tim + 1LoopEnd WithMsgBox ("当前文档共查找到" + Str(tim) + "个" + Text), 48, "搜索结果提示"End Sub

3、运行代码

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