Microsoft Word：如何编辑多个表格的属性

Question

微软Word 2016。

我有一个包含数百个表的大文档。我想更改所有表格属性以取消选中“首选宽度”选项。

有没有办法选择所有表来应用此更改？或者我是否必须手动选择它们（“全选”不起作用，因为它还突出显示禁用表格属性的普通文本）？

Answer 1

不幸的是，不可能使用一些简洁的快捷方式一次选择所有表。幸运的是，即使是初学者也可以使用简单的宏，几分钟内即可完成工作。

对于 Word 2010 及更高版本，默认情况下应已显示“开发人员”选项卡，但如果没有显示，则可通过其集成功能区编辑器访问它。在这些应用程序中，可以通过“文件” > “选项” > “自定义功能区”使用功能区编辑器。勾选开发者复选框。

完成此操作后，单击“开发人员”选项卡 > “宏”按钮

在新窗口中，在显示的文本框中输入“Autofit_All_Tables”，然后单击“创建”按钮创建一个新宏。

将以下代码粘贴到白色文本区域，完全替换现有代码。

Sub Autofit_All_Tables()
Application.ScreenUpdating = False
Dim Tbl As Table
For Each Tbl In ActiveDocument.Tables
  Tbl.AutoFitBehavior (wdAutoFitWindow)
  Tbl.AllowAutoFit = True
Next
Application.ScreenUpdating = True
Application.ScreenRefresh
MsgBox "Done", vbOKOnly
End Sub

然后单击绿色的运行箭头（位于图像中的红色框中）。

您应该会看到一个显示“完成”的小窗口。关闭 VBA 开发人员窗口，坐在椅子上，看起来很满意。

注意：如果要将宽度设置为边距之间宽度的百分比，请创建一个名为“Set_Global_Table_Width”的宏并粘贴以下代码。此处宽度设置为 100（即 100%），但在将其粘贴到上面显示的 Word VBA Developer Macro 框中后，您可以将其更改为所需的任何百分比。

Sub Set_Global_Table_Width()
Dim pT As Word.Table
For Each pT In ActiveDocument.Tables
 pT.PreferredWidthType = wdPreferredWidthPercent
 pT.PreferredWidth = 100
Next
MsgBox "Done"
End Sub