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

Статья
04/07/2023

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

Синтаксис

expression. MailMergeBeforeRecordMerge (Doc, Cancel)

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

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

Параметры

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

Пример

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

Private Sub MailMergeApp_MailMergeBeforeRecordMerge(ByVal _ 
 Doc As Document, Cancel As Boolean) 
 
 Dim intZipLength As Integer 
 
 intZipLength = Len(ActiveDocument.MailMerge _ 
 .DataSource.DataFields(6).Value) 
 
 'Cancel merge of this record only if 
 'the ZIP Code is fewer than five digits 
 If intZipLength < 5 Then 
 Cancel = True 
 End If 
 
End Sub

См. также

Объект Application

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

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