Classe LineNumbering - números de linha (Word VBA)

A classe LineNumbering representa os números de linha na margem esquerda ou à esquerda de cada coluna em estilo de jornal. Para usar uma variável de classe LineNumbering, ela primeiro precisa ser instanciada por exemplo

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

Active

True se a numeração de linhas estiver ativa para o documento especificado, seção ou seções. Leitura/gravação longa.

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

CountBy

Retorna ou define o incremento numérico para números de linha. Long de leitura/gravação.

Se a propriedade CountBy está definida como 5, a cada cinco linhas exibirá o número da linha. Números de linha só são exibidos no modo de exibição de layout de impressão e visualização de impressão. Essa propriedade não tem efeito a menos que a propriedade ativo do objeto LineNumbering é definida como True.

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

DistanceFromText

Retorna ou define a distância em pontos entre a borda direita dos números de linha e a borda esquerda do texto do documento. Leitura/gravação única.

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

RestartMode

Retorna ou define a maneira como é feita a numeração de linhas — ou seja, se ela recomeça no início de uma nova página ou seção, ou se é contínua. Leitura/gravação WdNumberingRule. Os valores de retorno possíveis são wdRestartContinuous - Os números são atribuídos continuamente, wdRestartPage - Os números são redefinidos para cada página, wdRestartSection - Os números são redefinidos para cada seção.

Você precisa estar no modo de layout de impressão para ver a numeração de linhas.

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

StartingNumber

Retorna ou define o número da linha inicial. Long de leitura/gravação.

Você precisa estar no modo de layout de impressão para ver a numeração de linhas.

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