Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oTbl As Object
Dim oTbl2 As Table
Dim lngIndex As Long
  For Each oTbl In ActiveDocument.Tables
    MsgBox TypeName(oTbl)
    oTbl.Range.Cells(1).Range.Text = "AAA"
    MsgBox oTbl.Rows.Count
  Next oTbl
  For Each oTbl2 In ActiveDocument.Tables
    oTbl2.Range.Cells(1).Range.Text = "BBB"
    MsgBox oTbl2.Rows.Count
  Next oTbl2
  For lngIndex = 1 To ActiveDocument.Tables.Count
    ActiveDocument.Tables(lngIndex).Range.Cells(1).Range.Text = "CCC"
    MsgBox ActiveDocument.Tables(lngIndex).Rows.Count
  Next
lbl_Exit:
  Exit Sub
End Sub