Classe Border (Word VBA)

Cet objet représente une bordure d'un objet.

Set

Pour utiliser une variable de classe Border, elle doit d'abord être instanciée, par exemple

Dim brd as Border
Set brd = Selection.Borders(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe Border : Borders.Item, Cell.Borders, Cells.Borders, Column.Borders, Columns.Borders, ConditionalStyle.Borders, Font.Borders, Frame.Borders, HTMLDivision.Borders, InlineShape.Borders, Paragraph.Borders, ParagraphFormat.Borders, Paragraphs.Borders, Range.Borders, Row.Borders, Rows.Borders, Section.Borders, Selection.Borders, Style.Borders, Table.Borders et TableStyle.Borders

For Each

Voici un exemple de traitement des éléments Border dans une collection

Dim brd As Border
For Each brd In Selection.Borders
	    If brd.Inside = True Then brd.LineStyle = wdLineStyleSingle 
Next brd

Thèmes

Les procédures suivantes de cette classe ont été regroupées et sont décrites sur une page thématique séparée

Enable with its procedures Borders.Enable, Borders.EnableFirstPageInSection et Borders.EnableOtherPagesInSection

Propriétés

ArtStyle Cette propriété renvoie ou définit la conception de la bordure de page graphique d'un document.

Selection.Borders(1).ArtStyle = wdArtApples

ArtWidth Cette propriété renvoie ou définit la largeur (en points) de la bordure de page graphique spécifiée.

Selection.Borders(1).ArtWidth =

Color Cette propriété renvoie ou définit la couleur 24 bits de l'objet Border spécifié.

Selection.Borders(1).Color = RGB(0,0,255)'blue

ColorIndex Cette propriété renvoie ou définit la couleur de l'objet border ou font spécifié.

Selection.Borders(1).ColorIndex = wdAuto

Inside True si un intérieur bordure peut être appliqué à l'objet spécifié.

Dim booInside As Boolean
booInside = Selection.Borders(1).Inside

LineStyle Cette propriété renvoie ou définit le style de bordure de l'objet spécifié.

Selection.Borders(1).LineStyle = wdLineStyleDashDot

LineWidth Renvoie ou définit l'épaisseur de trait de la bordure d'un objet.

Selection.Borders(1).LineWidth = wdLineWidth025pt

Parent Renvoie un Object qui représente le parent de l'objet Border spécifié.

Dim objParent As Object
Set objParent = Selection.Borders(1).Parent

Visible True si l'objet spécifié est visible.

Selection.Borders(1).Visible = True

Borders.AlwaysInFront True si les bordures de page sont affichent devant le texte du document.

Selection.Borders.AlwaysInFront = True

Borders.Count Renvoie le nombre d'éléments dans la collection Borders.

Dim lngCount As Long
lngCount = Selection.Borders.Count

Borders.DistanceFrom Cette propriété renvoie ou définit une valeur qui indique si la bordure de page spécifiée est mesurée entre le bord de la page ou à partir du texte qu'elle entoure.

Selection.Borders.DistanceFrom = wdBorderDistanceFromPageEdge

Borders.DistanceFromBottom Cette propriété renvoie ou définit l'espacement (en points) entre le texte et la bordure inférieure.

Selection.Borders.DistanceFromBottom =

Borders.DistanceFromLeft Cette propriété renvoie ou définit l'espacement (en points) entre le texte et la bordure gauche.

Selection.Borders.DistanceFromLeft =

Borders.DistanceFromRight Cette propriété renvoie ou définit l'espace (en points) entre le bord droit du texte et la bordure droite.

Selection.Borders.DistanceFromRight =

Borders.DistanceFromTop Cette propriété renvoie ou définit l'espacement (en points) entre le texte et la bordure supérieure.

Selection.Borders.DistanceFromTop =

Borders.HasHorizontal True si une bordure horizontale peut être appliquée à l'objet.

Dim booHasHorizontal As Boolean
booHasHorizontal = Selection.Borders.HasHorizontal

Borders.HasVertical True si l'objet spécifié accepte une bordure verticale.

Dim booHasVertical As Boolean
booHasVertical = Selection.Borders.HasVertical

Borders.InsideColor Renvoie ou définit la couleur 24 bits des bordures intérieures.

Selection.Borders.InsideColor = RGB(0,0,255)'blue

Borders.InsideColorIndex Cette propriété renvoie ou définit la couleur de l'intérieur des bordures.

Selection.Borders.InsideColorIndex = wdAuto

Borders.InsideLineStyle Cette propriété renvoie ou définit la bordure intérieure de l'objet spécifié.

Selection.Borders.InsideLineStyle = wdLineStyleDashDot

Borders.InsideLineWidth Cette propriété renvoie ou définit l'épaisseur de trait de la bordure intérieure d'un objet.

Selection.Borders.InsideLineWidth = wdLineWidth025pt

Borders.JoinBorders True si les bordures verticales externes des paragraphes et des tableaux sont supprimées de sorte que les bordures horizontales s'étendent jusqu'aux bordures de page.

Selection.Borders.JoinBorders = True

Borders.OutsideColor Cette propriété renvoie ou définit la couleur 24 bits des bordures extérieures.

Selection.Borders.OutsideColor = RGB(0,0,255)'blue

Borders.OutsideColorIndex Renvoie ou définit la couleur des bordures extérieures.

Selection.Borders.OutsideColorIndex = wdAuto

Borders.OutsideLineStyle Cette propriété renvoie ou définit la bordure extérieure de l'objet spécifié.

Selection.Borders.OutsideLineStyle = wdLineStyleDashDot

Borders.OutsideLineWidth Renvoie ou définit l'épaisseur de trait de la bordure extérieure d'un objet.

Selection.Borders.OutsideLineWidth = wdLineWidth025pt

Borders.Parent Renvoie un Object qui représente l'objet parent de la collection Borders spécifiée.

Dim objParent As Object
Set objParent = Selection.Borders.Parent

Borders.Shadow True si la bordure spécifiée est ombrée.

Selection.Borders.Shadow = True

Borders.SurroundFooter True si une bordure de page entoure le pied de page du document.

Selection.Borders.SurroundFooter = True

Borders.SurroundHeader True si une bordure de page entoure l'en-tête du document.

Selection.Borders.SurroundHeader = True