Visio) (Application.ActiveDocument 屬性

會傳回使用中 Document 物件，也就是使用中視窗中顯示的檔。 唯讀。

語法

運算式。ActiveDocument

expression 代表 Application 物件的變數。

傳回值

文件

註解

當沒有任何文件開啟時，將不會有任何使用中的文件，且 ActiveDocument 屬性會傳回 Nothing 值，且不會觸發例外狀況。

如果您的程式碼位於 Visio 檔的 Microsoft Visual Basic 專案中， 則 ActiveDocument 屬性通常會傳回 ThisDocument 物件的參考，這是每個 Microsoft Visio 檔之 Visual Basic 專案中的類別模組。 如果 ThisDocument 物件顯示在使用中視窗內，則 ActiveDocument 物件和 ThisDocument 物件會參考相同的文件。 從專案內的程式碼參考 ThisDocument 物件時，它會傳回此專案之 Document 物件的參考。

要使用 ActiveDocument 物件或 ThisDocument 物件是依程式碼的用途而定。

您可以將 ActiveDocument 屬性所傳回的結果與 Nothing 值進行比較，判斷文件是否在使用中。 如果 Documents.Count 屬性的值大於零，則至少有一份檔已開啟且作用中。

如果您的 Visual Studio 解決方案包含 Microsoft.Office.Interop.Visio 參考，則此屬性會對應至下列類型：

• Microsoft.Office.Interop.Visio.IVApplication.ActiveDocument

範例

下列 Microsoft Visual Basic for Applications (VBA) 巨集示範兩種取得使用中文件 (如果存在的話) 的安全方式。 在兩種情況中，此巨集都會在 [立即] 視窗內顯示使用中文件的名稱。 程式碼會從 Visio 全域物件取得使用中檔，而該物件會自動提供給屬於 Visio 檔之 VBA 專案的 VBA 程式碼使用。

 
Public Sub ActiveDocument_Example() 
    
    Dim vsoDocument As Document  
 
    'First method 
    If Documents.Count > 0 Then 
        Set vsoDocument = ActiveDocument  
        Debug.Print vsoDocument.Name  
    Else 
        Debug.Print "No active document."  
    End If   
 
    'Second method 
    If Not(ActiveDocument Is Nothing)  Then 
        Set vsoDocument = ActiveDocument  
        Debug.Print vsoDocument.Name  
    Else 
        Debug.Print "No active document."  
    End If 
   
End Sub

支援和意見反應

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