TextRange.InsertBarcode-Methode (Publisher)

Fügt ein Barcode-Feld am Ende des Textbereichs, dargestellt durch das übergeordnete TextRange -Objekt.

Syntax

Ausdruck. InsertBarcode

Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.

Rückgabewert

TextRange

Hinweise

Idealerweise sollten Sie ein Add-in für Microsoft Publisher zum Verarbeiten von Ereignissen der MailMergeGenerateBarcode und MailMergeInsertBarcode erstellen. Wenn Ihr Add-in oder Code nicht Handler für diese Ereignisse enthalten, gibt die InsertBarcode -Methode einen Fehler zurück.

Im folgenden Beispiel wird dargestellt, wie Sie diese Ereignisse mit dem Microsoft Visual Basic für Applikationen-Code (VBA) im Visual Basic-Editor behandeln können.

Wenn Sie das Einfügen von Strichcodes in der Publikation von der Benutzeroberfläche aktivieren möchten, sollte Ihr Add-in oder VBA-Code auch den InsertBarcodeVisible -Eigenschaftswert auf True festgelegt.

Beispiel

Im folgenden Beispiel wird veranschaulicht, wie die InsertBarcode -Methode verwenden, ein Barcodefeld in das Textfeld in einer Publikation einfügen. Legen Sie diesen Code in das VBA-Projekt, und führen Sie das Verfahren AttachToEvents vor dem Ausführen der Prozedur InsertBarcode_Example.

Verwenden Sie vor dem Ausführen des Codes in diesem Beispiel wird die MailMerge.OpenDataSource -Methode für die Verbindung mit einer Datenquelle. Die Datenquelle muss eine Barcode Spalte enthalten, die Strichcodes für alle Seriendruck Empfänger enthält. Ersetzen Sie barcodeColumnIndex im MailMergeGenerateBarcode-Ereignishandler im Code durch die Indexnummer der Datenquellenspalte, die Barcodeinformationen enthält.

Führen Sie den folgenden Code im Visual Basic-Editor-Fenster und nicht im Dialogfeld Makros aus (zeigen Sie im Menü Extras auf Makro, und wählen Sie dann Makros aus).

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.