Classe Border - bordure (Word VBA)

Cet objet représente une bordure d'un objet. 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)

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

ArtStyle

Cette propriété renvoie ou définit la conception de la bordure de page graphique d'un document. Ici on trouve valeurs possible pour WdPageBorderArt.

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.

Dim borderLoop As Border 
 
For Each borderLoop In Selection.Sections(1).Borders 
 With borderLoop 
 .ArtStyle = wdArtBasicBlackDots 
 .ArtWidth = 6 
 End With 
Next borderLoop

Color

Cette propriété renvoie ou définit la couleur 24 bits de l'objet Border spécifié. Ici on trouve valeurs possible pour WdColor.

Cette propriété peut être une constante WdColor valide ou une valeur renvoyée par la fonction RGB de Visual Basic.

If ActiveDocument.Tables.Count >= 1 Then 
 For Each aBorder In ActiveDocument.Tables(1).Borders 
 aBorder.Color = wdColorIndigo 
 aBorder.LineStyle = wdLineStyleDashDot 
 aBorder.LineWidth = wdLineWidth075pt 
 Next aBorder 
End If

ColorIndex

Cette propriété renvoie ou définit la couleur de l'objet border ou font spécifié. Ici on trouve valeurs possible pour WdColorIndex.

La constante wdByAuthor n'est pas applicable aux objets bordure et police.

Dim borderLoop As Border 
 
If ActiveDocument.Tables.Count >= 1 Then 
 For Each borderLoop In ActiveDocument.Tables(1).Borders 
 With borderLoop 
 .ColorIndex = wdRed 
 .LineStyle = wdLineStyleDashDot 
 .LineWidth = wdLineWidth075pt 
 End With 
 Next borderLoop 
End If

Inside

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

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

LineStyle

Cette propriété renvoie ou définit le style de bordure de l'objet spécifié. Ici on trouve valeurs possible pour WdLineStyle.

Définition de la propriété LineStyle est définie pour une plage qui fait référence à des caractères individuels ou des mots applique une bordure de caractère. Définition de la propriété LineStyle est définie pour un paragraphe ou une plage de paragraphes, une bordure de paragraphe s'applique. Définition de la propriété LineStyle est définie pour une section s'applique une bordure autour des pages contenues dans la section de la page.

With Selection.Borders(wdBorderTop) 
 .LineStyle = wdLineStyleSingle 
 .LineWidth = wdLineWidth075pt 
End With

LineWidth

Renvoie ou définit l'épaisseur de trait de la bordure d'un objet. Ici on trouve valeurs possible pour WdLineWidth.

Renvoie une constante WdLineWidth ou wdUndefined si l'objet n'a aucune bordure ou possède des bordures avec plus d'une épaisseur de trait.

If ActiveDocument.Tables.Count >= 1 Then 
 With ActiveDocument.Tables(1).Rows(1).Borders(wdBorderBottom) 
 .LineStyle = wdLineStyleSingle 
 .LineWidth = wdLineWidth050pt 
 End With 
End If

Visible

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

Pour les objets, certaines méthodes et propriétés est peut-être pas disponibles si la propriété Visible a la valeur False.

Set myTable = ActiveDocument.Tables.Add(Range:=Selection.Range, _ 
 NumRows:=12, NumColumns:=5) 
For Each aBorder In myTable.Borders 
 aBorder.Visible = False 
Next aBorder