在excel中可以使用range对象的AutoFit属性使单元格的行高和列宽自动匹配单元格的内容。
但是word的表格没有这个属性，只能通过逐行设置word表格的行高为0才能使得行高自动调整为匹配单元格内容的高度。
代码如下
|
1 2 3 4 5 6 7 8 9 10 |
Sub QQ1722187970() Dim oTable As Word.Table Dim oRow As Word.Row For Each oTable In Word.ActiveDocument.Tables oTable.AutoFitBehavior (wdAutoFitWindow) For Each oRow In oTable.Rows oRow.Height = 0 Next Next End Sub |
