vba宏：我的光标在哪个表中？

编写宏时我发现我需要跳过表格内容并将光标放在紧随其后的位置，为此我使用的代码为

     Selection.Tables(cnt).Select
     Selection.Collapse WdCollapseDirection.wdCollapseEnd

在这里，cnt 是一个计数器值，每次找到表时都会增加，但是如果在选择性页面中运行宏，那么我如何知道光标所在的第 n 个表的编号。

重要的！该解决方案允许您查找文档中当前选定表格的数量。

将此函数添加到您的任何模块中：

Function WhichTableNo(RNG As Range)

If RNG.Tables.Count > 0 Then
    Dim DOC As Document
    Set DOC = RNG.Parent

    Dim rngTMP As Range
    Set rngTMP = DOC.Range(0, RNG.Tables(1).Range.End)

    WhichTableNo = rngTMP.Tables.Count
Else
    WhichTableNo = "Not in the table"
End If
End Function

要检查桌号，您可以这样称呼它：

debug.Print WhichTableNo(Selection.Range)

结果你会得到你当前所在的表的编号。