Word
Fletbrev med stregkoder

Brug stregkoder i Word-brevfletning

Word 365, 2024, 2021, 2019, 2016, 2013, 2010, 2007, 2003

Åbn et eksisterende dokument til brevfletning, eller opret et nyt.


Føj stregkodeobjektet til dit mail merge-dokument. Placer det, hvor du ønsker det i dokumentet, og indstil objektets egenskaber, såsom stregkodetype og -størrelse.

Det vil for eksempel se ud som på følgende skærmbillede. Bemærk navnet på stregkodeobjektet – her fremhævet med gult. Normalt vil dette være Barcode1.




Der kræves en makro til mailfusionen. Du kan tilføje følgende makro. Kopier den til udklipsholderen og indsæt den derfra i Visual Basic for Applications-editoren i 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

Resultatet ser sådan ud. På skærmbilledet kan du også se, hvor makroen er indsat.




Juster nu makroen til dit dokument til brevfletning:

Hvis navnet på dit stregkodeobjekt ikke er Barcode1, skal du ændre det i makroen – venstre gul markering på skærmbilledet.

Nu ændrer du feltnavnet fra din datakilde, som skal bruges til stregkoden. I dette eksempel bruges produktkode – højre gul markering på skærmbilledet. Ændr navnet inden for anførselstegnene.




Gem dokumentet og start makroen for at udskrive en test.

Tip: Start testudskriften med en lille mængde data, så der er færre fejludskrifter i tilfælde af en fejl.




Færdig.

Hvis du har placeret makroen i Normal.dot i stedet for i selve dokumentet, må dokumentet ikke være i designtilstand, når du kører makroen. Hvis du gør det, vil det medføre en fejl. Slå derfor designtilstanden fra, før du kører makroen.