Método TextRange.InsertAfter (Publisher)

Artigo
04/07/2023

Retorna um objeto TextRange que representa o texto acrescentado ao final de um intervalo de texto.

Sintaxe

expressão. InsertAfter (NewText)

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

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
Newtext	Obrigatório	String	O texto a ser inserido.

Valor de retorno

TextRange

Exemplo

Este exemplo adiciona o número de compilação do Microsoft Publisher no final da primeira forma na primeira página da publicação ativa. Este exemplo pressupõe que a forma especificada é um quadro de texto e não é outro tipo de forma.

Sub AppendText() 
 With ActiveDocument.Pages(1).Shapes(1) 
 .TextFrame.TextRange.InsertAfter _ 
 NewText:="Microsoft Publisher Build : " & Build 
 End With 
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.

Compartilhar via