Objet TableStyle (Word)
Représente un style donné qui peut être appliqué à un tableau.
Utilisez la propriété Table de l’objet Styles pour renvoyer un objet TableStyle . Pour appliquer des bordures à l'ensemble d'un tableau, utilisez la propriété Borders. Pour appliquer des bordures ou un ombrage uniquement à des zones spécifiées d'un tableau, utilisez la méthode Condition. Cet exemple montre comment créer un nouveau style de tableau et mettre en forme ce dernier en lui appliquant une bordure périmétrique. Des bordures et ombrages spéciaux sont en outre appliqués aux première et dernière lignes ainsi qu’à la dernière colonne.
Sub NewTableStyle()
Dim styTable As Style
Set styTable = ActiveDocument.Styles.Add( _
Name:="TableStyle 1", Type:=wdStyleTypeTable)
With styTable.Table
'Apply borders around table
.Borders(wdBorderTop).LineStyle = wdLineStyleSingle
.Borders(wdBorderBottom).LineStyle = wdLineStyleSingle
.Borders(wdBorderLeft).LineStyle = wdLineStyleSingle
.Borders(wdBorderRight).LineStyle = wdLineStyleSingle
'Apply a double border to the heading row
.Condition(wdFirstRow).Borders(wdBorderBottom) _
.LineStyle = wdLineStyleDouble
'Apply a double border to the last column
.Condition(wdLastColumn).Borders(wdBorderLeft) _
.LineStyle = wdLineStyleDouble
'Apply shading to last row
.Condition(wdLastRow).Shading _
.BackgroundPatternColor = wdColorGray125
End With
End Sub
Nom |
---|
Condition |
Référence du modèle objet Word
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.