Word VBA Макросы. Как пройтись по всем таблица документа?

[Посетитель]

Как пройтись по всем таблица документа с помощью VBA?

[Администратор]

Sub Макрос()

    Dim Таблица As Table
   
   
    For Each Таблица In ActiveDocument.Tables

    Next Таблица

End Sub