web-dev-qa-db-fra.com

changement de couleur et de police de cellules spécifiques dans un tableau Word avec vba

J'essaie de créer un nouveau tableau à la fin de mon document et de le formater selon mes spécifications. Mais la couleur de fond et la couleur de texte ne semblent pas fonctionner. La taille de la police n'est pas non plus exactement ce que je veux, car elle s'applique à l'ensemble du tableau et non à une seule cellule.

Voici ce que j'ai jusqu'à présent:

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 la première ligne du tableau sans bordures et avec la police 14, texte en gras et blanc sur fond gris.

vbams-wordword-vba
12
Kazschuri

J'ai trouvé la réponse.

La solution est la suivante:

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 supprimé la sélection de la cellule et l'ai utilisée directement. Mais la vraie chose était que l'utilisation de .Range lors de l'application .Font et .Text

11
Kazschuri