Word le permite agregar números de línea a un documento. Esto significa exactamente lo que dice: cada línea del documento está numerada de principio a fin. Esto puede resultar muy útil al crear documentos especiales, como documentos legales, o al imprimir una copia impresa para referencia posterior línea por línea.

Cuando imprime un documento con números de línea continuos activados, Word numera cada línea de principio a fin. Sin embargo, si solo imprime una selección (haga una selección, muestre el cuadro de diálogo Imprimir y asegúrese de que Selección esté especificada como lo que está imprimiendo), Word no imprime los números de línea correctamente. Word numera las líneas de la selección como si se tratara de todo el documento, comenzando en uno y siguiendo con la selección. Uno pensaría que un mejor enfoque sería que Word imprima los números de línea de acuerdo con lo que realmente representa la selección en el documento. Por ejemplo, si seleccionó las líneas 57 a 72 como su selección y luego las imprimió, Word debería imprimir los números 57 a 72 en el lado izquierdo de la impresión, en lugar de 1 a 15.

Desafortunadamente, no hay una manera fácil de solucionar este problema. Una solución alternativa es no imprimir las selecciones. (Esta sugerencia puede parecer más frívola de lo que se pretende.) En su lugar, imprima páginas. En el cuadro de diálogo de impresión, especifique un rango de páginas para imprimir, en lugar de una selección. Word mantiene la numeración de líneas adecuada, como si estuviera numerando desde el principio del documento.

Otra opción es confiar en una macro para hacer el «trabajo sucio» por usted. Puede utilizar una macro para restablecer el número de línea inicial utilizado para su selección. La siguiente es una macro simple que le pide un número de línea inicial y luego imprime su selección usando ese número de línea como el primer número impreso a la izquierda. (Tenga en cuenta que esta macro no comienza a imprimirse con el número de línea que especifica; utiliza el número que especifica como el número de línea de inicio de su selección).

Sub LineNumbersPrint()

Dim LineNumberStart As Integer     On Error GoTo GetOut

LineNumberStart = InputBox("First line number for printout?", _       "Line Numbers Printout")



With ActiveDocument.PageSetup         With .LineNumbering             .Active = True             .StartingNumber = LineNumberStart         End With     End With

ActiveDocument.PrintOut , Range:=wdPrintSelection

With ActiveDocument.PageSetup         With .LineNumbering             .Active = True             .StartingNumber = 1         End With     End With

GetOut:

End Sub

El uso de esta macro supone que busca el número de línea de inicio de su selección antes de imprimir. Esto se puede hacer usando la función Vista previa de impresión de Word, pero puede volverse tedioso después de un tiempo. Si imprime bastante selección, la siguiente macro será de mayor interés para usted. Es más complejo, pero determina automáticamente el número de línea correcto para usar al comienzo de la selección y luego imprime la selección.

Sub Correct_Line_Numbers()

Dim myRng As Range     Dim StartRng As Range     Dim iCount As Integer

'if you include the paragraph mark in your selection, then Word 'prints the subsequent line number; not the entire line, just the 'line number; therefore, if the last character of the current 'selection is a paragraph mark, then move the end position of 'the selection to the left by one character     If Selection.Characters.Last = Chr(13) Then         Selection.MoveEnd Count:=-1     End If

'set the current selection to a variable     Set myRng = Selection.Range

'set the start of the document to a variable     Set StartRng = ActiveDocument.Paragraphs(1).Range

With Selection         'go to the beginning of the line for the current selection and         'set the iCount variable so that it counts the current line         .HomeKey unit:=wdLine         iCount = 1

'if the cursor is not at the beginning of the document         'then move the cursor up by one line         'increment iCount by one each time the cursor is not at         'the beginning of the document         While Not Selection.InRange(StartRng)

.MoveUp unit:=wdLine             iCount = iCount + 1             'if the cursor is in a table, then the macro should             'reduce iCount; Word counts an entire table as one line             If Selection.Rows.Count > 0 Then                 iCount = iCount - 1             End If         Wend     End With

'reset the starting line number so that it equals the     'number of times the cursor was moved up by a line     ActiveDocument.PageSetup.LineNumbering.StartingNumber = iCount

'reselect the original selection     myRng.Select

'print out only the original selection     ActiveDocument.PrintOut Range:=wdPrintSelection

'reset the line number(by "undoing" the last two actions     '[fields update and change line number])

'so that line numbering begins at one     ActiveDocument.Undo     ActiveDocument.Undo

'reselect the original selection     myRng.Select End Sub

Hay una salvedad con esta macro. Si tiene texto oculto dentro de su documento, y ese texto oculto se muestra pero no está configurado para imprimir, esta macro aún cuenta esas líneas de texto como si se imprimieran. En otras palabras, la macro asume que está imprimiendo el texto oculto si lo tiene en pantalla.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (1525) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Correct_Line_Numbers_when_Printing_Selections [Corregir números de línea al imprimir selecciones].