Klasse MailMergeDataField (Word VBA)

Die Klasse MailMergeDataField stellt ein einzelnes Seriendruckfeld in einer Datenquelle dar.

Set

Um eine MailMergeDataField -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

Die folgenden Prozeduren können zum Festlegen der MailMergeDataField Klassenvariablen verwendet werden : MailMergeDataFields.Item und MailMergeDataSource.DataFields

For Each

Hier ist ein Beispiel für die Verarbeitung der MailMergeDataField -Elemente in einer Sammlung

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

Index

Gibt einen Wert vom Typ Long zurück, der die Position eines Elements in einer Auflistung darstellt.

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

Name

Gibt den Namen des angegebenen Objekts zurück.

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

Parent

Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen MailMergeDataField-Objekts darstellt.

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

Value

Gibt den Inhalt des Felds Seriendruckdaten oder zugeordnete Daten für den aktuellen Datensatz zurück.

Verwenden Sie die ActiveRecord -Eigenschaft, um den aktiven Datensatz in einer Seriendruck-Datenquelle festzulegen.

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

Gibt einen Wert vom Typ Long zurück, der die Anzahl der Seriendruck-Datenfelder in der Auflistung darstellt.

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

MailMergeDataFields.Item

Gibt ein einzelnes MailMergeDataField -Objekt in einer Auflistung zurück.

Syntax : expression.Item (Index)

Index: Das einzelne Objekt zurückgegeben werden soll.

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

MailMergeDataFields.Parent

Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen MailMergeDataFields-Objekts darstellt.

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