Adds IDs to MS Word Table in Selection

AddsIDtoTableInSelection.vba

Public Sub test()

Dim tbl As Word.Table
Dim c As Long
Dim n As Long

Set tbl = Word.Selection.Tables(1)

c = 0
For n = 1 To tbl.Rows.Count

    If n > 1 Then
        c = c + 1
        tbl.Cell(n, 1).Range.Text = CStr(c) & "."
    End If
Next n
        

End Sub