Story Property

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