Word
Objetos de código de barras con VBA

Uso y automatización de códigos de barras con VBA en Word

Puede usar VisualBasic para Aplicaciones (VBA) para resolver muchas cosas en Word. Aquí le mostraremos cómo incrustar, usar y eliminar el control ActiveBarcode con VBA:

Incrustar el control ActiveBarcode en un documento:
En este ejemplo, se colocará un control de código de barras en la posición de los cursores. A continuación, puede modificar el objeto utilizando la variable 'ab':

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

Establezca las propiedades estándar (altura, anchura) del objeto utilizando la variable 'ab':

ab.Width = 200
ab.Height = 120

Puede tener acceso a las propiedades y métodos del objeto de código de barras mediante la propiedad "OLEFormat.Object":

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

También puede utilizar una forma más limpia de acceder a las propiedades mediante la creación y el uso de una variable, por ejemplo, denominada 'abObject':

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

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

Con la siguiente llamada puede convertir el objeto de código de barras en un InlineShape. Tenga en cuenta, sin embargo, que puede cambiar el código de barras ya no después de la conversión.

ab.ConvertToShape

Si ya no necesita el control, puede eliminarlo del documento:

 ab.Delete

Sugerencia: Si es necesario que Windows procese los próximos eventos (a menudo denominados "KeepWindowsAlive") dentro de una macro, puede forzar esto mediante la siguiente función VBA:

DoEvents

Esto puede ser necesario, por ejemplo, si el Control debe dibujarse de nuevo.