仍然是读word表格高度？200分(200分)

下边是我读Word某表格的宽，高度的代码
//表格是我加到模板中的表格，各行高度没有设置，但由于内容不同，高度也有变化
vTable := MyWord.ActiveDocument.Tables.Item(1);

for i := 1 to 9 do
begin
VTable.Cell(i, 1).Select;
MyWord.Selection.Rows.HeightRule := wdRowHeightAtLeast;
Wid := MyWord.Selection.Cells.PreferredWidth;
Hei := MyWord.Selection.rows.Height;
s := Format('%s%8.2f%s%8.2f', ['Width', Wid, 'Height:', Hei]);
Showmessage(s);
end;
其中，表格的前9行的高度各不相同，但实际读出来的却都是12，已经问了2次了，都未得到
解决，请大侠们指教

vTable := MyWord.ActiveDocument.Tables.Item(1);

for i := 1 to 9 do
begin
VTable.Cell(i, 1).Select;
MyWord.Selection.Rows.HeightRule := wdRowHeightAtLeast;
Wid := MyWord.Selection.Cells.PreferredWidth;
// Hei := MyWord.Selection.rows.Height;
Hei :=vTable.Rows.Item(i).Height;
s := Format('%s%8.2f%s%8.2f', ['Width', Wid, 'Height:', Hei]);
Showmessage(s);
end;

这个 方法好 像 不 管用啊

var
vTable:table;
i:Integer;
s:String;
wid,Hei:single;
begin
vTable := WordApplication1.ActiveDocument.Tables.Item(1);

for i := 1 to 9 do
begin
VTable.Cell(i, 1).Select;
WordApplication1.Selection.Rows.HeightRule := wdRowHeightAtLeast;
WordApplication1.Selection.Cells.PreferredWidth;
wid := vTable.Columns.Item(1).width;
Hei :=vTable.Rows.Item(i).Height;
s := Format('%s%8.2f%s%8.2f', ['Width', Wid, 'Height:', Hei]);
Showmessage(s);
end;
以上代码在word2000中通过