ThisDocument 对象 (Visio)

每个 Visio 文档的 Visual Basic for Applications (VBA) 项目都有一个名为 ThisDocument 的类模块。 从项目中的代码引用时， ThisDocument 对象返回对项目的 Document 对象的引用。

可以使用以下语句在消息框中显示 VBA 项目的文档的名称。

MsgBox ThisDocument.Name

可以使用以下代码获取 VBA 项目文档的第一页。

Dim vsoPage As Visio.Page 
Set vsoPage = ThisDocument.Pages.Item(1)

备注

如果要对与 VBA 项目关联的文档进行操作，请使用 ThisDocument 对象。

如果要对不一定与 VBA 项目关联的文档进行操作，请从 Documents 集合中选取一个 Document 对象。

ActiveDocument 属性经常（但不一定）返回与 ThisDocument 对象相同的文档的引用。 如果在 Visio 活动窗口中显示的文档是包含 ThisDocument 对象项目的文档，则 ActiveDocument 和 ThisDocument 对象是相同的。 您的代码使用的是 ActiveDocument 还是 ThisDocument 对象取决于程序的目的。

注意

您可以扩展项目的 Document 对象的属性和方法集，方法是将公共属性和方法添加到该项目的 ThisDocument 类模块中。 公开这些新属性和方法的方式与由 Visio 实现的内置方法和属性一样。

当引用其他 Document 对象时，这些新的方法和属性不可用。 对于不属于 Visio 文档 VBA 项目的代码，ThisDocument 对象不可用。

支持和反馈

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