Objet TableStyle (Word)

  • Article

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

Nom
Condition

Propriétés

Nom
Alignment
AllowBreakAcrossPage
AllowPageBreaks
Application
Borders
BottomPadding
ColumnStripe
Creator
LeftIndent
LeftPadding
Parent
RightPadding
RowStripe
Shading
Spacing
TableDirection
TopPadding

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.