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.