Range.InsertAfter (Word)

Insere o texto especificado no final de um intervalo.

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.

InsertAfter (Text)

Text: O texto a ser inserido.

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