Adjusts the height of the specified rows or cells so that they're equal.
expression.DistributeHeight
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