Méthode MailMergeDataSource.FindRecord (Word)
Recherche le contenu de la source de données de fusion et publipostage spécifiée pour le texte dans un champ particulier. Renvoie la valeur True si le texte recherché est trouvé. Boolean.
Syntaxe
expression. FindRecord
( _FindText_
, _Field_
)
expression Obligatoire. Variable qui représente un objet « MailMergeDataSource ».
Parameters
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
FindText | Obligatoire | Chaîne | Texte à rechercher. |
Field | Obligatoire | Variant | Nom du champ dans lequel la recherche doit être effectuée. |
Valeur renvoyée
Booléen
Remarques
Cette méthode correspond au bouton Rechercher l'enregsitrement dans la barre d'outils Publipostage.
La méthode FindRecord effectue une recherche vers l'avant uniquement. Par conséquent, si l'enregistrement actif n'est pas le premier enregistrement dans la source de données et l'enregistrement que vous recherchez se trouve avant l'enregistrement actif, la méthode FindRecord ne renvoie aucun résultat. Pour vous assurer que la source de données entière est recherchée, définissez la propriété ActiveRecord à wdFirstRecord.
Exemple
Cet exemple montre comment afficher dans un document résultant de la fusion le premier enregistrement dont le champ « FirstName » contient « Joe ». Si cet enregistrement est trouvé, son numéro est stocké dans la variable numRecord.
Dim dsMain As MailMergeDataSource
Dim numRecord As Integer
ActiveDocument.MailMerge.ViewMailMergeFieldCodes = False
Set dsMain = ActiveDocument.MailMerge.DataSource
If dsMain.FindRecord(FindText:="Joe", _
Field:="FirstName") = True Then
numRecord = dsMain.ActiveRecord
End If
Voir aussi
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.
Commentaires
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Envoyer et afficher des commentaires pour