设置或返回一个 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