时间戳

首页 > 解决方案 > 如何自动调整表格行高？

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

问题描述

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

我正在寻找类似于自动调整所有表格行高的操作，以显示每行中的所有文本。目前，表格行只显示一行，然后文字在下面换行，不可见。

任何帮助表示赞赏。代码如下：

Sub ResizeAllTables()
    Dim oTbl As Table

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

标签： vbams-wordrowheight

解决方案

您正在寻找Row.HeightRule属性。具体来说，您将希望将其设置为wdRowHeightAuto，即

调整行高以适应行中的最高值。

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

Sub ResizeAllTables()
    Dim oTbl As Table

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

推荐阅读