Word多个表格统一调列宽

在撰写报告、论文或整理数据时，我们常常需要在同一个 Word 文档中插入多个表格。为了保持整体排版美观和一致性，统一这些表格的列宽就显得尤为重要。本文将介绍几种简单高效的方法，帮助你在 Word 中快速统一多个表格的列宽。

方法一：复制格式（格式刷）

• 先选中一个已设置好列宽的表格任意单元格；
• 点击【开始】选项卡中的“格式刷”按钮；
• 然后用格式刷点击其他表格的任意单元格，即可复制列宽格式。

方法二：使用“表格属性”手动设置

• 选中目标表格，右键选择【表格属性】；
• 在“列”选项卡中，勾选“指定宽度”，输入统一数值（如 3 厘米）；
• 重复此操作应用于所有表格。

方法三：VBA 宏批量处理（适合高级用户）

如果你有大量表格需要统一列宽，可以使用以下 VBA 脚本：

Sub UniformTableColumnWidth()
    Dim tbl As Table
    Dim col As Column
    For Each tbl In ActiveDocument.Tables
        For Each col In tbl.Columns
            col.Width = CentimetersToPoints(3) ' 设置为3厘米
        Next col
    Next tbl
End Sub
    

按 Alt + F11 打开 VBA 编辑器，插入模块并粘贴代码后运行即可。

小贴士

• 建议先备份文档再使用宏操作；
• 若表格结构不同（列数不一致），需分别处理；
• 统一列宽前可先清除表格原有格式（选中表格 → 【布局】→【自动调整】→【根据窗口自动调整表格】）。