Objet TableStyle (Word)

Représente un style donné qui peut être appliqué à un tableau.

Remarques

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

Méthodes

Propriétés

Voir aussi

Référence du modèle objet Word

Assistance et commentaires

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.