Método Selection.InsertAfter (Word)

  • Artigo

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

Sintaxe

expression. InsertAfter( _Text_ )

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

Parâmetros

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

Comentários

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.

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

Entretanto, se a seleção 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 a seleção é um indicador, o Word insere o texto especificado, mas não estende a seleção nem o indicador para incluir o novo texto.

Exemplo

Este exemplo insere texto no final da seleção e recolhe a seleção para um ponto de inserção.

With Selection 
 .InsertAfter "appended text" 
 .Collapse Direction:=wdCollapseEnd 
End With

Confira também

Objeto Selection

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.