InsertAfter Method

Applies To

Range object, Selection object.

Description

Inserts the specified text at the end of a range or selection. After this method is applied, the range or selection expands to include the new text.

Note You can insert characters such as quotation marks, tab characters, and nonbreaking hyphens by using the Chr function with the InsertAfter method. You can also use the following Visual Basic constants: vbCr, vbLf, vbCrLf and vbTab.

Syntax

expression.InsertAfter(Text)

expression Required. An expression that returns a Selection or Range object.

Text Required String. The text to be inserted.

Remarks

If you use this method with a range or selection that refers to an entire paragraph, the text is inserted after the ending paragraph mark (the text will appear at the beginning of the next paragraph). To insert text at the end of a paragraph, determine the ending point and subtract 1 from this location (the paragraph mark is one character), as shown in the following example.

Set Doc = ActiveDocument
Set myRange = Doc.Range(Start:=Doc.Paragraphs(1).Range.End - 1, _
    End:=Doc.Paragraphs(1).Range.End - 1)
myRange.InsertAfter " the end."

See Also

InsertBefore method, InsertParagraph method, InsertParagraphAfter method, InsertParagraphBefore method, InsertSymbol method, Text property, TypeText method.

Example

This example inserts text at the end of the active document. The Content property returns a Range object.

ActiveDocument.Content.InsertAfter "end of document"

This example inserts text at the end of the selection and then collapses the selection to an insertion point.

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

This example inserts text from an input box as the second paragraph in the active document.

response = InputBox("Type some text")
With ActiveDocument.Paragraphs(1).Range
    .InsertAfter "1." & Chr(9) & response
    .InsertParagraphAfter
End With