Inserindo texto em um documento

Use o método InsertBefore ou o método InsertAfter do objeto Selection ou do objeto Range para inserir texto antes ou depois de uma seleção ou intervalo de texto. O exemplo a seguir insere texto no final do documento ativo.

Sub InsertTextAtEndOfDocument() 
 ActiveDocument.Content.InsertAfter Text:=" The end." 
End Sub

O exemplo a seguir insere texto antes da seleção.

Sub AddTextBeforeSelection() 
 Selection.InsertBefore Text:="new text " 
End Sub

Depois de usar o método InsertBefore ou o método InsertAfter , o Intervalo ou Seleção se expande para incluir o novo texto. Use o método Collapse para recolher uma Seleção ou Intervalo até o ponto inicial ou final.

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.