MailMergeDataSource.MappedDataFields-Eigenschaft (Publisher)
Gibt ein MailMergeMappedDataFields -Objekt zurück, das die zugeordneten Datenfelder darstellt, die in Microsoft Publisher verfügbar sind.
Syntax
Ausdruck. MappedDataFields
Ausdruck Eine Variable, die ein MailMergeDataSource-Objekt darstellt.
Rückgabewert
MailMergeMappedDataFields
Beispiel
In diesem Beispiel wird eine Tabelle auf einer neuen Seite der aktuellen Publikation erstellt und listet die in Publisher verfügbaren zugeordneten Datenfelder und die Felder in der Datenquelle, die sie zugeordnet sind. In diesem Beispiel wird davon ausgegangen, dass die aktuelle Publikation eine Seriendruckpublikation ist und, dass die Datenquellenfelder entsprechende verfügen Datenfelder zugeordneten.
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.
Feedback
https://aka.ms/ContentUserFeedback.
Bald verfügbar: Im Laufe des Jahres 2024 werden wir GitHub-Issues stufenweise als Feedbackmechanismus für Inhalte abbauen und durch ein neues Feedbacksystem ersetzen. Weitere Informationen finden Sie unterFeedback senden und anzeigen für