Событие Application.MailMergeInsertBarcode (Publisher)

Статья
04/07/2023

Происходит, когда пользователь выполняет команду для вставки почтовых штрихкодов в публикацию при слиянии либо в пользовательском интерфейсе Издателя Майкрософт, либо программным способом.

Синтаксис

expression. MailMergeInsertBarcode (Doc, OkToInsert)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Док	Обязательный	Документ	Текущая публикация.
OkToInsert	Обязательный	Boolean	Выходной параметр. Значение True , если можно вставлять штрихкоды.

Замечания

Используйте метод TextRange.InsertBarcode для вставки штрихкодов в публикацию слияния.

Сторонние надстройки, проверяющие адреса слияния, могут использовать событие MailMergeInsertBarcode для прослушивания действий пользователей, запрашивающих вставку штрихкодов. В этой ситуации, когда надстройка получает уведомление о срабатывании события MailMergeInsertBarcode , она проверяет допустимость адресов в списке слияния и, если адреса действительны, она пытается создать штрихкоды. В случае успешной попытки надстройка должна вернуть значение True для параметра OkToInsert . Если попытка завершается неудачей, надстройка должна вернуть значение False.

Фактические данные штрихкода предоставляются издателю событием MailMergeGenerateBarcode .

Событие MailMergeInsertBarcode также активируется, когда пользователь выбирает Добавить почтовый штрихкод в области задач Слияние почты или Слияние каталога или Добавить почтовые линейчатые коды в области задач Задачи издателя в пользовательском интерфейсе издателя. Прежде чем пользователь сможет выбрать любой из этих команд пользовательского интерфейса, необходимо сделать их доступными, задав для свойства InsertBarcodeVisible значение True.

Дополнительные сведения об использовании событий с объектом Application см. в разделе Использование событий с объектом Application.

Пример

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

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

Чтобы это событие произошло, необходимо поместить следующую строку кода в раздел Общие объявления модуля.

Public WithEvents pubApplication As Application

Затем необходимо выполнить следующую процедуру инициализации.

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

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

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

Поделиться через