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)

Answer 2

作弊怎么办？

Dim tbl As Word.Table
Dim r As Row
Dim c As Cell

Set tbl = ActiveDocument.Tables(1)

For Each r In tbl.Rows
    iHeight = r.HeightRule
    r.HeightRule = 1
    Debug.Print r.Height
    r.HeightRule = iHeight
Next

Answer 3

我尝试了上面的操作，发现更改 HeightRule 会更改行的高度，鉴于我试图“冻结”事先出现在表格中的高度，这使得上面的内容毫无意义。

对于空行或包含以一致段落格式添加字体大小的单个展开文本段落的行，para before 和 after 可以按如下方式工作：

Set r = c.Row
With r
   If .HeightRule <> wdRowHeightExactly Then
        .HeightRule = wdRowHeightExactly
         Set p = c.Range.ParagraphFormat
         .Height = c.BottomPadding + c.TopPadding + p.SpaceBefore + p.SpaceAfter +        p.LineSpacing
    End If
End With