问题原因 #

VBA生成表格时，仅通过表格对象设置CellMarginLeft/CellMarginRight为0，并没有真正覆盖每个单元格的独立边距属性。Word的单元格默认存在隐性的最小边距限制，手动创建表格时，界面操作会自动同步表格与单元格的边距设置，但VBA代码仅修改表格级设置时，单元格的独立边距仍保留默认值，导致无法设置小于0.28cm的列宽。

解决方案 #

需要同时设置表格级内边距和每个单元格的独立内边距，彻底清除边距限制。以下是可行的VBA代码示例：

Sub CreateTableWithNarrowColumns()
    Dim tbl As Table
    Dim cell As Cell
    
    ' 生成9列的表格（5数据列+4分隔列）
    Set tbl = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=1, NumColumns:=9)
    
    ' 1. 设置表格整体的内边距为0
    With tbl
        .CellMarginLeft = 0
        .CellMarginRight = 0
        .CellMarginTop = 0
        .CellMarginBottom = 0
    End With
    
    ' 2. 遍历每个单元格，单独设置单元格的左右内边距为0
    For Each cell In tbl.Range.Cells
        cell.LeftPadding = 0
        cell.RightPadding = 0
    Next cell
    
    ' 3. 设置分隔列的宽度为0.1cm（假设第2、4、6、8列为分隔列）
    With tbl
        .Columns(2).Width = CentimetersToPoints(0.1)
        .Columns(4).Width = CentimetersToPoints(0.1)
        .Columns(6).Width = CentimetersToPoints(0.1)
        .Columns(8).Width = CentimetersToPoints(0.1)
        ' 设置数据列宽度（示例值）
        .Columns(1).Width = CentimetersToPoints(2)
        .Columns(3).Width = CentimetersToPoints(2)
        .Columns(5).Width = CentimetersToPoints(2)
        .Columns(7).Width = CentimetersToPoints(2)
        .Columns(9).Width = CentimetersToPoints(2)
    End With
End Sub

补充说明 #

• 若仅需处理分隔列的单元格，可针对性遍历这些列的单元格，无需遍历整个表格，提升效率
• 手动调整后生效，是因为界面操作会强制将表格级边距同步到单元格级，VBA代码需要模拟这一过程

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