Word vous permet d’ajouter des numéros de ligne à un document. Cela signifie exactement ce qu’il dit: chaque ligne du document est numérotée du début à la fin. Cela peut être très utile lors de la création de documents spéciaux, tels que des documents juridiques, ou lors de l’impression d’une copie papier pour référence ultérieure ligne par ligne.

Lorsque vous imprimez un document avec des numéros de ligne continue activés, Word numérote chaque ligne du début à la fin. Toutefois, si vous imprimez uniquement une sélection (effectuez une sélection, affichez la boîte de dialogue Imprimer et assurez-vous que la sélection est spécifiée comme ce que vous imprimez), Word n’imprime pas correctement les numéros de ligne. Word numérote les lignes de la sélection comme s’il s’agissait du document entier, en commençant par une et en poursuivant la sélection. On pourrait penser qu’une meilleure approche serait pour Word d’imprimer les numéros de ligne en fonction de ce que la sélection représente réellement dans le document. Par exemple, si vous avez sélectionné les lignes 57 à 72 comme sélection et que vous l’avez ensuite imprimée, Word doit imprimer les numéros 57 à 72 sur le côté gauche de l’impression, plutôt que 1 à 15.

Il n’y a malheureusement pas de moyen facile de contourner ce problème. Une solution de contournement consiste à ne pas imprimer les sélections. (Cette suggestion peut sembler plus désinvolte que ce qu’elle veut dire.) Imprimez plutôt des pages. Dans la boîte de dialogue d’impression, spécifiez une plage de pages à imprimer plutôt qu’une sélection. Word conserve la numérotation des lignes correcte, comme si vous numérotiez depuis le début du document.

Une autre option consiste à compter sur une macro pour faire le «sale boulot» à votre place. Vous pouvez utiliser une macro pour réinitialiser le numéro de ligne de début utilisé pour votre sélection. Ce qui suit est une macro simple qui vous demande un numéro de ligne de début, puis imprime votre sélection en utilisant ce numéro de ligne comme premier numéro imprimé à gauche. (Notez que cette macro ne démarre pas l’impression avec le numéro de ligne que vous spécifiez – elle utilise le numéro que vous spécifiez comme numéro de ligne de départ de votre sélection.)

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

L’utilisation de cette macro suppose que vous recherchez le numéro de ligne de départ de votre sélection avant d’imprimer réellement. Cela peut être fait à l’aide de la fonctionnalité Aperçu avant impression de Word, mais peut devenir fastidieux après un certain temps. Si vous faites pas mal d’impression de sélection, la macro suivante vous intéressera davantage. Il est plus complexe, mais il détermine automatiquement le numéro de ligne approprié à utiliser au début de la sélection, puis imprime la sélection.

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

Il y a une mise en garde avec cette macro. Si vous avez du texte masqué dans votre document et que ce texte masqué est affiché mais n’est pas configuré pour être imprimé, cette macro compte toujours ces lignes de texte comme si elles s’imprimeraient. En d’autres termes, la macro suppose que vous imprimez le texte masqué si vous l’avez affiché à l’écran.

_Note: _

Si vous souhaitez savoir comment utiliser les macros décrites sur cette page (ou sur toute autre page des sites WordTips), j’ai préparé une page spéciale qui comprend des informations utiles.

lien: / wordribbon-WordTipsMacros [Cliquez ici pour ouvrir cette page spéciale dans un nouvel onglet de navigateur].

WordTips est votre source pour une formation Microsoft Word rentable.

(Microsoft Word est le logiciel de traitement de texte le plus populaire au monde.) Cette astuce (8520) s’applique à Microsoft Word 2007, 2010 et 2013.

Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu de Word ici:

link: / word-Correct_Line_Numbers_When_Printing_Selections [Corriger les numéros de ligne lors de l’impression des sélections].