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

我在Word中有很多（>＆gt; 200）表具有相同的布局（两列，六行）。

我需要调整所有这些的列宽。有没有办法实现自动化？

microsoft-word microsoft-word-2013

— countermode
source

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

按 ALT + F11 在Word中插入宏 项目»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 停止此错误处理

— nixda
source