如果您的文档包含很多表，则可能正在寻找一种方法来修改文档中所有表的宽度。例如，您的公司标准可能要求所有表格的宽度都必须相同，从左到右延伸。

如果文档中有40个或更多的表，则分别修改它们的宽度可能非常繁琐。

下面的宏ResizeAllTables将快速执行其所说的操作-调整所有表的大小。调整表格的宽度以填充可用的边距。

Sub ResizeAllTables()

Dim oTbl As Table     For Each oTbl In ActiveDocument.Tables         oTbl.AutoFitBehavior wdAutoFitFixed         With ActiveDocument.PageSetup             oTbl.PreferredWidth = .PageWidth - .LeftMargin - .RightMargin         End With     Next oTbl End Sub

宏完成后，您仍然应该检查每个表，以确保您的列宽适合您的数据，但是表的总宽度将符合您的预期。

注意：

如果您想知道如何使用此页面（或_WordTips_网站上的任何其他页面）中描述的宏，我准备了一个包含有用信息的特殊页面。

点击此处在新的浏览器标签中打开该特殊页面。

_WordTips_是您进行经济有效的Microsoft Word培训的来源。

（Microsoft Word是世界上最流行的文字处理软件。）本技巧（11487）适用于Microsoft Word 2007、2010、2013、2016、2019和Office 365中的Word。 Word的旧菜单界面在这里：

所有表的扩展宽度。