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

如果文档中有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是世界上最流行的文字处理软件。）本技巧（1382）适用于Microsoft Word 97、2000、2002和2003。您可以为Word（Word 2007）的功能区界面找到此技巧的版本。和更高版本）在这里：

所有表的扩展宽度。