可通过三类VBA宏批量调整Word表格列宽：一、设固定列宽（如3厘米）；二、按比例缩放至指定总宽（如15厘米）；三、按列索引单独设置各列宽度（如第1列2.5cm、第2列4cm、其余3cm）。
如果您在Word文档中需要统一调整所有表格的列宽，手动逐个设置效率低下且容易遗漏。以下是通过宏代码批量修改文档内全部表格列宽的具体操作步骤：
一、编写并运行设置固定列宽的宏
该方法通过VBA宏遍历文档中每一个表格，将每列宽度设为指定值（如3厘米），适用于所有表格结构一致或需强制统一列宽的场景。
1、按Alt+F11打开VBA编辑器。
2、在左侧“Normal”或当前文档项目上右键，选择“插入”→“模块”。
3、在新模块窗口中粘贴以下代码：
Sub SetAllTablesColumnWidth()
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
tbl.Columns.Width = CentimetersToPoints(3)
Next tbl
End Sub
4、将光标置于代码中任意位置，按F5运行宏。
二、编写并运行按比例缩放表格宽度的宏
该方法保持各表格原有列宽比例关系，仅整体缩放至指定总宽度（如15厘米），避免因列数不同导致视觉失衡。
1、在VBA编辑器中新建模块，粘贴以下代码：
Sub ScaleAllTablesToWidth()
Dim tbl As Table
Dim targetWidth As Single
targetWidth = CentimetersToPoints(15)
For Each tbl In ActiveDocument.Tables
tbl.PreferredWidth = targetWidth
tbl.PreferredWidthType = wdPreferredWidthPoints
Next tbl
End Sub
2、确保文档中所有表格的“自动调整”选项未启用“根据窗口调整表格”或“根据内容调整表格”，否则缩放可能被覆盖。
3、运行宏后，所有表格将按设定宽度重新排布，列间比例维持不变。
三、编写并运行按列索引单独设置各列宽度的宏
该方法允许为每列指定独立宽度（例如第一列2.5cm、第二列4cm、其余列3cm），适用于多列功能区分明确的表格群组。
1、新建模块，粘贴以下代码：
Sub SetColumnsByIndex()
Dim tbl As Table
Dim col As Column
For Each tbl In ActiveDocument.Tables
If tbl.Columns.Count >= 1 Then tbl.Columns(1).Width = CentimetersToPoints(2.5)
If tbl.Columns.Count >= 2 Then tbl.Columns(2).Width = CentimetersToPoints(4)
For i = 3 To tbl.Columns.Count
tbl.Columns(i).Width = CentimetersToPoints(3)
Next i
Next tbl
End Sub
2、运行前确认文档中无合并单元格跨列干扰列索引计数，否则可能导致部分列未被正确识别。
3、执行宏后，各表格将按预设规则逐列应用宽度值。
四、启用宏安全性设置并保存为启用宏的文档
Word默认禁用宏以保障安全，若宏无法运行，需临时调整信任中心设置，并将文档另存为支持宏的格式。
1、点击“文件”→“选项”→“信任中心”→“信任中心设置”→“宏设置”。
2、选择“启用所有宏（不推荐；可能会运行有危险的宏）”或“禁用所有宏，并发出通知”。
3、关闭Word并重新打开文档，此时宏可被识别和运行。
4、完成修改后，点击“文件”→“另存为”，在“保存类型”中选择Word启用宏的文档（*.docm）。
