Adjusts the width of the specified columns or cells so that they're equal.
expression.DistributeWidth
expression Required. An expression that returns a Cells or Columns object.
Example
This example adjusts the width of the columns in the first table in the active document so that they're equal.
ActiveDocument.Tables(1).Columns.DistributeWidth
This example adjusts the height of the selected cells.
If Selection.Cells.Count >= 2 Then
Selection.Cells.DistributeWidth
End If