Global.ActiveDocument プロパティ (Word)

作業中の文書を表す Document オブジェクトを取得します。 値の取得のみ可能です。

構文

式。ActiveDocument

式 'Global' オブジェクトを表す変数。

注釈

開かれた文書がない場合にこのプロパティを使用すると、エラーが発生します。

例

次の使用例は、作業中の文書の名前を表示します。また、開かれた文書がない場合は、メッセージを表示します。

If Application.Documents.Count >= 1 Then 
 MsgBox ActiveDocument.Name 
Else 
 MsgBox "No documents are open" 
End If

この例では、ポイントの挿入の選択項目を折りたたみ、その選択項目で次の 5 文字の範囲を作成します。

Dim rngTemp As Range 
 
Selection.Collapse Direction:=wdCollapseStart 
Set rngTemp = ActiveDocument.Range(Start:=Selection.Start, _ 
 End:=Selection.Start + 5)

この例では、アクティブなドキュメントの先頭にテキストを挿入して、ドキュメントを印刷します。

Dim rngTemp As Range 
 
Set rngTemp = ActiveDocument.Range(Start:=0, End:=0) 
With rngTemp 
 .InsertBefore "Company Report" 
 .Font.Name = "Arial" 
 .Font.Size = 24 
 .InsertParagraphAfter 
End With 
 
ActiveDocument.PrintOut

関連項目

グローバル オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。