文档中自动行高的宏

Question

我有一个包含多个表的非常大的文档，我想要一个宏来自动为文档中的每个表设置行高。

Answer 1

以下代码会将每个表中每行的高度更改为100。

Sub tablechanger()

Dim tableid As Tables

Set tableid = ActiveDocument.Tables

For Each tb In tableid

For Each rw In tb.Rows

rw.Height = 100

Next rw

Next tb

End Sub