Clase LineNumbering - números de línea (Word VBA)

La clase LineNumbering representa los números de línea en el margen izquierdo o a la izquierda de cada columna de estilo periodístico. Para usar una variable de clase LineNumbering, primero debe ser instanciado, por ejemplo

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

Active

True si la numeración de líneas está activa para el documento especificado, sección o secciones.

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

CountBy

Devuelve o establece el incremento numérico de los números de línea.

Si la propiedad CountBy se establece en 5, cada cinco líneas mostrará el número de línea.

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

DistanceFromText

Devuelve o establece la distancia (en puntos) entre el borde derecho de los números de línea y el borde izquierdo del texto del documento.

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

RestartMode

Devuelve o establece la forma de ejecución del sistema de numeración de líneas; es decir, si empieza al principio de una página nueva o se ejecuta de forma continua. Posibles valores de retorno son wdRestartContinuous - La numeración se realiza de manera continua, wdRestartPage - La numeración se reinicia en cada página, wdRestartSection - La numeración se reinicia en cada sección.

Para ver la numeración de líneas es necesario estar en la vista Diseño de impresión.

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

StartingNumber

Devuelve o establece el número de línea de inicio.

Para ver la numeración de líneas es necesario estar en la vista Diseño de impresión.

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