TextRange.InsertBarcode - метод (Publisher)

Вставляет поле штрих-кода в конец текстового диапазона, представленного родительским объектом TextRange .

Синтаксис

выражение. ВставкаШтрихкод

выражение Переменная, представляющая объект TextRange .

Возвращаемое значение

TextRange

Примечания

В идеале следует создать надстройку для Microsoft Publisher для обработки событий MailMergeGenerateBarcode и MailMergeInsertBarcode . Если надстройка или код не содержат обработчиков для этих событий, метод InsertBarcode возвращает ошибку.

В приведенном ниже примере показано, как обрабатывать эти события с помощью кода Microsoft Visual Basic для приложений (VBA) в редакторе Visual Basic.

Если вы хотите разрешить вставку штрихкодов в публикацию из пользовательского интерфейса, для кода надстройки или VBA также необходимо установить для свойства InsertBarcodeVisible значение True.

Пример

В следующем примере показано, как использовать метод InsertBarcode для вставки поля штрих-кода в текстовое поле публикации. Вставьте этот код в свой проект VBA и запустите процедуру AttachToEvents перед запуском процедуры InsertBarcode_Example .

Перед выполнением кода в этом примере используйте метод MailMerge.OpenDataSource для подключения к источнику данных. Источник данных должен содержать столбец со штрихкодами, в котором перечислены штрихкоды всех получателей слияния. Замените barcodeColumnIndex в обработчике событий MailMergeGenerateBarcode в коде индексным номером столбца источника данных, содержащего сведения о штрихкоде.

Выполните следующий код из окна редактора Visual Basic, а не из диалогового окна "Макросы " (в меню "Сервис " наведите указатель мыши на элемент "Макрос", а затем выберите "Макросы").

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.