Evento Application.MailMergeInsertBarcode (Publisher)

Ocorre quando o usuário emite o comando para inserir códigos de barras postais em uma publicação de mala direta, seja na interface do usuário do Microsoft Publisher, seja via programação.

Sintaxe

expressão. MailMergeInsertBarcode (Doc, OkToInsert)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Doc	Obrigatório	Documento	A publicação atual.
OkToInsert	Obrigatório	Boolean	Parâmetro de saída. True se é possível inserir códigos de barras.

Comentários

Use o método TextRange.InsertBarcode para inserir códigos de barras em uma publicação de mesclagem de email.

Terceiros suplementos que valide endereços de mala direta podem usar o evento MailMergeInsertBarcode para escutar ações do usuário que está solicitando que códigos de barras a ser inserido. Nessa situação, quando o suplemento recebe a notificação de que o evento MailMergeInsertBarcode foi disparado, ele verifica a validade dos endereços na lista de mesclagem de email e, se os endereços forem válidos, ele tentará gerar códigos de barras. Se essa tentativa for bem-sucedida, o suplemento deverá retornar True para o parâmetro OkToInsert . Se a tentativa falhar, o suplemento deve retornar False.

Os dados de código de barras reais são fornecidos para o Publisher pelo evento MailMergeGenerateBarcode.

O evento MailMergeInsertBarcode também é disparado quando um usuário escolhe Adicionar um código de barras postal no painel de tarefas Mesclagem de Correio ou Mesclagem de Catálogo ou Adicionar códigos de barras postais no painel Tarefas do Editor na interface do usuário do Editor. Antes que um usuário possa escolher um desses comandos de interface do usuário, primeiro você deve disponibilizá-los definindo a propriedade InsertBarcodeVisible como True.

Para obter mais informações sobre como usar eventos com o objeto Application , consulte Usando eventos com o objeto Application.

Exemplo

Os seguintes Microsoft Visual Basic for Applications (VBA) macro mostra como manipular o evento MailMergeInsertBarcode. Exibe uma mensagem perguntando se você deseja continuar com a inserção de códigos de barras.

Private Sub pubApplication_MailMergeInsertBarcode(ByVal Doc As Document, OkToInsert As Boolean) 
 
 Dim intResponse As Integer 
 
 intResponse = MsgBox("Proceed to insert barcodes?", vbYesNo) 
 
 If intResponse = vbYes Then OkToInsert = True 
 
End Sub

Para esse evento ocorrer, coloque a linha de código a seguir na seção Declarações Gerais do módulo.

Public WithEvents pubApplication As Application

Em seguida, você deve executar o procedimento de inicialização a seguir.

Public Sub Initialize_pubApplication() 
 Set pubApplication = Publisher.Application 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.