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

Статья
04/07/2023

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

Синтаксис

expression. MailMergeAfterRecordMerge (Doc)

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

Параметры

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

Замечания

При обслуживании базы данных управления клиентами можно использовать событие MailMergeAfterRecordMerge для обновления базы данных для каждой объединенной записи.

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

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

Пример

В этом примере отображается сообщение со значением первого и второго полей в записи, которая только что завершила слияние.

Private Sub MailMergeApp_MailMergeAfterRecordMerge(ByVal Doc As Document) 
 
 With ActiveDocument.MailMerge.DataSource 
 MsgBox .DataFields.Item(3).Value & " " & _ 
 .DataFields.Item(2).Value & " is finished merging." 
 End With 
 
End Sub

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

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

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

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

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