Classe ConditionalStyle - mise en forme spéciale (Word VBA)

La classe ConditionalStyle représente une mise en forme spéciale appliquée à des zones déterminées d'un tableau lorsque ce dernier est mis en forme d'après un style de tableau particulier. Pour utiliser une variable de classe ConditionalStyle, elle doit d'abord être instanciée, par exemple


Dim cse as ConditionalStyle
Set cse = ActiveDocument.Range.TableStyle.Condition(ConditionCode:=wdEvenColumnBanding)

Borders

Renvoie une collection Borders qui représente la totalité des bordures de l’objet ConditionalStyle spécifié.

Pour plus d’informations sur le renvoi d’un seul membre d’une collection, voir renvoi d’un objet à partir d’une collection.


ActiveDocument.Range.TableStyle.Condition.Borders =

BottomPadding

Cette propriété renvoie ou définit une valeur unique qui représente la quantité d’espace (en points) à ajouter sous le contenu d’une cellule unique ou de toutes les cellules d’un tableau.

Le paramètre de la propriété BottomPadding définie pour une cellule unique remplace celle de la propriété BottomPadding définie pour le tableau entier.


ActiveDocument.Range.TableStyle.Condition.BottomPadding =

Font

Cette propriété renvoie ou définit un objet font qui représente la mise en forme de caractères de l’objet spécifié.

Pour définir la propriété Font, spécifiez une expression qui renvoie un objet Font.


ActiveDocument.Range.TableStyle.Condition.Font =

LeftPadding

Cette propriété renvoie ou définit la quantité d'espace (en points) à ajouter à gauche du contenu d'une cellule unique ou de toutes les cellules dans un tableau.

Le paramètre de la propriété LeftPadding d'une cellule unique remplace celle de la propriété LeftPadding de l'intégralité du tableau.


ActiveDocument.Tables(1).LeftPadding = _ 
 PixelsToPoints(40, False)

ParagraphFormat

Cette propriété renvoie ou définit un objet ParagraphFormat qui représente les paramètres de paragraphe du style conditionnel spécifié.


With ActiveDocument.Styles(wdStyleHeading2).ParagraphFormat 
 .TabIndent(1) 
 .Space2 
End With

RightPadding

Cette propriété renvoie ou définit la quantité d'espace (en points) à ajouter à droite du contenu d'une cellule unique ou de toutes les cellules dans un tableau.

Le paramètre de la propriété RightPadding d'une cellule unique remplace celle de la propriété RightPadding du tableau entier.


ActiveDocument.Tables(1).RightPadding = _ 
 PixelsToPoints(40, False)

Shading

Renvoie un objet Shading qui représente la mise en forme de la trame de fond pour la mise en forme du style d'un tableau.


Dim shdShading As Shading
Set shdShading = ActiveDocument.Range.TableStyle.Condition.Shading

TopPadding

Cette propriété renvoie ou définit la quantité d'espace (en points) à ajouter au-dessus du contenu d'une cellule unique ou de toutes les cellules dans un tableau.

Le paramètre de la propriété TopPadding d'une cellule unique remplace celle de la propriété TopPadding du tableau entier.


ActiveDocument.Range.TableStyle.Condition.TopPadding =