长安山南君的博客

补充参考该文 在WORD中用VBA实现光标移动与内容选择Private Function stringTatalNum(str As String) As Integer'全文查找字符出现个数，并返回总数 Dim n n = 0 ActiveDocument.Range.Select Selection.Find.ClearFormatting With Select...

Sub 查找相同字符个数()Text = InputBox("请输入您要查找到字符：", "信息提示")Dim result As StringFor i = 1 To 45Text = "[" + Trim(str(i)) + "]" '注意数值转成字符串会在前面加上空格，所以要用trim去除空格Text = Trim(Text) With ActiveDocume...