Word VBA 寻找所在表格的序列号

2018-05-04 05:30:06 1.7k 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

广义平均（Generalized Mean, GeM）本位介绍了广义平均操作的定义和简要推导，帮助大家理解其含义。阅读详情

Selection.RowIndex 可以得出当前选中的单元格在所在表格中的行
Selection.ColumnIndex 可以得出当前选中的单元格在所在表格中的列

但问题是当前的表格怎么获取呢？比如 Selection.TablesIndex之类的属性。

以下代码中的获取表名有问题，请高手给予正确的代码。

Sub 宏1()

    Dim StrAddr As String

    ' This macro displays the address of a table's selected cell range

    ' and the table’s last cell address on Word's Status Bar

    With Selection

        If .Information(wdWithInTable) = True Then

            StrAddr = "The selected "



            If .Cells.Count = 1 Then

                StrAddr = "T" & Selection.Tables(1).Range.Start & "R" & .Cells(1).RowIndex & "C" & .Cells(1).ColumnIndex

            Else

                StrAddr = "No Table Or More Tables "

            End If

        End If

    End With



    Call CopyToClipbox(StrAddr)



    MsgBox StrAddr





End Sub