Range.WholeStory Method (Word)
Expands a range to include the entire story.
Required. A variable that represents a Range object.
The following instructions, where myRange is a valid Range object, are functionally equivalent:
This example expands myRange to include the entire story and then applies the Arial font to the range.
Set myRange = Selection.Range
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