这个小程序应该在当前文件中每一个选中的文字中,替换掉索检到的部分,但不知道为什么看不到运行结果(是我操作、理解错了?)。
这个案例是《学习MS vba》中第7章第16个例子。
我把命令行发上来,请各位大神帮我解答下疑惑。
Sub TextWork16()Dim TextElem As TextElementDim MyMod As ModelReferenceSet MyMod = Application.ActiveModelReferenceDim MyElems As ElementEnumeratorSet MyElems = MyMod.GetSelectedElementsDim 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 WendEnd Sub