DistributeHeight Method

Adjusts the height of the specified rows or cells so that they're equal.

expression   Required. An expression that returns a Cells or Rows object.

Example

This example adjusts the height of the rows in the first table in the active document so that they're equal.

ActiveDocument.Tables(1).Rows.DistributeHeight

This example adjusts the height of the first three rows in the first table so that they're equal.

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