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

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

Синтаксис

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

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

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

Параметры

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

Пример

В этом примере перед началом процесса слияния отображается сообщение с запросом пользователя, если он хочет продолжить. Если пользователь нажмет кнопку Нет, процесс слияния будет отменен. В этом примере предполагается, что в общих объявлениях объявлена переменная приложения с именем MailMergeApp и задана переменная, равная объекту Приложения Microsoft Word.

Private Sub MailMergeApp_MailMergeBeforeMerge(ByVal Doc As Document, _ 
 ByVal StartRecord As Long, ByVal EndRecord As Long, _ 
 Cancel As Boolean) 
 
 Dim intVBAnswer As Integer 
 
 '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, "MailMergeBeforeMerge Event") 
 
 'If users response to question is No, cancel the 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

См. также

Объект Application

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

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