word 表格 字体更改

Sub defaultFontStyling()
    Dim table As table
    For Each table In ActiveDocument.Tables
        If table.Range.Information(wdActiveEndAdjustedPageNumber) > 1 Then
            With table.Range.Font
                .Name = "宋体"
                .Size = 10.5
            End With
        End If
    Next
End Sub