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

Question

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

到目前为止，我已经建立了以下代码：

Sub autofit()

    Selection.Tables(1).AutoFitBehavior (wdAutoFitContent)

End Sub

哪个适用于表中的各个表和每一列，我理解“for循环”的格式，但是想要如何将我的个人选择转换为整个文档。

这是我的第一篇文章，对我错过的任何惯例表示歉意。

Answer 1

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

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