Korištenje i automatizacija barkodova pomoću VBA u Word

Korištenje i automatizacija barkodova pomoću VBA

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

Možete koristiti Visual Basic za aplikacije (VBA) za rješavanje mnogih stvari u Wordu. Ovdje ćemo vam pokazati kako ugraditi, koristiti i izbrisati kontrolu ActiveBarcode pomoću VBA:

Ugradnja ActiveBarcode kontrole u dokument:
U ovom primjeru kontrola barkoda bit će postavljena na položaj kursora. Zatim možete izmijeniti objekt koristeći varijablu ab:

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

Postavite standardna svojstva (visinu, širinu) objekta koristeći varijablu ab:

ab.Width = 200
ab.Height = 120

Možete pristupiti svojstvima i metodama objekta crtičnog koda koristeći svojstvo OLEFormat.Object:

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

Također možete koristiti čišći način pristupa svojstvima tako da kreirate i koristite varijablu, npr. nazvanu abObject:

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

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

Koristeći sljedeći poziv možete pretvoriti objekt barkoda u InlineShape. Imajte na umu da nakon konverzije ne možete mijenjati barkod.

ab.ConvertToShape

Ako vam kontrola više nije potrebna, možete je izbrisati iz dokumenta:

 ab.Delete

Savjet: Ako je potrebno da Windows obradi nadolazeće događaje (često nazivane KeepWindowsAlive) unutar makra, to možete prisiliti koristeći sljedeću VBA funkciju:

DoEvents

Ovo može biti potrebno, npr. ako Kontrola mora ponovno nacrtati sebe.

Vordov makro (VBA) za dodavanje crtičnjaka na stranice.
za Word 365, 2024, 2021, 2019, 2016, 2013, 2010
Ovaj makro pokazuje kako dodati jedan crtični kod na svaku stranicu koja sadrži promjenjiv sadržaj i broj stranice.

Korištenje crtičnog koda u Wordovoj objedinjenoj pošti

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

►

Otvorite postojeći dokument spajanja pošte ili stvorite novi.

Dodajte objekt crtičnog koda u dokument spajanja pošte. Postavite ga na mjesto po želji u dokumentu i postavite svojstva objekta, poput vrste i veličine crtičnog koda.

Ovo će, na primjer, izgledati kao sljedeći snimak zaslona. Obratite pažnju na naziv objekta crtičnog koda – ovdje istaknut žutom bojom. Obično je to Barcode1. ActiveBarcode: Barcode, Word

Za spajanje pošte potreban je makro. Možete dodati sljedeći makro. Kopirajte ga u međuspremnik i zalijepite ga odatle u uređivač Visual Basic for Applications u Wordu:

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

Rezultat izgleda ovako. Na snimci zaslona također možete vidjeti gdje je makro umetnut. ActiveBarcode: Barcode, Word

Sada prilagodite makro dokumentu spajanja pošte:

Ako naziv vašeg objekta barkoda nije Barcode1, promijenite ga u makrou – lijeva žuta oznaka na snimci zaslona.

Sada promijenite naziv polja u vašem izvoru podataka koji će se koristiti za barkod. U ovom primjeru koristi se Productcode – žuta oznaka desno na snimci zaslona. Promijenite naziv unutar navodnika. ActiveBarcode: Barcode, Word

Spremite dokument i pokrenite makro za probni ispis.

Savjet: Započnite probni ispis s malom količinom podataka kako bi u slučaju pogreške bilo manje grešaka u ispisu. ActiveBarcode: Barcode, Word

Gotovo.

Ako ste smjestili makro u Normal.dot umjesto u sam dokument, dokument ne smije biti u načinu dizajna kada pokrenete makro. To će rezultirati greškom. Stoga isključite način dizajna prije pokretanja makra.