Barcodes gebruiken en automatiseren met VBA in Word

Barcodes gebruiken en automatiseren met VBA

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

Je kunt VisualBasic for Applications (VBA) gebruiken om veel dingen op te lossen in Word. Hier laten we zien hoe je het ActiveBarcode-besturingselement kunt insluiten, gebruiken en verwijderen met VBA:

De ActiveBarcode Control insluiten in een document:
In dit voorbeeld wordt een barcodebesturingselement op de cursorpositie geplaatst. Vervolgens kun je het object wijzigen met de variabele ab:

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

Stel de standaardeigenschappen (hoogte, breedte) van het object in met de variabele ab:

ab.Width = 200
ab.Height = 120

Je hebt toegang tot de eigenschappen en methoden van het barcodeobject door de property OLEFormat.Object te gebruiken:

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

Je kunt ook een schonere manier gebruiken om toegang te krijgen tot de eigenschappen door een variabele te maken en te gebruiken, bijvoorbeeld met de naam abObject:

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

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

Met de volgende aanroep kun je het barcode-object in een InlineShape gieten. Merk op dat je de barcode niet kunt wijzigen na de conversie.

ab.ConvertToShape

Als je het besturingselement niet meer nodig hebt, kun je het verwijderen uit het document:

 ab.Delete

Tip: Als het nodig is dat Windows aankomende gebeurtenissen verwerkt (vaak KeepWindowsAlive genoemd) binnen een macro, kun je dit forceren door de volgende VBA-functie te gebruiken:

DoEvents

Dit kan bijvoorbeeld nodig zijn als het besturingselement zichzelf nieuw moet tekenen.

Word Macro (VBA) om barcodes aan pagina's toe te voegen.
voor Word 365, 2024, 2021, 2019, 2016, 2013, 2010
Deze macro laat zien hoe je een barcode toevoegt aan elke pagina met een variabele inhoud en een paginanummer.

Barcodes gebruiken in mailmerge in Word

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

►

Open een bestaand samenvoegdocument of maak een nieuw document.

Voeg het barcodeobject toe aan je samenvoegdocument. Plaats het op de gewenste plaats in het document en stel de eigenschappen van het object in, zoals het type en de grootte van de streepjescode.

Dit ziet er bijvoorbeeld uit als de volgende schermafbeelding. Let op de naam van het barcodeobject - hier geel gemarkeerd. Meestal is dit Barcode1. ActiveBarcode: Barcode, Word

Een macro is vereist voor de samenvoeging. Je kunt de volgende macro toevoegen. Kopieer het naar het Klembord en plak het van daaruit in de Visual Basic for Applications editor van 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

Het resultaat ziet er als volgt uit. In de schermafbeelding kun je ook zien waar de macro is ingevoegd. ActiveBarcode: Barcode, Word

Pas nu de macro aan je samenvoegingsbericht aan:

Als de naam van je barcodeobject niet Barcode1 is, wijzig je deze in de macro - gele markering links in de schermafbeelding.

Nu wijzigt u de veldnaam van uw gegevensbron die moet worden gebruikt voor de streepjescode. In dit voorbeeld wordt Productcode gebruikt - rechter gele markering in de schermafbeelding. Wijzig de naam binnen de aanhalingstekens. ActiveBarcode: Barcode, Word

Sla het document op en start de macro voor een testafdruk.

Tip: Begin de testafdruk met een kleine hoeveelheid gegevens zodat er minder misdrukken zijn in geval van een fout. ActiveBarcode: Barcode, Word

Gedaan.

Als je de macro in Normal.dot hebt geplaatst in plaats van in het document zelf, mag het document niet in de ontwerpmodus staan wanneer je de macro uitvoert. Als je dat wel doet, krijg je een foutmelding. Schakel daarom de ontwerpmodus uit voordat je de macro uitvoert.