Compartilhar via

MailMergeDataSource.MappedDataFields Property

  • Artigo
Word Developer Reference

Returns a MappedDataFields collection that represents the mapped data fields available in Microsoft Word.

Syntax

expression.MappedDataFields

expression   An expression that returns a MailMergeDataSource object.

Example

This example creates a tabbed list of the mapped data fields available in Word and the fields in the data source to which they are mapped. This example assumes that the current document is a mail merge document.

Visual Basic for Applications 
  Sub MappedFields()
    Dim intCount As Integer
    Dim docCurrent As Document
    Dim docNew As Document

On Error Resume Next

Set docCurrent = ActiveDocument
Set docNew = Documents.Add

'Add leader tab to new document
docNew.Paragraphs.TabStops.Add _
    Position:=InchesToPoints(3.5), _
    Leader:=wdTabLeaderDots

With docCurrent.MailMerge.DataSource

    'Insert heading paragraph for tabbed columns
    docNew.Content.InsertAfter "Word Mapped Data Field" _
        & vbTab & "Data Source Field"

        Do
            intCount = intCount + 1

                'Insert Word mapped data field name and the
                'corresponding data source field name
                docNew.Content.InsertAfter .<strong class="bterm">MappedDataFields</strong>( _
                    Index:=intCount).Name &amp; vbTab &amp; _
                    .<strong class="bterm">MappedDataFields</strong>(Index:=intCount) _
                    .DataFieldName

                'Insert paragraph
                docNew.Content.InsertParagraphAfter
        Loop Until intCount = .<strong class="bterm">MappedDataFields</strong>.Count

End With



End Sub

See Also