Sub Demo1()
Dim i As along
With ActiveDocument
  For i = 1 To .Tables.Count
    'process the table
    With .Tables(i)
    'table processing code goes here
    End With
    'or, perhaps:
    .Tables(i).Range.Copy
  Next
End With
End Sub

Sub Demo2()
Dim Tbl As Table
For Each Tbl In ActiveDocument.Tables
  'process the table
  With Tbl
    'table processing code goes here
  End With
  'or, perhaps:
  Tbl.Range.Copy
Next
End Sub