Selection.InsertAfter (Word)

Insere o texto especificado no final de um intervalo ou seleção.

Depois de usar esse método, a seleção será expandida 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 uma seleção 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.

ActiveDocument.Range( _ 
 ActiveDocument.Paragraphs(1).Range.Start, _ 
 ActiveDocument.Paragraphs(1).Range.End - 1) _ 
 .Select 
 
Selection.InsertAfter _ 
 " This is now the last sentence in paragraph one."