Share via

Story Property [Publisher 2003 VBA Language Reference]

  • Article

Returns a Story object that represents the story properties in a text range.

expression.Story

expression Required. An expression that returns one of the objects in the Applies To list.

Example

This example returns the story in the selected text range and, if it is in a text frame, inserts text into the text range.

Sub AddTextToStory()
    With Selection.TextRange.Story
        If .HasTextFrame Then
            .TextRange.InsertAfter NewText:=vbLf & "This is a test."
        End If
    End With
End Sub

Applies to | TextFrame Object | TextRange Object