Método MailMergeDataField.MapToRecipientField (Publisher)

Mapeia um campo (coluna) em uma fonte de dados específica, representada pelo objeto MailMergeDataField pai para um campo de destinatário (coluna) na fonte de dados mestra (lista de destinatários de mala direta combinados).

Sintaxe

expressão. MapToRecipientField (bstrValue)

Expressão Uma variável que representa um objeto MailMergeDataField .

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
bstrValue	Opcional	String	O nome do campo de destinatário para o qual a coluna da fonte de dados deve ser mapeada.

Comentários

Este método funciona apenas se o objeto MailMergeDataField pai já não tiver sido mapeado para um campo de destinatário. Use a propriedade IsMapped para determinar se o objeto já foi mapeado.

Se você não passar um valor para o parâmetro bstrValue opcional, o Microsoft Publisher pressupõe que o campo a ser mapeado tenha o mesmo nome que o campo destinatário na fonte de dados mestra para a qual ele é mapeado.

Se você passar o nome de um campo que não exista, o Publisher retornará um erro.

Observação

[!OBSERVAçãO] Para adicionar um campo, use o método AddToRecipientFields.

Exemplo

Os seguintes Microsoft Visual Basic for Applications (VBA) macro mostra como usar o método MapToRecipientField mapear um campo de dados (coluna) em uma fonte de dados específica para um campo na fonte de dados mestra (combinado de lista de destinatários) para a publicação.

Antes de executar essa macro, substitua datasourceindex pelo número de índice de uma fonte de dados válida na coleção de fonte de dados do documento ativo, substitua fieldname pelo nome do campo na fonte de dados que você deseja mapear para um campo de destinatário e substitua recipientfieldname pelo nome do campo destinatário.

Observação

Para obter um exemplo de como você pode usar a propriedade Name do objeto DataSource para determinar o número de índice da fonte de dados desejada, consulte o método MailMergeDataSources.Item .

Public Sub Map() 
 
 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.MapToRecipientField ("recipientfieldname") 
 Debug.Print "Field mapped successfully." 
 
 End If 
 
End Sub

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.