用vba更改word表格中特定单元格的颜色和字体

Question

我试图在我的文档末尾设置一个新表，并根据我的规格将其格式化。但是背景色和文本色似乎不起作用。字体大小也不完全是我想要的，因为它适用于整个表格，而不仅仅是一个单元格。

这就是我到目前为止所做的：

Dim myRange As Object
Set myRange = ActiveDocument.Content
myRange.Collapse Direction:=wdCollapseEnd
ActiveDocument.Tables.Add Range:=myRange, NumRows:=3, NumColumns:=2
With .Tables(.Tables.Count)
    .Cell(1, 1).Select
    With Selection
        .Shading.Texture = wdTextureNone
        .Shading.ForegroundPatternColor = wdColorWhite
        .Shading.BackgroundPatternColor = wdColorGray25
        .Font.Size = 14
        .Font.Bold = True
        .Text = "Hello World"
    End With
End With

我想要表格的第一行没有边框，字体14，粗体，灰色背景上的白色文本。

Answer 1

我找到了答案。

解决方法如下：

With .Tables(.Tables.Count)        
    With .Cell(1, 1)
        .Shading.BackgroundPatternColor = wdColorGray50
        With .Range
            With .Font 
                .TextColor = wdColorWhite
                .Size = 18
                .Bold = True
            End With
            .Text = "Hello World"
        End With
    End With            
End With

我删除了单元格的选择并直接使用它。但真正的问题是，的使用。应用时的范围。字体和。文本