通过

Window.Document 属性 (Visio)

  • 项目

获取与 对象关联的 Document 对象。 此为只读属性。

语法

表达式。文档

表达 一个代表 Window 对象的变量。

返回值

文档

备注

固定模具窗口的 Document 属性返回当前位于窗口顶部的模具的一个 Document 对象。 如果其他模具替换了顶端位置的第一个模具，则第一个模具的文档将关闭，对它的引用也变得无效。 为了实现最佳效果，假定对固定模具的文档引用是非永久性的。

如果 Window 对象显示未打开任何文档，则不会返回任何文档，并且不会引发异常。 您的解决方案应该检查在检索 Window 对象的 Document 属性后返回的 Nothing。

示例

以下 Microsoft Visual Basic for Applications (VBA) 宏显示如何使用各种对象的 Document 属性检索关于这些对象的数据，并执行下列操作：

  • 它向 Documents 集合添加 Document 对象并且设置该 Document 对象的几个属性。

  • 它获取活动窗口和活动页，在页面上绘制一个矩形，并且在 Document 对象上放置一个主控形状以提供要使用的各种对象。

  • 它使用 Document 属性获取与这些其他对象中每个对象都相关联的 Document 对象。

 
Public Sub Document_Example() 
 
 Dim vsoDocument As Visio.Document 
 Dim vsoTempDocument As Visio.Document 
 Dim vsoPage As Visio.Page 
 Dim vsoShape As Visio.Shape 
 Dim vsoWindow As Visio.Window 
 Dim vsoMaster As Visio.Master 
 
 'Add a document to the Documents collection. 
 Set vsoDocument = Documents.Add("") 
 
 'Set the title of the document. 
 vsoDocument.Title = "My Document" 
 
 'Get the active window and active page. 
 Set vsoWindow = ActiveWindow 
 Set vsoPage = ActivePage 
 
 'Draw a rectangle on the page. 
 Set vsoShape = vsoPage.DrawRectangle(2, 2, 5, 5) 
 
 'Add a master. 
 Set vsoMaster = vsoDocument.Masters.Add 
 
 'Get the Document object associated with various other objects.'Get the Document object associated with the Window object. 
 Set vsoTempDocument = vsoWindow.Document 
 
 'Get the Title property of the Document object to verify that this is the same document we added earlier. 
 Debug.Print vsoTempDocument.Title 
 
 'Get the Document object associated with the Page object. 
 Set vsoTempDocument = vsoPage.Document 
 Debug.Print vsoTempDocument.Title 
 
 'Get the Document object associated with the Shape object. 
 Set vsoTempDocument = vsoShape.Document 
 Debug.Print vsoTempDocument.Title 
 
 'Get the Document object associated with the Master object. 
 Set vsoTempDocument = vsoMaster.Document 
 Debug.Print vsoTempDocument.Title 
 
End Sub

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。