使用MS Word VBA。我已经有了一个不错的宏，可以自动将所有表格宽度调整为窗口大小（边距到边距）。
我正在寻找类似的方法来自动调整所有表格行的高度，以显示每一行中的所有文本。当前，表行仅显示一行，然后文本在下面换行并且不可见。
任何帮助表示赞赏。代码如下：
Sub ResizeAllTables()
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
oTbl.AutoFitBehavior wdAutoFitWindow
Next oTbl
End Sub
您正在寻找Row.HeightRule属性。具体来说，你会希望它被设置为wdRowHeightAuto这是
调整行高以适应行中的最高值。
因此，以您的示例为例，我想它看起来像这样
Sub ResizeAllTables()
Dim oTbl As Table
For Each oTbl In ActiveDocument.Tables
oTbl.Rows.HeightRule = wdRowHeightAuto
Next oTbl
End Sub
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句