Set the Height property of the row or rows in question by specifying the height in points
Sub height() Documents("Tables.doc").Tables(3).Rows(3).Height = 33 End Sub