Something like this might get you close:
Code:
Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Table
Dim oRng As Range
Dim strList As String
Dim oRow As Row
Dim lngRow As Long
For Each oTbl In ActiveDocument.Tables
If oTbl.Style = "Table Grid" Then
Set oRng = oTbl.Range
oRng.Collapse wdCollapseStart
oRng.Move wdParagraph, -1
If Not oRng.Paragraphs(1).OutlineLevel < 10 Then
Do
oRng.Move wdParagraph, -1
Loop Until oRng.Paragraphs(1).OutlineLevel < 10
End If
End If
strList = oRng.Paragraphs(1).Range.ListFormat.ListString
lngRow = 0
For Each oRow In oTbl.Rows
lngRow = lngRow + 1
oRow.Cells(1).Range.Text = strList & "." & lngRow
Next oRow
Next oTbl
lbl_Exit:
Exit Sub
End Sub