怎么获取word中表格的高度

如何获取word中表格的高度
请问如何获得word中某个表格的高度，即所有行的高度之和。

[解决办法]
表格每行高度是均等，还是每行都不一样？
[解决办法]

VB code

Sub 均等()    Dim iCount As Integer    iCount = Selection.Tables(1).Rows.Count    MsgBox "当前表格的高度是：" & Selection.Tables(1).Rows.Height * iCountEnd SubSub 不均等()    Dim i As Integer, lHeight As Double, oRows As Rows    Set oRows = Selection.Tables(1).Rows    For i = 1 To oRows.Count        lHeight = lHeight + oRows(i).Height    Next i    MsgBox "当前表格的高度是：" & lHeightEnd Sub
[解决办法]
这个统计出的结果是以磅为单位的，不是厘米。
[解决办法]
比如表格有3行，每行行高都设为1厘米，用Application.PointsToCentimeters将磅值转为厘米，得到的结果是3.000375厘米，你说的不准确是指这种情况吗？
[解决办法]
这倒有可能
[解决办法]
在我这测试，无论将HeightRule设置为哪个值，结果都是一样的。