Word中统一表格列宽有四种VBA宏方法：一、自动适配窗口后设固定宽；二、逐列设等宽值；三、按列数均分表格首选宽度；四、首列固定、余列均分剩余宽度。
如果您在Word文档中需要将所有表格的列宽统一设置为指定数值，手动调整效率低下且易出错。以下是通过VBA宏循环遍历并设置全部表格列宽的操作步骤：
一、使用内置“自动调整”功能快速统一表格宽度
该方法不依赖宏，适用于对齐页面宽度或内容适配的场景，通过Word原生命令批量应用“根据窗口自动调整”或“根据内容自动调整”，再统一设定固定列宽。
1、按 Alt + F11 打开VBA编辑器。
2、在左侧“工程资源管理器”中右键“Normal”或当前文档，选择“插入”→“模块”。
3、在新模块空白窗口中粘贴以下代码：
Sub SetAllTablesToEqualWidth()
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
tbl.AutoFitBehavior wdAutoFitWindow
tbl.Columns.Width = CentimetersToPoints(3.5)
Next tbl
End Sub
4、关闭VBA编辑器，返回Word，按 Alt + F8，选择宏名“SetAllTablesToEqualWidth”，点击“运行”。
二、逐列设定等宽值（精确控制每列宽度）
该方法确保所有表格的每一列均获得完全相同的绝对宽度值，不受原有列数差异影响，适用于多列结构一致的标准化排版需求。
1、在VBA编辑器新建模块，粘贴以下代码：
Sub EqualizeAllColumnsInAllTables()
Dim tbl As Table
Dim col As Column
For Each tbl In ActiveDocument.Tables
For Each col In tbl.Columns
col.Width = CentimetersToPoints(2.8)
Next col
Next tbl
End Sub
2、保存宏后，在Word中按 Alt + F8 运行该宏。
三、按比例分配表格总宽度（响应式列宽）
该方法先获取表格总可用宽度，再按列数均分，确保所有表格在不同页面宽度下保持列宽比例一致，避免因段落缩进或页边距差异导致列宽失衡。
1、在VBA编辑器中新建模块，输入以下代码：
Sub DistributeTableWidthEvenly()
Dim tbl As Table
Dim totalWidth As Single
Dim colCount As Integer
For Each tbl In ActiveDocument.Tables
totalWidth = tbl.PreferredWidth
colCount = tbl.Columns.Count
If colCount > 0 Then
tbl.Columns.Width = totalWidth / colCount
End If
Next tbl
End Sub
2、运行前请确认各表格已设置“首选宽度”（如通过“表格属性”→“表格”选项卡中勾选“指定宽度”），否则 totalWidth 可能返回 0。
四、保留首列宽度、其余列均分剩余空间
该方法适用于标题栏需突出显示的场景，例如第一列为编号或分类项，其余列为数据项，兼顾可读性与布局一致性。
1、在VBA编辑器中新建模块，粘贴以下代码：
Sub KeepFirstColumnFixed()
Dim tbl As Table
Dim remainingWidth As Single
Dim colCount As Integer
For Each tbl In ActiveDocument.Tables
If tbl.Columns.Count > 1 Then
tbl.Columns(1).Width = CentimetersToPoints(1.6)
remainingWidth = tbl.PreferredWidth - CentimetersToPoints(1.6)
colCount = tbl.Columns.Count - 1
If colCount > 0 Then
tbl.Columns(2).Width = remainingWidth / colCount
For i = 3 To tbl.Columns.Count
tbl.Columns(i).Width = tbl.Columns(2).Width
Next i
End If
End If
Next tbl
End Sub
2、运行该宏前，请确保文档中所有表格至少包含两列，否则将跳过处理。
