Word
Fusion du courrier avec les codes à barres

Comment ajouter un code-barres à une fusion de courrier existante
Word 365, 2021, 2019, 2016, 2013, 2010, 2007, 2003

Ouvrez un document de fusion de courrier exisiting ou créez-en un nouveau.

Ajoutez l'objet de code à barres à votre document de fusion de courrier. Insérez l'objet de code à barres dans votre document de fusion de courrier. Placez-le où vous le voulez dans le document et définir les propriétés de l'objet, telles que le type de code à barres et la taille.

Cela ressemblera à la capture d'écran suivante, par exemple. Notez le nom de l'objet de code à barres (surligné ici en jaune). Habituellement, ce sera Barcode1.

Une macro est nécessaire pour la fusion du courrier. Vous pouvez ajouter la macro suivante. Copiez-le au clipboard et collez-le à partir de là dans l'éditeur Visual Basic for Applications de Word :

Sub MailMerge_example_with_ActiveBarcode()
 ' Macro shows how to print barcodes in a mail merge.
 if MsgBox("Do you want to print mail merged documents?", vbYesNo, "Question") = vbYes Then
   'counter to zero
   num = 0
   'first record is number one
   ActiveDocument.MailMerge.DataSource.ActiveRecord = 1
   Do
    ' Fill ActiveBarcode text property now
    ActiveDocument.Barcode1.Text = ActiveDocument.MailMerge.DataSource.DataFields("Productcode").Value
    ' do not prompt for printing...
    Options.PrintBackground = True
    ' print page
    ActiveDocument.PrintOut
    ' recognize old record
    lastone = ActiveDocument.MailMerge.DataSource.ActiveRecord
    ' select next record
    ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
    'count
    num = num + 1
    ' check if there are new ones
   Loop While ActiveDocument.MailMerge.DataSource.ActiveRecord <> lastone
   ' notify user
   MsgBox (Str(num) + " pages printed!")
 End If
 End Sub

Le résultat ressemble à ceci. Dans la capture d'écran, vous pouvez également voir où la macro est insérée.

Maintenant, ajustez la macro à votre document de fusion de courrier :

Si le nom de votre objet de code à barres n'est pas Barcode1, modifiez-le dans la macro (marque jaune gauche dans la capture d'écran).

Maintenant, vous modifiez le nom de champ à partir de votre source de données, qui doit être utilisé pour le code à barres. Dans cet exemple, "Productcode" est utilisé (marque jaune droite dans la capture d'écran). Changez le nom dans les guillemets.

Enregistrez le document et démarrez la macro pour une impression de test.

Conseil : Commencez l'impression de test avec très peu d'ensembles de données, de sorte qu'il n'y ait pas trop de erreurs d'impression en cas d'erreur ou d'erreur.

fini.

Si vous avez placé la macro non pas dans le document lui-même, mais, par exemple, dans Normal. point, le document ne doit pas être en mode de conception lorsque vous exécutez la macro. Cela entraînera une erreur. Par conséquent, éteignez le mode de conception avant d'exécuter la macro.

Si vous avez besoin de soutien ou d'une solution individuelle pour la personnalisation à vos besoins, nous pouvons vous offrir un soutien.