InsertAfter Method

Appends a string to the end of the specified text range. Returns a TextRange object that represents the appended text. When used without an argument, this method returns a zero-length string at the end of the specified range.

expression   Required. An expression that returns a TextRange object.

NewText   Optional String. The text to be inserted. The default value is an empty string.

Example

This example appends the string ": Test version" to the end of the title on slide one in the active presentation.

With Application.ActivePresentation.Slides(1).Shapes(1)
    .TextFrame.TextRange.InsertAfter ": Test version"
End With

This example appends the contents of the Clipboard to the end of the title on slide one.

Application.ActivePresentation.Slides(1).Shapes(1).TextFrame _
    .TextRange.InsertAfter.Paste