Método Selection.InsertAfter (Word)
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
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.