Поделиться через

Свойство MailMergeMappedDataField.DataFieldName (Publisher)

  • Статья

Возвращает или задает значение String , представляющее имя поля в источнике данных слияния, с которым сопоставляется сопоставленное поле данных. Пустая строка возвращается, если указанное поле данных не сопоставлено с сопоставленным полем данных. Для чтения и записи.

Синтаксис

expression. DataFieldName

Выражение Переменная, представляющая объект MailMergeMappedDataField .

Возвращаемое значение

String

Пример

В этом примере создается таблица на новой странице текущей публикации и перечислены доступные поля сопоставленных данных и поля в источнике данных, с которым они сопоставлены. В этом примере предполагается, что текущая публикация является публикацией слияния и что поля источника данных имеют соответствующие сопоставленные поля данных.

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

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.