Word
Fusión de correo con códigos de barras

Vídeo: Cómo añadir un código de barras a una combinación de correspondencia existente.

En este vídeo le mostramos cómo añadir códigos de barras a una combinación de correspondencia de Microsoft Word.

🔊 Asegúrese de que el audio está activado para seguir las instrucciones. Los subtítulos están disponibles en varios idiomas.

Cómo añadir un código de barras a una combinación de correspondencia existente
Word 365, 2021, 2019, 2016, 2013, 2010, 2007, 2003

1

Abra un documento de combinación de correspondencia que existe o cree uno nuevo.

2


Agregue el objeto de código de barras al documento de combinación de correspondencia. Inserte el objeto Código de barras en el documento de combinación de correspondencia. Colóquelo donde desee en el documento y establezca las propiedades del objeto, como el tipo de código de barras y el tamaño.

Esto se verá como la siguiente captura de pantalla, por ejemplo. Anote el nombre del objeto de código de barras (resaltado aquí en amarillo). Por lo general, este será el código de barras1.

Barcode, Word

3

Se requiere una macro para la combinación de correspondencia. Puede agregar la siguiente macro. Cópielo en el Portapapeles y péguelo desde allí en el editor de Visual Basic para Aplicaciones de 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

4


El resultado se ve así. En la captura de pantalla, también puede ver dónde se inserta la macro.

Barcode, Word

5

Ahora ajuste la macro a su documento de fusión de correo:

Si el nombre del objeto de código de barras no es Código de barras1, cámbielo en la macro (marca amarilla izquierda en la captura de pantalla).

Ahora cambia el nombre del campo desde el origen de datos, que se utilizará para el código de barras. En este ejemplo, se utiliza "Productcode" (marca amarilla derecha en la captura de pantalla). Cambie el nombre entre comillas.

Barcode, Word

6

Guarde el documento e inicie la macro para una impresión de prueba.

Consejo: Inicie la impresión de prueba con muy pocos conjuntos de datos, de modo que no haya demasiadas impresiones erróneas en caso de error o error.

Barcode, Word

7

Hecho.

Info Si ha colocado la macro no en el propio documento, sino, por ejemplo, en Normal. punto, el documento no debe estar en modo de diseño al ejecutar la macro. Esto provocará un error. Por lo tanto, desactive el modo de diseño antes de ejecutar la macro.

Si necesita soporte o una solución individual para la personalización de sus necesidades, podemos ofrecer soporte.