统计Word中某选中的字符串在文档中出现的次数
Sub strcnt()
stt = Selection.Text
' 移动光标至文档开始处;
Selection.HomeKey Unit:=wdStory
' 查找字符串;
With Selection.Find
.Text = stt
.Execute
While .Found()
cnt = cnt + 1
.Execute
Wend
End With
MsgBox "该字符串在文档中出现" & cnt & "次"
End Sub
代码分析:
利用selection对话的属性和方法:Text、Find、Execute
运行效果如下: