怎么获取word中表格的高度_VBA

如何获取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设置为哪个值，结果都是一样的。