全部显示

WholeStory 方法

扩展某一区域或选定内容，使其包含整个文字部分。

expression   必需。该表达式返回一个 Range 或 Selection 对象。

说明

下列指令在功能上是等价的。其中 myRange 是有效的 Range 对象。

myRange.WholeStory
myRange.Expand Unit:=wdStory

示例

本示例扩展 myRange，使其包含文档的整个当前部分，再将该区域的字体设为 Arial（斜体）。

Set myRange = Selection.Range
myRange.WholeStory
myRange.Font.Name = "Arial"

本示例扩展 myRange，使其包含文档整个备注部分 (wdCommentsStory)，再将该批注部分复制到新文档。

If ActiveDocument.Comments.Count >= 1 Then
    Set myRange = Activedocument.Comments(1).Range
    myRange.WholeStory
    myRange.Copy
    Documents.Add.Content.Paste
End If