Word – Hromadná korespondence s čárovými kódy

Používání čárových kódů ve hromadné korespondenci v aplikaci Word

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

Otevřete existující dokument pro hromadnou korespondenci nebo vytvořte nový.


Přidejte objekt čárového kódu do dokumentu hromadné korespondence. Umístěte jej na požadované místo v dokumentu a nastavte vlastnosti objektu, jako je typ a velikost čárového kódu.

Bude to vypadat například jako na následujícím snímku obrazovky. Poznamenejte si název objektu čárového kódu – zde zvýrazněný žlutě. Obvykle se jedná o Barcode1.




Pro hromadnou korespondenci je nutné makro. Můžete přidat následující makro. Zkopírujte jej do schránky a vložte jej z ní do editoru Visual Basic for Applications v aplikaci 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ýsledek vypadá takto. Na snímku obrazovky můžete také vidět, kde je makro vloženo.




Nyní přizpůsobte makro dokumentu hromadné korespondence:

Pokud název vašeho objektu čárového kódu není Barcode1, změňte jej v makru – levá žlutá značka na snímku obrazovky.

Nyní změňte název pole ze zdroje dat, které má být použito pro čárový kód. V tomto příkladu se používá Productcode – pravá žlutá značka na snímku obrazovky. Změňte název uvnitř uvozovek.




Uložte dokument a spusťte makro pro zkušební tisk.

Tip: Zahajte zkušební tisk s malým množstvím dat, aby v případě chyby došlo k menšímu počtu chybných výtisků.




Hotovo.

Pokud jste makro umístili do souboru Normal.dot namísto do samotného dokumentu, dokument nesmí být při spuštění makra v režimu návrhu. V opačném případě dojde k chybě. Před spuštěním makra proto vypněte režim návrhu.