Brug og automatisering af stregkoder med VBA i Word

Du kan bruge VisualBasic for Applications (VBA) til at løse mange opgaver i Word. Her viser vi dig, hvordan du integrerer, bruger og sletter ActiveBarcode-kontrolelementet med VBA:

Indlejring af ActiveBarcode Control i et dokument:
I dette eksempel placeres en stregkodekontrol ved markørens position. Derefter kan du ændre objektet ved hjælp af variablen ab:

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

Indstil objektets standardegenskaber (højde, bredde) ved hjælp af variablen ab:

ab.Width = 200
ab.Height = 120

Du kan få adgang til egenskaberne og metoderne for stregkodeobjektet ved hjælp af egenskaben OLEFormat.Object:

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

Du kan også bruge en mere overskuelig måde at få adgang til egenskaberne på ved at oprette og bruge en variabel, f.eks. med navnet abObject:

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

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

Ved hjælp af følgende kald kan du caste stregkodeobjektet i en InlineShape. Bemærk, at du ikke kan ændre stregkoden efter konverteringen.

ab.ConvertToShape

Hvis du ikke længere har brug for kontrollen, kan du slette den fra dokumentet:

 ab.Delete

Tip: Hvis det er nødvendigt for Windows at behandle kommende begivenheder (ofte benævnt KeepWindowsAlive) inden for en makro, kan du tvinge dette ved hjælp af følgende VBA-funktion:

DoEvents

Dette kan være nødvendigt, f.eks. hvis kontrolelementet skal tegne sig selv på ny.