表格创建完了，发现高度宽度都不一样，crtl+shift+c不能设置成一直的大小，怎么设置

Word VBA：批量设置表格

一、说明

1.对激活的Word文档操作

2.具体生效范围的规则

如果选择了范围，则对选择范围内的表格有效；
否则，对整篇文档内的表格有效

二、示例代码

Sub 批量设置表格宽高()
    Dim rng As Range
    Dim ta As Table
    
    Set rng = Selection.Range
    If rng.Start = rng.End Then Set rng = ActiveDocument.Range
    
    For Each ta In rng.Tables
        With ta
            With .Rows
                .Alignment = wdAlignRowCenter '设置表格整体对齐方式为【居中】
                .HeightRule = wdRowHeightAtLeast '行高规则为【最小值】
                .Height = CentimetersToPoints(1) '行高为最小值【1厘米】
            End With
            .PreferredWidthType = wdPreferredWidthPercent '表格宽度按百分比算
            .PreferredWidth = 100 '表格宽度百分比为【100】，即与表格所在栏宽相等
        End With
    Next
    
    Set rng = Nothing
End Sub