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

Leave a Reply

Votre adresse de messagerie ne sera pas publiée. Les champs obligatoires sont indiqués avec *