Range.WholeStory メソッド (Word)

指定範囲を拡張し、ストーリー全体を選択します。

構文

式。 WholeStory

expression 必須です。 Range オブジェクトを表す変数を指定します。

注釈

myRange が有効な Range オブジェクトである次の 2 つのステートメントでは、同じ結果が得られます。

myRange.WholeStory 
myRange.Expand Unit:=wdStory

例

次の使用例は、myRange を拡張して本文全体を選択し、次にその範囲に MS P ゴシックを設定します。

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 のサポートおよびフィードバックを参照してください。