Rows.HeightRule (Word)

Returns or sets the rule for determining the height of the specified cells or rows. Possible return values are wdRowHeightAtLeast - The row height is at least a minimum specified value, wdRowHeightAuto - The row height is adjusted to accommodate the tallest value in the row, wdRowHeightExactly - The row height is an exact value.

If Selection.Information(wdWithInTable) = True Then 
 Selection.Rows.HeightRule = wdRowHeightAuto 
Else 
 MsgBox "The insertion point is not in a table." 
End If