Thanks for the reply, but when I type text in my cell and the cell growth with the length of text, the height of the cell is the same as I have defined my table. The height is 12 for a font size of 12. I change the height only by resizing the row with the mouse and I want to make that by programming.
(perhaps it' a bug of word???)

vba example

ActiveDocument.Tables(1).Rows.HeightRule = wdRowHeightAtLeast
For i = 1 To 4
MsgBox ActiveDocument.Tables(1).Rows(i).Height
ActiveDocument.Tables(1).Cell(i, 1).Select
Selection.InsertAfter ("FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF")
MsgBox ActiveDocument.Tables(1).Rows(i).Height
Next i



Thanks to advance