vba - 如何以厘米为单位分配固定的行高

Question

我有多个表格的 Word 文档。无论文本大小如何，我都想将整个文档的行大小设置为固定大小 1cm。

我找不到这个的宏。我找到了一个处理点而不是厘米的点，也不是我想要的固定高度。

Sub tablechanger()
Dim tableid As Tables
Set tableid = ActiveDocument.Tables
For Each tb In tableid
For Each rw In tb.Rows
rw.Height = 1
Next rw

Next tb

End Sub

标签： vbams-wordrow

Answer 1

尝试这个...

Sub tablechanger()
   Dim tableid As Tables
   Dim TB As word.Table, rw As word.Row
   Set tableid = ActiveDocument.Tables
   For Each TB In tableid
      TB.Range.rows.HeightRule = wdRowHeightExactly
      For Each rw In TB.rows
        rw.Height = Application.CentimetersToPoints(3)
      Next rw
   Next TB
End Sub