InsertAfter Method [Publisher 2003 VBA Language Reference]
Returns a TextRange object that represents text appended to the end of a text range.
expression.InsertAfter(NewText)
expression Required. An expression that returns one of the objects in the Applies To list.
NewText Required String. The text to be inserted.
Example
This example adds Microsoft Publisher's build number to the end of the first shape on the first page of the active publication. This example assumes the specified shape is a text frame and not another type of shape.
Sub AppendText()
With ActiveDocument.Pages(1).Shapes(1)
.TextFrame.TextRange.InsertAfter _
NewText:="Microsoft Publisher Build : " & Build
End With
End Sub
Applies to | TextRange Object