vba - 如何在Word中获取表格行的高度

Question

我四处寻找并尝试了各种方法。它被认为是不可能完成的。所以我要在这里试一试，看看其他人是否有运气。

当行的 HeightRule 设置为 wdRowHeightAuto 时，是否有任何方法可以在 Word 中获取表格行的高度？

或者，如果有办法获取单元格的高度，我会接受它作为解决方案，因为您可以通过找到行的最大单元格来计算行的高度。

Answer 1

可以使用 Range.Information() 找到行高。以下代码段不适用于表格中的最后一行或页面中的最后一行

Dim Tbl as Table
Dim RowNo as Integer
Dim RowHeight as Double

' set Tbl and RowNo to the table and row number you want to measure

RowHeight=Tbl.Rows(RowNo+1).Range.Information(wdVerticalPositionRelativeToPage) _
    - Tbl.Rows(RowNo).Range.Information(wdVerticalPositionRelativeToPage)

这会通过计算所选行与下一行之间的位置差异来返回以磅为单位的行高。

我有一个在所有情况下都有效的例程，并返回单元格中第二行和后续行的高度(以点为单位)，即单行单元格返回 0。(我在一个应用程序中使用它来减小字体大小某些单元格以适合一行中的文本。)

Dim Doc As Document
Dim Tbl As Table

Dim Pos As Long
Dim RowNo As Integer
Dim ColNo As Integer
Dim CellHeight As Single

' set Doc, Tbl, RowNo and Colno to the document,table and row number you want to
' measure or provide a cell's range if you prefer

Pos = Tbl.Cell(RowNo, ColNo).Range.End - 1 ' last character in cell

CellHeight = Doc.Range(Pos, Pos).Information(wdVerticalPositionRelativeToTextBoundary)