如何使用vba宏更改word文档中所有表的字体大小

Question

我有一个包含很多表的word文档。我想要一个宏，它将所有表的字体大小更改为10，将每个表自动调整到窗口并均匀分配列。我可以使用下面的代码完成最后两个目标，但不知道如何更改字体大小。任何帮助将不胜感激。

Sub changetables()
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
    tbl.AutoFitBehavior wdAutoFitWindow
    tbl.Columns.DistributeWidth

Next

End Sub

Answer 1

使用正确的代码

   tbl.Range.Font.Size = 12

我重新输入了一些内容以显示更好的命名和间距等。

 Sub changetables()

      Dim CurrentTable As Table

      For Each CurrentTable In ActiveDocument.Tables

           With CurrentTable

                .AutoFitBehavior wdAutoFitWindow
                .Columns.DistributeWidth
                .Range.Font.Size = 12
           End With

      Next CurrentTable

 End Sub