Método TextRange.InsertBarcode (Publisher)

Inserta un campo de código de barras al final del intervalo de texto representado por el objeto primario TextRange.

Sintaxis

expresión. InsertBarcode

expresión Variable que representa un objeto TextRange .

Valor devuelto

TextRange

Observaciones

Idealmente, debe crear un complemento de Microsoft Publisher para controlar los eventos MailMergeGenerateBarcode y MailMergeInsertBarcode. Si el complemento de código o no contiene controladores para estos eventos, el método InsertBarcode devuelve un error.

El ejemplo siguiente muestra cómo controlar estos eventos mediante código de Microsoft Visual Basic para aplicaciones (VBA) en el Editor de Visual Basic.

Si desea habilitar la inserción de códigos de barras en la publicación desde la interfaz de usuario, el complemento o el código VBA debe también establecer el valor de la propiedad InsertBarcodeVisible en True.

Ejemplo

El ejemplo siguiente muestra cómo usar el método InsertBarcode para insertar un campo de código de barras en un cuadro de texto de una publicación. Insertar este código en el proyecto de VBA y ejecute el procedimiento AttachToEvents antes de ejecutar el procedimiento InsertBarcode_Example.

Antes de ejecutar el código en este ejemplo, use el método MailMerge.OpenDataSource para conectarse a un origen de datos. El origen de datos debe contener una columna de código de barras que enumera los códigos de barras para todos los destinatarios de combinar correspondencia. Reemplace barcodeColumnIndex en el controlador de eventos MailMergeGenerateBarcode en el código por el número de índice de la columna de origen de datos que contiene información de código de barras.

Ejecute el código siguiente desde la ventana Editor de Visual Basic y no desde el cuadro de diálogo Macros (en el menú Herramientas , seleccione Macro y, a continuación, elija Macros).

Public WithEvents pubApplication As Publisher.Application 
 
Private Sub pubApplication_MailMergeGenerateBarcode(ByVal Doc As Document, bstrString As String) 
 
    bstrString = pubApplication.ActiveDocument.MailMerge.DataSource.DataFields.Item(barcodeColumnIndex).Value 
         
End Sub 
 
Private Sub pubApplication_MailMergeInsertBarcode(ByVal Doc As Document, OkToInsert As Boolean) 
 
    OkToInsert = True 
     
End Sub 
 
Public Sub InsertBarcode_Example() 
 
    Dim pubTextRange As Publisher.TextRange 
    Dim pubShape As Publisher.Shape 
     
    Set pubShape = ThisDocument.Pages(1).Shapes.AddTextbox(pbTextOrientationHorizontal, 100, 100, 500, 500) 
    Set pubTextRange = pubShape.TextFrame.TextRange 
     
    pubTextRange.InsertBarcode 
     
End Sub 
 
Public Sub AttachToEvents() 
 
    Set pubApplication = Application 
 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.