Dim Tbl As Table For Each Tbl In ActiveDocument.Tables With Tbl 'Process the table here End With Next