Ändern der Farbe und Schriftart bestimmter Zellen in Word-Tabelle mit VBA

Question

Ich versuche, eine neue Tabelle am Ende meines Dokuments einzurichten und es nach meinen Spezifikationen zu formatieren. Aber die Hintergrundfarbe und die Textfarbe scheinen nicht zu funktionieren. Die Schriftgröße ist auch nicht genau das, was ich will, da es für die ganze Tabelle und nicht nur für eine Zelle gilt.

Dies ist, was ich bisher:

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 

Ich mag die erste Zeile der Tabelle ohne Grenzen und mit Schrift 14, fett, weißen Text auf grauen Hintergrund.

Answer 1

Ich fand die Antwort.

Die Lösung ist wie folgt:

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 

I die Auswahl der Zelle entfernt und verwendet es direkt. Aber die echte Sache war, die Verwendung von .Range bei der Anwendung .Font und .Text