Compartilhar via

Propriedade MailMergeMappedDataField.DataFieldName (Publisher)

  • Artigo

Retorna ou define uma Cadeia de Caracteres que representa o nome do campo na fonte de dados de mesclagem de email para a qual um campo de dados mapeado mapeia. Uma sequência vazia será retornada se o campo de dados especificado não for mapeado em um campo de dados mapeado. Leitura/gravação.

Sintaxe

expressão. DataFieldName

Expressão Uma variável que representa um objeto MailMergeMappedDataField .

Valor de retorno

Cadeia de caracteres

Exemplo

Este exemplo cria uma tabela em uma nova página da publicação atual e lista os campos de dados mapeados disponíveis e os campos na fonte de dados aos quais eles são mapeados. Este exemplo assume que a publicação atual é uma publicação de mala direta e que os campos de fonte de dados possuem campos de dados mapeados correspondentes.

Sub MappedFields() 
 Dim intCount As Integer 
 Dim intRows As Integer 
 Dim docPub As Document 
 Dim pagNew As Page 
 Dim shpTable As Shape 
 Dim tblTable As Table 
 Dim rowTable As Row 
 
 On Error Resume Next 
 
 Set docPub = ThisDocument 
 Set pagNew = ThisDocument.Pages.Add(Count:=1, After:=1) 
 intRows = docPub.MailMerge.DataSource.MappedDataFields.Count + 1 
 
 'Creates new table with a heading row 
 Set shpTable = pagNew.Shapes.AddTable(NumRows:=intRows, _ 
 numColumns:=2, Left:=100, Top:=100, Width:=400, Height:=12) 
 Set tblTable = shpTable.Table 
 With tblTable.Rows(1) 
 With .Cells(1).Text 
 .Text = "Mapped Data Field" 
 .Font.Bold = msoTrue 
 End With 
 With .Cells(2).Text 
 .Text = "Data Source Field" 
 .Font.Bold = msoTrue 
 End With 
 End With 
 
 With docPub.MailMerge.DataSource 
 For intCount = 2 To intRows - 1 
 'Inserts mapped data field name and the 
 'corresponding data source field name 
 tblTable.Rows(intCount - 1).Cells(1).Text _ 
 .Text = .MappedDataFields(Index:=intCount).Name 
 tblTable.Rows(intCount - 1).Cells(2).Text _ 
 .Text = .MappedDataFields(Index:=intCount).DataFieldName 
 Next 
 End With 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.