Používání a automatizace čárových kódů pomocí VBA v Word

Používání a automatizace čárových kódů pomocí VBA

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

Pomocí jazyka VisualBasic for Applications (VBA) můžete v aplikaci Word řešit mnoho věcí. Zde vám ukážeme, jak vložit, používat a odstranit ovládací prvek ActiveBarcode pomocí VBA:

Vložení ovládacího prvku ActiveBarcode do dokumentu:
V tomto příkladu bude ovládací prvek čárového kódu umístěn na pozici kurzoru. Poté můžete objekt upravit pomocí proměnné ab:

Dim ab As Object
Set ab = Selection.InlineShapes.AddOLEObject(ClassType:="ACTIVEBARCODE.BarcodeCtrl.1",
  FileName:="", LinkToFile:=False, DisplayAsIcon:=False)

Nastavte standardní vlastnosti (výška, šířka) objektu pomocí proměnné ab:

ab.Width = 200
ab.Height = 120

K vlastnostem a metodám objektu čárového kódu můžete přistupovat pomocí vlastnosti OLEFormat.Object:

ab.OLEFormat.Object.Type = 6
ab.OLEFormat.Object.Text = "987698769812"

K přístupu k vlastnostem můžete také použít čistší způsob, a to vytvořením a použitím proměnné, např. s názvem abObject:

Dim abObject As Object
With ab.OLEFormat
  .Activate
  Set abObject = .Object
End With

abObject.Type = 6
abObject.Text = "987698769812"

Pomocí následujícího volání můžete převést objekt čárového kódu do InlineShape. Upozorňujeme, že po převodu již nelze čárový kód změnit.

ab.ConvertToShape

Pokud již ovládací prvek nepotřebujete, můžete jej z dokumentu odstranit:

 ab.Delete

Tip: Pokud je nutné, aby Windows zpracovával nadcházející události (často označované jako KeepWindowsAlive) v rámci makra, můžete to vynutit pomocí následující funkce VBA:

DoEvents

To může být nutné například v případě, že se ovládací prvek musí překreslit.

Makro Word (VBA) pro přidání čárových kódů na stránky.
pro Word 365, 2024, 2021, 2019, 2016, 2013, 2010
Toto makro ukazuje, jak přidat jeden čárový kód na každou stránku obsahující proměnný obsah a číslo stránky.

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. ActiveBarcode: Barcode, Word

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. ActiveBarcode: Barcode, Word

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. ActiveBarcode: Barcode, Word

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ů. ActiveBarcode: Barcode, Word

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.