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

Question

我正在尝试在我的文档末尾设置一个新表格并将其格式化为我的规范。但是 backgroundcolor 和 textcolor 似乎不起作用。字体大小也不是我想要的，因为它适用于整个表格，而不仅仅是一个单元格。

这是我到目前为止:

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

我删除了单元格的选择并直接使用它。但真正的情况是，使用 .Range申请时 .Font和 .Text