如何使用VBA宏选择Microsoft Word文档中的每个表

我正在寻找一种方法（或体面的介绍），了解如何选择Microsoft Word 2013文档中的每个表并自动调整内容。每个表彼此独立，并由文本分隔

到目前为止，我已经制定了以下准则：

Sub autofit()

    Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)

End Sub

它适用于单个表和所述表中的每一列，我理解“for循环”的格式，但希望了解如何将我的单个选择转换为整个文档

---

这是我的第一篇帖子，所以对于我错过的任何约定，我深表歉意。

将它们全部循环起来是非常简单的

Dim t As Table
For Each t In ActiveDocument.Tables
    t.AutoFitBehavior wdAutoFitContent
Next

---

非常好，谢谢，我不知道的是ActiveDocument。基本的我知道，但我对VBA完全陌生。