Si vous avez besoin de créer des numéros de série dans vos documents et qu’ils sont de nature très simple, vous pouvez le faire à l’aide d’une macro. Cette approche des numéros de série est excellente si vos numéros de série sont séquentiels (1, 2, 3, etc.) ou réguliers dans leur incidence (3, 5, 7, etc.).

Pour commencer, vous devez entrer la macro qui contrôlera le changement du numéro de série et l’impression de votre document. Vous pouvez utiliser la macro suivante:

Sub MySerial()

Dim rngSerialLocation As Range     Dim intSerialNum As Integer     Dim strSerialNum As String     Dim docCurrent As Document     Dim intNumCopies As Integer     Dim intCount As Integer

' set ref to current active doc     Set docCurrent = Application.ActiveDocument     ' set ref to the bookmarked serial number     Set rngSerialLocation = docCurrent.Bookmarks("Serial").Range

' get the starting number     intSerialNum = Val(rngSerialLocation.Text)

' get the number of copies required     intNumCopies = Val(InputBox$("How many Copies?", _       "Print Serialized", "1"))



For intCount = 1 To intNumCopies         ' print the document         docCurrent.PrintOut Range:=wdPrintAllDocument         ' increment the serial number         intSerialNum = intSerialNum + 1         ' put into formatted version         strSerialNum = Format(intSerialNum, "00000")

' stuff into proper place         rngSerialLocation.Text = strSerialNum     Next intCount

' reset the bookmark, since the updating procedure     ' wipes out the old one     docCurrent.Bookmarks.Add Name:="Serial", _       Range:=rngSerialLocation End Sub

Il n’y a qu’une seule condition préalable à l’utilisation de la macro: vous devez vous assurer que votre document contient un signet nommé Serial. Ce signet doit faire référence au numéro de série de votre document, tel que vous souhaitez qu’il apparaisse dans le premier document imprimé. (Lorsque vous avez terminé l’exécution de la macro, vous pouvez enregistrer le document et le numéro de série sera prêt pour la prochaine fois que vous voudrez l’utiliser.)

La macro suppose également que votre numéro de série se compose principalement d’une valeur numérique qui change à chaque itération. Vous pouvez modifier l’incrémentation du numéro de série, ainsi que sa mise en forme, dans la boucle For …​ Next de la macro.

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

link: / word-Using_Sequential_Document_Serial_Numbers [Using Sequential Document Serial Numbers].