MailMergeMappedDataField.DataFieldName-Eigenschaft (Publisher)

  • Artikel

Gibt einen Wert vom Typ String zurück, der den Namen des Felds in der Seriendruck-Datenquelle darstellt, dem ein zugeordnetes Datenfeld zugeordnet ist, oder legt diesen Wert fest. Wenn das angegebene Datenfeld keinem zugeordneten Datenfeld zugeordnet ist, wird eine leere Zeichenfolge zurückgegeben. Lese-/Schreibzugriff.

Syntax

Ausdruck. DataFieldName

Ausdruck Eine Variable, die ein MailMergeMappedDataField-Objekt darstellt.

Rückgabewert

Zeichenfolge

Beispiel

Bei diesem Beispiel wird auf einer neuen Seite der aktuellen Publikation eine Tabelle erstellt, und es werden die verfügbaren zugeordneten Datenfelder sowie die Felder in der Datenquelle, denen sie zugeordnet sind, aufgelistet. Bei diesem Beispiel wird vorausgesetzt, dass es sich bei der aktuellen Publikation um eine Seriendruckpublikation handelt und dass die Datenquellenfelder mit entsprechenden zugeordneten Datenfeldern verbunden sind.

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

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.