如何一次更改所有单词表的列宽

Question

我在 Word 中有很多（> 200）个表格，它们具有相同的布局（两列六行）。

我需要为所有这些调整列宽。有没有办法自动化这个？

Answer 1

您可以使用 VBA 宏来调整每个表的大小。

在 Word 中按ALT+F11并在Project » ThisDocument下插入宏。
执行代码F5

Sub resizeTables()    
  For Each Table In ActiveDocument.Tables
    On Error Resume Next
    Table.Columns(1).Width = 200
    Table.Columns(2).Width = 300
    On Error GoTo 0
  Next    
End Sub

• Columns(2) 表示每个表中的第 2 列
• 该值Width = 300是您所需的像素宽度。将其更改为您的需要
• 如果表的列数少于 VBA 宏，则会出现异常。为此，我添加On Error Resume Next了忽略错误并On Error GoTo 0停止此错误处理