Événement Application.MailMergeBeforeRecordMerge (Word)

Se produit lorsque la fusion d'un enregistrement particulier du publipostage est exécutée.

Syntaxe

expression. MailMergeBeforeRecordMerge (Doc, Cancel)

expressionUne variable qui représente un objetApplication.

Pour plus d’informations sur l’utilisation d’événements avec l’objet Application , consultez Utilisation d’événements avec l’objet Application.

Parameters

Nom	Requis/Facultatif	Type de données	Description
Doc	Obligatoire	Document	Document principal de publipostage.
Cancel	Obligatoire	Booléen	La valeur True arrête le processus de fusion et publipostage, pour l'enregistrement actif uniquement, avant son démarrage.

Exemple

Cet exemple montre comment vérifier que la longueur du code postal, qui dans cet exemple est le champ numéro six, est inférieure à cinq chiffres et, le cas échéant, annule la fusion uniquement pour cet enregistrement. L'exemple présuppose que vous avez déclaré une variable d'application dénommée MailMergeApp dans vos déclarations générales et que vous lui avez affecté une valeur identique à celle de l'objet Application de 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

Voir aussi

Objet Application

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.