Mahmud a demandé un moyen d’imprimer des copies personnalisées d’un document. Il a commencé avec une liste de noms dans un fichier texte ordinaire, un par ligne, et il voulait imprimer une copie du document Word actuel pour chacun de ces noms. De plus, il voulait que le nom de la personne figure dans l’en-tête du document.

Le processus pour effectuer une telle tâche est assez simple: ouvrez le fichier texte, saisissez un nom, placez-le dans l’en-tête, puis imprimez le document. Un autre nom est saisi et le processus est répété jusqu’à ce qu’il n’y ait plus de noms dans le fichier. La macro suivante met en œuvre un tel processus:

Sub PutNamesInHeader()

Dim sName As String

Open "c:/names.txt" For Input As #5     Do While Not EOF(5)

' get the name         Line Input #5, sName

ActiveWindow.ActivePane.View.SeekView = _           wdSeekCurrentPageHeader         Selection.WholeStory         Selection.Delete         Selection.TypeText Text:=sName

ActiveWindow.ActivePane.View.SeekView = _           wdSeekMainDocument         ActiveDocument.PrintOut     Loop

Close #5

ActiveWindow.ActivePane.View.SeekView = _       wdSeekCurrentPageHeader     Selection.WholeStory     Selection.Delete     ActiveWindow.ActivePane.View.SeekView = _       wdSeekMainDocument End Sub

La partie délicate de la macro consiste à utiliser la propriété .SeekView pour spécifier l’histoire du document avec laquelle vous souhaitez travailler. Telle qu’implémentée ici, la propriété .SeekView est utilisée à plusieurs reprises pour basculer entre la zone d’en-tête et le document principal. Après la boucle (saisie des noms et impression)

est terminé, la zone d’en-tête est effacée et le .SeekView revient au document principal.

_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 (4366) s’applique à Microsoft Word 2007, 2010, 2013 et 2016. Vous pouvez trouver une version de cette astuce pour l’ancienne interface de menu de Word ici:

link: / word-Printing_Personalized_Copies_of_a_Document [Impression de copies personnalisées d’un document].