DistributeHeight 方法

将指定行或单元格的高度调整为相等。

expression   返回一个 Cells 或 Rows 对象。

示例

本示例将活动文档的第一张表格的高度调整为相等。

ActiveDocument.Tables(1).Rows.DistributeHeight

本示例将第一张表格的前三行高度调整为相等。

Dim rngTemp As Range

If ActiveDocument.Tables.Count >= 1 Then
    Set rngTemp = ActiveDocument.Range(Start:=ActiveDocument _
        .Tables(1).Rows(1).Range.Start, _
        End:=ActiveDocument.Tables(1).Rows(3).Range.End)
    rngTemp.Rows.DistributeHeight
End If