endeesfritpt

Word
Objetos de código de barras con VBA

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

1

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.