Как назначить фиксированную высоту строки в сантиметрах

Question

У меня есть документ Word с несколькими таблицами. Я хочу установить размер строки по всему документу на фиксированный размер 1 см независимо от размера текста.

Я не могу найти макросы для этого. Я нашел тот, который имеет дело с точками, а не сантиметрами а также с не фиксированной высотой, как я хотел.

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

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