Propriedade MappedDataField.DataFieldName (Word)MappedDataField.DataFieldName property (Word)

Define ou retorna uma cadeia de caracteres que representa o nome do campo na fonte de dados de mala direta para o qual um campo de dados mapeados mapeado.Sets or returns a String that represents the name of the field in the mail merge data source to which a mapped data field maps. Leitura/gravação.Read/write.

SintaxeSyntax

expression.expression. DataFieldName

expressão Uma expressão que retorna um objeto 'MappedDataField'.expression An expression that returns a 'MappedDataField' object.

ComentáriosRemarks

Uma sequência de caracteres vazia é retornada se o campo de dados especificado não for mapeado em um campo de dados mapeado.A blank string is returned if the specified data field is not mapped to a mapped data field.

ExemploExample

Este exemplo cria uma lista tabulada dos campos de dados mapeados disponíveis no Word e os campos na fonte de dados no qual são mapeados.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. Este exemplo assume que o documento atual é um documento de mala direta e que os campos de fonte de dados possuem campos de dados mapeados correspondentes.This example assumes that the current document is a mail merge document and that the data source fields have corresponding mapped data fields.

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 .MappedDataFields( _ 
 Index:=intCount).Name & vbTab & _ 
 .MappedDataFields(Index:=intCount) _ 
 .DataFieldName 
 
 'Insert paragraph 
 docNew.Content.InsertParagraphAfter 
 Loop Until intCount = .MappedDataFields.Count 
 
 End With 
 
End Sub

Ver tambémSee also

Objeto MappedDataFieldMappedDataField Object