Word vba 에서 현재 표 의 번 호 를 가 져 옵 니 다.

Sub         ()
    
    With Selection
        If .Information(wdWithInTable) = True Then
            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
        Else
            MsgBox "       ", vbOKOnly + vbCritical, "  "
            Exit Sub
        End If
    End With
    
    Dim tempTable As Table
    Dim i As Integer
    i = 1
    
    For Each tempTable In ActiveDocument.Tables
        tempTable.ID = i
        i = i + 1
    Next
    
    MsgBox "     " & Selection.Tables(1).ID & "   ", vbOKOnly + vbInformation, "      "
    
End Sub