怎么获取word中表格的高度

www.MyException.Cn  网友分享于：2013-03-08  浏览：40次

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

------解决方案--------------------
表格每行高度是均等，还是每行都不一样？
------解决方案--------------------

VB code

Sub 均等()
    Dim iCount As Integer
    iCount = Selection.Tables(1).Rows.Count
    MsgBox "当前表格的高度是：" & Selection.Tables(1).Rows.Height * iCount
End Sub

Sub 不均等()
    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 "当前表格的高度是：" & lHeight
End Sub

------解决方案--------------------

这个统计出的结果是以磅为单位的，不是厘米。

------解决方案--------------------

比如表格有3行，每行行高都设为1厘米，用Application.PointsToCentimeters将磅值转为厘米，得到的结果是3.000375厘米，你说的不准确是指这种情况吗？

------解决方案--------------------
这倒有可能

------解决方案--------------------
在我这测试，无论将HeightRule设置为哪个值，结果都是一样的。