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数组即可。

相关问题

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

您好，我可以回答这个问题。您可以使用VBA编写代码来调整Word中表格每列的列宽为不同的宽度。具体的代码可以参考以下示例：

Sub AdjustTableColumnWidths()
Dim tbl As Table
Dim col As Column

Set tbl = ActiveDocument.Tables(1)

'设置第一列的宽度为1英寸
Set col = tbl.Columns(1)
col.Width = InchesToPoints(1)

'设置第二列的宽度为2英寸
Set col = tbl.Columns(2)
col.Width = InchesToPoints(2)

'设置第三列的宽度为3英寸
Set col = tbl.Columns(3)
col.Width = InchesToPoints(3)

'以此类推，设置其他列的宽度

End Sub

希望能对您有所帮助。

vba调整word中表格每列列宽为不同的厘米宽度

可以使用VBA代码来调整Word中表格每列的列宽为不同的厘米宽度。具体的代码如下：

Sub SetTableColumnWidth()
Dim tbl As Table
Dim col As Column
Set tbl = Selection.Tables(1)
tbl.AutoFitBehavior (wdAutoFitFixed)
tbl.AllowAutoFit = False
tbl.PreferredWidthType = wdPreferredWidthPoints
tbl.PreferredWidth = InchesToPoints(6)
For Each col In tbl.Columns
Select Case col.Index
Case 1
col.Width = CentimetersToPoints(2)
Case 2
col.Width = CentimetersToPoints(3)
Case 3
col.Width = CentimetersToPoints(4)
Case 4
col.Width = CentimetersToPoints(5)
End Select
Next col
End Sub

这段代码会将选中的表格的自适应行为设置为固定宽度，然后将表格的首选宽度设置为6英寸。接着，使用Select Case语句来为每一列设置不同的宽度，其中Case后面的数字表示列的索引，CentimetersToPoints函数用于将厘米转换为磅。