Clase MailMergeDataField (Word VBA)

La clase MailMergeDataField representa un solo campo de combinación de correspondencia de un origen de datos.

Set

Para usar una variable de clase MailMergeDataField, primero debe ser instanciado, por ejemplo

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

Los siguientes procedimientos se pueden usar para establecer variables de clase MailMergeDataField : MailMergeDataFields.Item y MailMergeDataSource.DataFields

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos MailMergeDataField en una colección.

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

Index

Devuelve un valor de tipo Long que representa la posición de un elemento en una colección.

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

Name

Devuelve el nombre del objeto especificado.

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

Parent

Devuelve un objeto Object que representa el objeto primario del objeto MailMergeDataField especificado.

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

Value

Devuelve el contenido del campo de datos de combinación de correspondencia o campo de datos asignado para el registro actual.

Utilice la propiedad ActiveRecord para establecer el registro activo de un origen de datos de combinación de correspondencia.

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

Devuelve un Long que representa el número de campos de datos de combinación de correspondencia de la colección.

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

MailMergeDataFields.Item

Devuelve un objeto MailMergeDataField individual de una colección.

Sintaxis : expression.Item (Index)

Index: El objeto individual que se va a devolver.

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

MailMergeDataFields.Parent

Devuelve un objeto Object que representa el objeto primario del objeto MailMergeDataFields especificado.

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