changer la couleur et la police de certaines cellules d'un tableau word avec vba

Je suis en train de mettre en place une nouvelle table à la fin de mon document et le format de mon cahier des charges. Mais le backgroundcolor et la textcolor ne semblent pas fonctionner. La taille de la Police n'est pas non plus exactement ce que je veux, car il s'applique à l'ensemble du tableau et pas seulement une cellule.

C'est ce que j'ai à ce jour:

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

Je veux que la première ligne de la table sans frontières et de police 14, gras, texte en blanc sur fond gris.

OriginalL'auteur Kazschuri | 2015-08-14

  1. 11

    J'ai trouvé la Réponse.

    La solution est comme suit:

    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

    J'ai enlevé la sélection de la cellule et l'a utilisé directement. Mais la vraie chose, c'était l'utilisation de .Range lors de l'application de .Font et .Text

    OriginalL'auteur Kazschuri