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

Метод MailMergeDataField.AddToRecipientFields (Publisher)

  • Статья

Добавляет родительский объект MailMergeDataField из определенного источника данных в главный источник данных (сбор полей данных) для публикации при слиянии.

Синтаксис

expression. AddToRecipientFields

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

Замечания

Этот метод работает, только если родительский объект MailMergeDataField еще не сопоставлен с полем получателя. Используйте свойство IsMapped , чтобы определить, сопоставлен ли объект.

Пример

В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать метод AddToRecipientFields для добавления поля данных (столбца) в определенном источнике данных в основной источник данных (объединенный список получателей) для публикации.

Перед выполнением этого макроса замените datasourceindex номером индекса допустимого источника данных в коллекции источников данных активного документа, а замените fieldname именем поля в источнике данных, которое нужно добавить в объединенный список полей получателей.

Примечание.

Пример использования свойства Name объекта DataSource для определения номера индекса нужного источника данных см. в методе MailMergeDataSources.Item .

Public Sub AddToRecipientFields_Example() 
 
 Dim pubMailMergeDataSources As Publisher.MailMergeDataSources 
 Dim pubMailMergeDataField As Publisher.MailMergeDataField 
 
 Set pubMailMergeDataSources = ThisDocument.MailMerge.DataSource.DataSources 
 Set pubMailMergeDataField = pubMailMergeDataSources.Item(datasourceindex).DataFields.Item("fieldname") 
 
 If pubMailMergeDataField.IsMapped Then 
 
 Debug.Print "This field is already mapped!" 
 
 Else 
 
 pubMailMergeDataField.AddToRecipientFields 
 Debug.Print "Field added successfully. (You can verify this by looking at the recipient or product list in the UI.)" 
 
 End If 
 
End Sub

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

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