如何使用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