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

Статья
04/07/2023

Происходит после успешного слияния всех записей в слиянии.

Синтаксис

expression. MailMergeAfterMerge (Doc)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Док	Обязательный	Документ	Основной документ слияния.

Замечания

Чтобы получить доступ к событиям объекта Application , объявите переменную объекта Application в разделе Общие объявления модуля кода, а затем задайте переменную, равную объекту Application , для которого требуется получить доступ к событиям.

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

Пример

В этом примере отображается сообщение о том, что все записи в указанном документе завершены.

Private Sub MailMergeApp_MailMergeAfterMerge(ByVal Doc As Document) 
 
 MsgBox "Your mail merge on " & _ 
 ActiveDocument.Name & " is now finished." 
 
End Sub

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

Private WithEvents MailMergeApp As Application 
 
Sub InitializeMailMergeApp() 
 Set MailMergeApp = Publisher.Application 
End Sub

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

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

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