Méthode MailMergeDataSources.Item (Publisher)

Article
04/07/2023

Renvoie l'objet MailMergeDataSource à la position d'index spécifiée dans la collection MailMergeDataSources.

Syntaxe

expression. Item (varIndex)

Expression Variable qui représente un objet MailMergeDataSources .

Parameters

Nom	Requis/Facultatif	Type de données	Description
Varindex	Obligatoire	Variant	Numéro ou nom d'index de l'objet à renvoyer.

Valeur renvoyée

MailMergeDataSource

Remarques

La méthode Item est le membre par défaut de la collection MailMergeDataSources .

S'il existe un seul objet MailMergeDataSource dans le document actif, la collection MailMergeDataSources est vide. Dans ce cas, si vous essayez d'utiliser la propriété DataSources de l'objet MailMergeDataSource pour récupérer la collection de sources de données, Microsoft Publisher renvoie une erreur.

Exemple

Le suivant de Visual Basic pour Applications Microsoft macro (VBA) montre comment obtenir les noms de toutes les sources de données connectées dans la collection MailMergeDataSources dans le document actif. Il utilise la propriété IsDataSourceConnected du document actif pour déterminer si une source de données est connectée.

Si une ou plusieurs sources de données sont connectées, la macro utilise la propriété Count pour déterminer le nombre de sources de données connectées.

Si une seule source de données est connectée, la macro imprime le nom de cette source de données dans la fenêtre Exécution ; si plusieurs sources de données sont connectées, la macro utilise la méthode Item pour itérer au sein de la collection et la propriété MailMergeDataSource.Name pour imprimer le nom de chaque source de données connectée dans la fenêtre Exécution.

Public Sub Item_Example() 
 
 Dim pubMailMergeDataSources As Publisher.MailMergeDataSources 
 Dim pubMailMergeDataSource As Publisher.MailMergeDataSource 
 Dim lngCount As Long 
 Dim intCounter As Integer 
 
 If ThisDocument.IsDataSourceConnected Then 
 
 Set pubMailMergeDataSources = ThisDocument.MailMerge.DataSource.DataSources 
 
 lngCount = pubMailMergeDataSources.Count 
 
 If lngCount > 1 Then 
 
 ' More than one data source is connected. 
 For intCounter = 1 To lngCount 
 Debug.Print pubMailMergeDataSources.Item(intCounter).Name 
 Next 
 
 Else 
 
 ' Only one data source is connected. 
 Set pubMailMergeDataSource = ThisDocument.MailMerge.DataSource 
 Debug.Print "Only one data source ("; pubMailMergeDataSource.Name; ") is connected." 
 
 End If 
 
 Else 
 
 Debug.Print "No data sources are connected." 
 
 End If 
 
End Sub

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.

Partager via