Story Property

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

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