如何自动调整 table 行高？

Question

使用 MS Word VBA。我已经有一个很好的宏，可以将所有 table 宽度自动调整为 window 大小（边距到边距）。

我想做一些类似于自动调整所有 table 行高的事情，以显示每行中的所有文本。目前table行只显示一行，然后文字换行在下方不可见。

感谢任何帮助。代码如下：

Sub ResizeAllTables()
    Dim oTbl As Table

    For Each oTbl In ActiveDocument.Tables
        oTbl.AutoFitBehavior wdAutoFitWindow
    Next oTbl
End Sub

Answer 1

您正在寻找Row.HeightRule property. Specifically, you will want it to be set to wdRowHeightAuto，即

The row height is adjusted to accommodate the tallest value in the row.

所以使用你的例子我会想象它看起来像这样

Sub ResizeAllTables()
    Dim oTbl As Table

    For Each oTbl In ActiveDocument.Tables
        oTbl.Rows.HeightRule = wdRowHeightAuto
    Next oTbl
End Sub

如何自动调整 table 行高？

How to Autofit table row height?

height

vba

row

ms-word