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
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.