This browser is no longer supported.
Upgrade to Microsoft Edge to take advantage of the latest features, security updates, and technical support.
myRange
is a valid Range object, are functionally equivalent:myRange.WholeStory myRange.Expand Unit:=wdStory
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