Método TextRange.InsertMailMergeField (Publisher)

Retorna um objeto TextRange que representa um campo de dados de texto para uma mesclagem de email ou mesclagem de catálogo.

Sintaxe

expressão. InsertMailMergeField (varIndex)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
varIndex	Obrigatório	Variant	O nome ou o índice do campo de dados da fonte de dados.

Valor de retorno

TextRange

Comentários

Para que a área de mesclagem de catálogos da publicação contenha campos de dados de texto, ela deve conter pelo menos uma caixa de texto para conter os campos de dados de texto.

Exemplo

Este exemplo insere um campo LastName na posição do cursor. Este exemplo assume que a publicação ativa é uma publicação de mala direta e que a posição do cursor está em algum lugar dentro de uma caixa de texto.

Sub InsertMergeField() 
 Selection.TextRange.InsertMailMergeField varIndex:="LastName" 
End Sub

Este exemplo adiciona uma caixa de texto à área de mesclagem de catálogos da publicação especificada e insere um campo de dados de texto na caixa de texto. O exemplo supõe que a publicação especificada esteja conectada a uma fonte de dados e contenha uma área de mesclagem de catálogos.

Set pbTextBox1 = ThisDocument.Pages(1).Shapes.AddTextbox(1, 100, 100, 175, 25) 
pbTextBox1.AddToCatalogMergeArea 
 
With pbTextBox1.TextFrame.TextRange 
 .Text = "List Price: " 
 .InsertMailMergeField "List Price" 
End With 

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.