Bruk og automatisering av strekkoder med VBA i Word

Bruk og automatisering av strekkoder med VBA

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

Du kan bruke VisualBasic for Applications (VBA) til å løse mange oppgaver i Word. Her viser vi deg hvordan du kan legge inn, bruke og slette ActiveBarcode-kontrollen med VBA:

Innebygge ActiveBarcode Control i et dokument:
I dette eksemplet vil en strekkodekontroll plasseres på markørens posisjon. Deretter kan du endre objektet ved hjelp av variabelen ab:

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

Angi standardegenskapene (høyde, bredde) for objektet ved hjelp av variabelen ab:

ab.Width = 200
ab.Height = 120

Du kan få tilgang til egenskapene og metodene til strekkodeobjektet ved å bruke egenskapen OLEFormat.Object:

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

Du kan også bruke en renere måte å få tilgang til egenskapene på ved å opprette og bruke en variabel, for eksempel med navnet abObject:

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

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

Ved hjelp av følgende kall kan du kaste strekkodeobjektet i en InlineShape. Merk at du ikke kan endre strekkoden etter konverteringen.

ab.ConvertToShape

Hvis du ikke lenger trenger kontrollen, kan du slette den fra dokumentet:

 ab.Delete

Tips: Hvis det er nødvendig for Windows å behandle kommende hendelser (ofte referert til som KeepWindowsAlive) i en makro, kan du tvinge dette ved å bruke følgende VBA-funksjon:

DoEvents

Dette kan være nødvendig, f.eks. hvis kontrollen må tegne seg selv på nytt.

Word-makro (VBA) for å legge til strekkoder på sider.
for Word 365, 2024, 2021, 2019, 2016, 2013, 2010
Denne makroen viser hvordan du legger til én strekkode på hver side som inneholder variabelt innhold og et sidetall.

Bruk strekkoder i Word-brevfusjon

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

►

Åpne et eksisterende dokument for brevfusjon eller opprett et nytt.

Legg til strekkodeobjektet i dokumentet for brevfusjon. Plasser det der du ønsker i dokumentet, og angi egenskapene til objektet, for eksempel strekkodetype og størrelse.

Dette vil for eksempel se ut som på følgende skjermbilde. Legg merke til navnet på strekkodeobjektet – her markert med gult. Vanligvis vil dette være Barcode1. ActiveBarcode: Barcode, Word

Det kreves en makro for å kunne utføre brevfusjon. Du kan legge til følgende makro. Kopier den til utklippstavlen og lim den inn i Visual Basic for Applications-redigeringsprogrammet i 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

Resultatet ser slik ut. På skjermbildet kan du også se hvor makroen er satt inn. ActiveBarcode: Barcode, Word

Juster nå makroen til dokumentet for brevfusjon:

Hvis navnet på strekkodeobjektet ikke er Barcode1, endrer du det i makroen – venstre gul markering i skjermbildet.

Nå endrer du feltnavnet fra datakilden din, som skal brukes til strekkoden. I dette eksemplet brukes Productcode – høyre gul markering i skjermbildet. Endre navnet innenfor anførselstegnene. ActiveBarcode: Barcode, Word

Lagre dokumentet og start makroen for en testutskrift.

Tips: Start testutskriften med en liten mengde data, slik at det blir færre feilutskrifter i tilfelle det oppstår en feil. ActiveBarcode: Barcode, Word

Ferdig.

Hvis du har plassert makroen i Normal.dot i stedet for i selve dokumentet, må dokumentet ikke være i designmodus når du kjører makroen. Hvis du gjør det, vil det oppstå en feil. Slå derfor av designmodus før du kjører makroen.