[MS V8i vba] 某文字索检案例运行结果看不到

这个小程序应该在当前文件中每一个选中的文字中,替换掉索检到的部分,但不知道为什么看不到运行结果(是我操作、理解错了?)。

这个案例是《学习MS vba》中第7章第16个例子。

我把命令行发上来,请各位大神帮我解答下疑惑。

Sub TextWork16()
Dim TextElem As TextElement
Dim MyMod As ModelReference
Set MyMod = Application.ActiveModelReference
Dim MyElems As ElementEnumerator
Set MyElems = MyMod.GetSelectedElements
Dim MyElem As Element
While MyElems.MoveNext
Set MyElem = MyElems.Current
Select Case MyElem.Type
Case msdElementTypeText
Set TextElem = MyElem
If InStr(1, TextElem.Text, "[BY]") > 0 Then
TextElem.Text = Replace(TextElem.Text, "[BY]", "hhpdi")
TextElem.Rewrite
End If
End Select
Wend
End Sub