共用方式為

Word) (Global.ActiveDocument 屬性

  • 發行項

會傳回代表使用中文件 (焦點所在的文件) 的 Document 物件。 唯讀。

語法

運算式。ActiveDocument

表達 代表 'Global' 物件的變數。

註解

如果沒有開啟任何文件，使用此屬性將會產生錯誤。

範例

此範例會顯示使用中文件的名稱，如果未開啟任何文件，則會顯示訊息。

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

此範例會將選取範圍摺疊至插入點，然後為選取範圍中的下五個字元建立一個範圍。

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

另請參閱

Global 物件

支援和意見反應

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