Share via

InsertBefore Method [Publisher 2003 VBA Language Reference]

  • Article

Returns a TextRange object that represents text appended to the beginning of a text range.

expression.InsertBefore(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 and a paragraph break to the beginning of 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 InsertTextBefore()
    With ActiveDocument.Pages(1).Shapes(1)
        .TextFrame.TextRange.InsertBefore _
            NewText:="Microsoft Publisher Build : " & Build & vbCrLf
    End With
End Sub

Applies to | TextRange Object