[求助]怎样统计word中某一个汉字的数量?全部汉字？

huangyun

请教版主，您的代码我已经收藏。我现在遇到一个问题在长篇文档中需要统计某指定区域内的某个词出现的频次。用您的代码可以统计全文档的，我想针对现在选择的区域，也就是反白区域的指定字符（串）的统计。当然，有个变通的方法，就是将该区域文档复制到新文档来运行宏也可以统计出来。除该方法外有没有在原代码基本上修改一下，可以对指定区域一次性完成统计的。

鑫11

试一试

Sub rrt()
a = InputBox("要查找的词：", "ff")
MsgBox "找到" & UBound(Split(Selection.Text, a)) & "个"

End Sub

huangyun

强的.谢谢你.

鑫11

其实这道题手动查找也很方便，只要把查找对话框中的那个复选框选中，就可以一次性全部查找

huangyun

嗯,是挺好用的.感谢你的回复,另外下划线的替换的问题能不能帮我解决一下.麻烦你.