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

Статья
04/07/2023

Происходит при выполнении слияния перед слиянием всех записей в слиянии.

Синтаксис

expression. MailMergeBeforeMerge (Doc, StartRecord, EndRecord, Cancel)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Док	Обязательный	Документ	Основной документ слияния.
StartRecord	Обязательный	Long	Первая запись в источнике данных, включенная в слияние.
EndRecord	Обязательный	Long	Последняя запись в источнике данных, включаемая в слияние.
Отмена	Обязательный	Boolean	Останавливает процесс слияния перед его запуском.

Замечания

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

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

Пример

В этом примере перед началом процесса слияния отображается сообщение с запросом пользователя, если он хочет продолжить. Если пользователь выбирает Нет, процесс слияния отменяется.

Private Sub MailMergeApp_MailMergeBeforeMerge(ByVal Doc As Document, _ 
 ByVal StartRecord As Long, ByVal EndRecord As Long, _ 
 Cancel As Boolean) 
 
 Dim intVBAnswer As Integer 
 
 Set Doc = ActiveDocument 
 
 'Request whether the user wants to continue with the merge 
 intVBAnswer = MsgBox("Mail Merge for " & Doc.Name & _ 
 " is now starting. Do you want to continue?", _ 
 vbYesNo, "Event!") 
 
 'If user's response to question is No, then cancel merge process 
 'and deliver a message to the user stating the merge is canceled 
 If intVBAnswer = vbNo Then 
 Cancel = True 
 MsgBox "You have canceled mail merge for " & _ 
 Doc.Name & "." 
 End If 
 
End Sub

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

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

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