изменение цвета и шрифта конкретных ячеек в таблице слов с помощью 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