Range.WholeStory method (Word)
Expands a range to include the entire story.
Syntax
expression. WholeStory
expression Required. A variable that represents a Range object.
Remarks
The following instructions, where myRange is a valid Range object, are functionally equivalent:
myRange.WholeStory
myRange.Expand Unit:=wdStory
Example
This example expands myRange to include the entire story and then applies the Arial font to the range.
Set myRange = Selection.Range
myRange.WholeStory
myRange.Font.Name = "Arial"
This example expands myRange to include the entire comments story (wdCommentsStory) and then copies the comments into a new document.
If ActiveDocument.Comments.Count >= 1 Then
Set myRange = Activedocument.Comments(1).Range
myRange.WholeStory
myRange.Copy
Documents.Add.Content.Paste
End If
See also
Support and feedback
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.