vba - 如何自动调整表格行高？

Question

使用 MS Word VBA。我已经有一个很好的宏，可以自动调整所有表格宽度以适应窗口大小(边距到边距)。

我想做一些类似于自动调整所有表格行高的操作，以显示每行中的所有文本。目前，表格行仅显示一行，然后文本在下方换行并且不可见。

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

Sub ResizeAllTables()
    Dim oTbl As Table

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

Answer 1

您正在寻找Row.HeightRule属性(property)。具体来说，您需要将其设置为 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