vba调整word中表格每列列宽为不同的百分比宽度

可以使用VBA代码来调整Word中表格每列的列宽为不同的百分比宽度。具体的实现方法可以参考以下代码：

Sub SetTableColumnWidths()
Dim tbl As Table
Dim col As Column
Dim colWidths As Variant

'设置每列的宽度百分比
colWidths = Array(20, 30, 50)

'获取当前选中的表格
Set tbl = Selection.Tables(1)

'循环设置每列的宽度
For Each col In tbl.Columns
col.Width = colWidths(col.Index - 1) / 100 * tbl.PreferredWidth
Next col
End Sub

这段代码可以将选中的表格的第一列、第二列和第三列的宽度分别设置为20%、30%和50%。如果需要设置其他列的宽度，只需要修改colWidths数组即可。