Word VBA表格单元格比例宽度设置及列宽关联问题求助

问题原因分析 #

1. .PreferredWidth是列级属性，并非单元格级属性，直接用它设置第一行单元格会作用于整列，无法实现单行内不同单元格的百分比宽度分配。
2. Word表格默认同一列的单元格共享宽度，要单独设置不同行的单元格宽度，必须打破这种关联，使用支持独立调整的方法。

修改后的VBA代码 #

Sub CustomTableCellWidths()
    Dim targetTbl As Table
    ' 替换为你的目标表格，这里假设是文档中的第一个表格
    Set targetTbl = ActiveDocument.Tables(1)
    
    ' 关闭自动适应，避免Word自动调整宽度
    targetTbl.AllowAutoFit = False
    ' 设置宽度单位为百分比（可选，可切换为wdPreferredWidthPoints使用固定值）
    targetTbl.PreferredWidthType = wdPreferredWidthPercent
    
    ' 设置第一行三个单元格的宽度为20%、70%、10%
    ' wdAdjustNone 参数确保修改当前单元格宽度时不影响其他单元格
    targetTbl.Cell(1, 1).SetWidth Width:=20, RulerStyle:=wdAdjustNone
    targetTbl.Cell(1, 2).SetWidth Width:=70, RulerStyle:=wdAdjustNone
    targetTbl.Cell(1, 3).SetWidth Width:=10, RulerStyle:=wdAdjustNone
    
    ' 设置第二行第一个单元格的独立宽度（示例设为30%）
    targetTbl.Cell(2, 1).SetWidth Width:=30, RulerStyle:=wdAdjustNone
End Sub

关键说明 #

• SetWidth方法：替代PreferredWidth，支持针对单个单元格设置宽度，是解决两个问题的核心。
• wdAdjustNone参数：强制Word只调整当前单元格的宽度，不联动同一列的其他单元格，彻底解决宽度关联问题。
• AllowAutoFit = False：关闭表格自动适应功能，防止Word覆盖手动设置的宽度值。

内容的提问来源于stack exchange，提问作者DAMA