Word
Malha de correspondência com códigos de barras

Utilize códigos de barras na mala direta do Word

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

Abra um documento de mala direta existente ou crie um novo.


Adicione o objeto Código de barras ao seu documento de mala direta. Posicione-o no local desejado no documento e defina as propriedades do objeto, como tipo e tamanho do código de barras.

Isso será semelhante à captura de tela a seguir, por exemplo. Observe o nome do objeto código de barras - destacado aqui em amarelo. Normalmente, será Código de barras 1.




É necessária uma macro para a mala direta. É possível adicionar a seguinte macro. Copie-a para a área de transferência e cole-a no editor do Visual Basic para Aplicações do 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

O resultado é semelhante ao apresentado. Na captura de tela, é possível observar também onde a macro está inserida.




Agora, ajuste a macro ao seu documento de mala direta:

Caso o nome do seu objeto de código de barras não seja Barcode1, modifique-o na macro - marca amarela à esquerda na captura de tela.

Agora, altere o nome do campo da sua fonte de dados que será utilizado para o código de barras. Neste exemplo, é utilizado o código do produto - marca amarela à direita na captura de tela. Altere o nome entre aspas.




Salve o documento e inicie a macro para uma impressão de teste.

Recomendação: Inicie a impressão de teste com uma pequena quantidade de dados para que haja menos erros de impressão em caso de falha.




Concluído.

Caso tenha colocado a macro em Normal.dot em vez de no próprio documento, o documento não deve estar no modo de design quando executar a macro. Isso resultará em um erro. Portanto, desative o modo de design antes de executar a macro.