Word – Hromadná korešpondencia s čiarovými kódmi

Používanie čiarových kódov v hromadnej korešpondencii programu Word

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

Otvorte existujúci dokument hromadnej korešpondencie alebo vytvorte nový.


Pridajte objekt čiarového kódu do dokumentu hromadnej korešpondencie. Umiestnite ho na požadované miesto v dokumente a nastavte vlastnosti objektu, ako je typ a veľkosť čiarového kódu.

Bude to vyzerať napríklad ako na nasledujúcom snímku obrazovky. Poznámka: Názov objektu čiarového kódu – tu zvýraznený žltou farbou. Zvyčajne to bude Barcode1.




Na hromadnú korešpondenciu je potrebné makro. Môžete pridať nasledujúce makro. Skopírujte ho do schránky a vložte ho do editora Visual Basic for Applications v programe 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

Výsledok vyzerá takto. Na snímke obrazovky môžete tiež vidieť, kde je makro vložené.




Teraz prispôsobte makro dokumentu hromadnej korešpondencie:

Ak názov vášho objektu čiarového kódu nie je Barcode1, zmeňte ho v makre – ľavá žltá značka na snímke obrazovky.

Teraz zmeníte názov poľa zo zdroja údajov, ktoré sa má použiť pre čiarový kód. V tomto príklade sa používa Productcode – pravá žltá značka na snímke obrazovky. Zmeňte názov v úvodzovkách.




Uložte dokument a spustite makro na testovú tlač.

Tip: Začnite testovú tlač s malým množstvom údajov, aby v prípade chyby došlo k menšiemu počtu chybných výtlačkov.




Hotovo.

Ak ste makro umiestnili do súboru Normal.dot a nie do samotného dokumentu, dokument nesmie byť v režime návrhu, keď makro spúšťate. V opačnom prípade dôjde k chybe. Pred spustením makra preto vypnete režim návrhu.