在日常办公中,我们经常需要在同一个 Word 文档中插入多个表格。为了保持整体美观和一致性,往往希望这些表格具有相同的列宽。然而,手动逐个调整既费时又容易出错。
Ctrl + C 复制;如果你熟悉 VBA,可以编写一个简单宏来自动统一所有表格列宽:
Sub UniformTableColumnWidth()
Dim tbl As Table
Dim refTbl As Table
Set refTbl = ActiveDocument.Tables(1) '以第一个表格为参考
For Each tbl In ActiveDocument.Tables
Dim i As Integer
For i = 1 To tbl.Columns.Count
If i <= refTbl.Columns.Count Then
tbl.Columns(i).Width = refTbl.Columns(i).Width
End If
Next i
Next tbl
End Sub
运行此宏后,文档中所有表格将自动匹配第一个表格的列宽。