modifica del colore e del carattere di celle specifiche nella tabella delle parole con vba

Question

Sto provando a impostare un nuovo tavolo alla fine del mio documento e formattarlo secondo le mie specifiche. Ma il backgroundcolor e il textcolor non sembrano funzionare. Anche la dimensione del carattere non è esattamente ciò che voglio, poiché si applica all'intera tabella e non solo a una cella.

Questo è quello che ho finora:

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 

voglio che la prima riga della tabella senza confini e con font 14, grassetto, testo bianco su sfondo grigio.

Answer 1

Ho trovato la risposta.

La soluzione è la seguente:

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 

ho rimosso la selezione della cella e utilizzati direttamente. Ma la vera cosa era, l'uso diquando si applica .Font e .Text