代码如下：

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表示具体的文本节点号。执行该键入命令后会将您指定的文本节点选入当前的选择集中。