共用方式為

Word) (Range.WholeStory 方法

  • 發行項

會將範圍展開成包含整個本文。

語法

expression. WholeStory

需要 expression。 代表 Range 物件的變數。

註解

下列指令具有相同的作用 (其中 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

另請參閱

Range 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。