Range.StoryLength property (Word)
Returns the number of characters in the story that contains the specified range. Read-only Long.
expression. StoryLength
expression A variable that represents a Range object.
This example determines whether the header in the active document is empty. If the header story is not empty, a message box displays the contents of the header. If the document header is empty, StoryLength returns 1 for the final paragraph mark.
Set myRange = ActiveDocument.Sections(1) _
.Headers(wdHeaderFooterPrimary).Range
If myRange.StoryLength > 1 Then MsgBox myRange.Text
This example closes the document without saving changes, if it is empty.
If ActiveDocument.Content.StoryLength = 1 Then _
ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.