Application.ActiveDocument 属性 (Visio)

返回活动 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 支持和反馈，获取有关如何接收支持和提供反馈的指南。