代码如下:
Sub SelectTextNodeByNumber() Dim tnNum As Integer Dim sc As New ElementScanCriteria Dim ee As ElementEnumerator If ActiveModelReference.AnyElementsSelected Then ActiveModelReference.UnselectAllElements tnNum = CInt(KeyinArguments) sc.ExcludeAllTypes sc.IncludeType msdElementTypeTextNode Set ee = ActiveModelReference.Scan(sc) Do While ee.MoveNext If ee.Current.AsTextNodeElement.NodeNumber = tnNum Then ActiveModelReference.SelectElement ee.Current Exit Do End If Loop End Sub
调用方法是:VBA RUN [ProjectName]SelectTextNodeByNumber xxx
其中的ProjectName是你将该宏保存到的MVBA文件的名称(其实是VBA项目名称,一般这两个名称是一致的),xxx表示具体的文本节点号。执行该键入命令后会将您指定的文本节点选入当前的选择集中。