Classe MailMergeDataField (Word VBA)

La classe MailMergeDataField représente un seul champ de fusion et publipostage dans une source de données.

Set

Pour utiliser une variable de classe MailMergeDataField, elle doit d'abord être instanciée, par exemple

Dim mmd as MailMergeDataField
Set mmd = ActiveDocument.MailMerge.DataSource.DataFields(Index:=1)

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe MailMergeDataField : MailMergeDataFields.Item et MailMergeDataSource.DataFields

For Each

Voici un exemple de traitement des éléments MailMergeDataField dans une collection

Dim mmdDataField As MailMergeDataField
For Each mmdDataField In ActiveDocument.MailMerge.DataSource.DataFields
	
Next mmdDataField

Index

Renvoie un type long qui représente la position d'un élément dans une collection.

Dim lngIndex As Long
lngIndex = ActiveDocument.MailMerge.DataSource.DataFields(1).Index

Name

Retourne le nom de l'objet spécifié.

Dim strName As String
strName = ActiveDocument.MailMerge.DataSource.DataFields(1).Name

Parent

Renvoie un type de données Object qui représente l'objet parent de l'objet MailMergeDataField spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.MailMerge.DataSource.DataFields(1).Parent

Value

Renvoie le contenu du champ de données de fusion et publipostage ou champ de données mappé pour l'enregistrement actif.

Utilisez la propriété ActiveRecord pour définir l'enregistrement actif dans une source de données de fusion et publipostage.

For Each dataF In _ 
 Documents("Main.doc").MailMerge.DataSource.DataFields 
 If dataF.Value <> "" Then dRecord = dRecord & _ 
 dataF.Value & vbCr 
Next dataF 
MsgBox dRecord

MailMergeDataFields.Count

Renvoie un type long qui représente le nombre de champs de données de fusion et publipostage dans la collection.

Dim lngCount As Long
lngCount = ActiveDocument.MailMerge.DataSource.DataFields.Count

MailMergeDataFields.Item

Renvoie un objet MailMergeDataField spécifique appartenant à une collection.

Syntaxe : expression.Item (Index)

Index: Objet spécifique qui doit être renvoyé.

Dim mmd As MailMergeDataField
Set mmd = ActiveDocument.MailMerge.DataSource.DataFields(Index:=1)

MailMergeDataFields.Parent

Renvoie un Object qui représente l'objet parent de l'objet MailMergeDataFields spécifié.

Dim objParent As Object
Set objParent = ActiveDocument.MailMerge.DataSource.DataFields.Parent