MappedDataFields-Objekt (Word)
Eine Auflistung von MappedDataField-Objekten, die alle in Microsoft Word verfügbaren zugeordneten Datenfelder darstellen.
HinwBemerkungeneise
Verwenden Sie die MappedDataFields-Eigenschaft des MailMergeDataSource-Objekts , um die MappedDataFields-Auflistung zurückzugeben. In diesem Beispiel wird eine tabulatorgetrennte Liste der zugeordneten Datenfelder erstellt, die in Word und der Datenquelle verfügbar sind, auf die verwiesen wird. In diesem Beispiel wird davon ausgegangen, dass das aktuelle Dokument ein Serienbriefdokument ist und dass zugeordnete Datenfelder auf die entsprechenden Datenquellenfelder verweisen.
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
Siehe auch
Referenz zum Word-Objektmodell
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