表的VBA字集字体样式

Question

我正在尝试将字体样式设置为仅位于第二个单词页面之后的表格。到目前为止，我得到了：

Sub defaultFontStyling()

    If Selection.Information(wdWithInTable) = True Then
        
        Range.Font.Name = "Calibri"
        Range.Font.Size = 11
        
    End If

End Sub

我在第一页没有任何表格，但它仍然改变了字体样式（在整个文档中）。

有人知道怎么修吗？

Answer 1

试试这个：

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