Compartilhar via


Método Range.InsertAfter (Word)

Insere o texto especificado no final de um intervalo.

Sintaxe

expression. InsertAfter( _Text_ )

expressão Obrigatório. Uma variável que representa um objeto Range.

Parâmetros

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

Comentários

Depois de aplicado esse método, o intervalo se expande para incluir o novo texto.

Você pode inserir caracteres como aspas, caracteres de tabulação e hífens não separáveis usando a função Chr do Visual Basic com o método InsertAfter. Você também pode usar as seguintes constantes do Visual Basic: vbCr, vbLf, vbCrLf e vbTab.

Quando você usa esse método com um intervalo que se refere a um parágrafo inteiro, o texto é inserido após a marca de fim de parágrafo (o texto aparecerá no início do próximo parágrafo). Para inserir texto no final de um parágrafo, determine o ponto final e subtraia 1 dessa posição (a marca de parágrafo é um caractere), como mostrado no exemplo seguinte.

Set doc = ActiveDocument 
Set rngRange = _ 
 doc.Range(doc.Paragraphs(1).Start, _ 
 doc.Paragraphs(1).End - 1) 
rngRange.InsertAfter _ 
 " This is now the last sentence in paragraph one."

Entretanto, se o intervalo termina com uma marca de parágrafo que também é o fim do documento, o Microsoft Word insere o texto antes da marca de parágrafo final, em vez de criar um novo parágrafo no fim do documento.

Além disso, se o intervalo é um indicador, o Word insere o texto especificado, mas não estende o intervalo nem o indicador para incluir o novo texto.

Exemplo

Este exemplo insere texto no final do documento ativo. A propriedade Content retorna um objeto Range.

ActiveDocument.Content.InsertAfter "end of document"

Este exemplo insere no segundo parágrafo do documento ativo o texto oriundo de uma caixa de entrada.

response = InputBox("Type some text") 
With ActiveDocument.Paragraphs(1).Range 
 .InsertAfter "1." & Chr(9) & response 
 .InsertParagraphAfter 
End With

Confira também

Objeto Range

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.