Classe LineNumbering - numéros de ligne (Word VBA)

La classe LineNumbering représente les numéros de ligne situés dans la marge gauche ou à gauche de chaque colonne de type journal. Pour utiliser une variable de classe LineNumbering, elle doit d'abord être instanciée, par exemple


Dim lng as LineNumbering
Set lng = ActiveDocument.PageSetup.LineNumbering

Active

True si la numérotation des lignes est active pour le document spécifié, section ou sections.


Sub CountByFive() 
 With Selection.Sections(1).PageSetup.LineNumbering 
 .Active = True 
 .CountBy = 5 
 .StartingNumber = 1 
 End With 
End Sub

CountBy

Cette propriété renvoie ou définit l'incrément numérique pour les numéros de ligne.

Si la propriété CountBy a la valeur 5, chaque ligne cinquième affiche le numéro de ligne.


With ActiveDocument.PageSetup.LineNumbering 
 .Active = True 
 .CountBy = 5 
 .RestartMode = wdRestartSection 
End With

DistanceFromText

Cette propriété renvoie ou définit la distance (en points) entre le bord droit des numéros de ligne et le bord gauche du texte du document.


With ActiveDocument.PageSetup.LineNumbering 
 .Active = True 
 .CountBy = 5 
 .DistanceFromText = 36 
End With

RestartMode

Renvoie ou définit la façon dont fonctionne la numérotation des lignes ; cette propriété permet de préciser si la numérotation commence au début d’une nouvelle page, au début d’une section, ou si elle est continue. Les valeurs de retour possibles sont wdRestartContinuous - La numérotation est appliquée en continu, wdRestartPage - La numérotation est réinitialisée à chaque page, wdRestartSection - La numérotation est réinitialisée à chaque section.

Pour voir la numérotation des lignes, activez l'affichage en mode Page.


set myDoc = ActiveDocument 
With myDoc.PageSetup.LineNumbering 
 .Active = True 
 .StartingNumber = 1 
 .CountBy = 10 
 .RestartMode = wdRestartSection 
End With

StartingNumber

Cette propriété renvoie ou définit le numéro de ligne de départ.

Pour voir la numérotation des lignes, activez l'affichage en mode Page.


Set myDoc = Documents.Add 
With myDoc.Footnotes 
 .StartingNumber = 10 
 .Add Range:=Selection.Range, Text:="Text for a footnote" 
End With