Question

全部显示

设置或返回一个 String 类型的值，该值代表映射数据域映射到邮件合并数据源中域的名称。如果指定数据域没有映射到映射数据域，则返回空字符串。可读写。

expression.DataFieldName

expression 必需。该表达式返回一个 MappedDataField 对象。

示例

本示例创建一个制表符列表，该列表有可在 Word 中使用的映射数据域并且存在映射到数据源中的域。本示例假定当前文档是邮件合并文档，并且数据源域有相应的映射数据域。

Sub MappedFields()
    Dim intCount As Integer
    Dim docCurrent As Document
    Dim docNew As Document

    On Error Resume Next

    Set docCurrent = ThisDocument
    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 .MappedDataFields( _
                        Index:=intCount).Name & vbTab & _
                        .MappedDataFields(Index:=intCount) _
                        .DataFieldName

                    'Insert paragraph
                    docNew.Content.InsertParagraphAfter
            Loop Until intCount = .MappedDataFields.Count

    End With

End Sub