在保存文档之后，发生此事件。
语法
表达式。文档 ) (DocumentSaved
表达式 表示 Document 对象的变量。
参数
| 名称 | 必需/可选 | 数据类型 | 说明 |
|---|---|---|---|
| doc | 必需 | [IVDOCUMENT] | 已保存的文档。 |
备注
如果您使用 Microsoft Visual Basic 或 Visual Basic for Applications (VBA)，则此主题中的语法描述的是一种通用而有效的事件处理方法。
如果要创建自己的 Event 对象，请使用 Add 或 AddAdvise 方法。
若要创建可运行加载项的 Event 对象，请使用 Add 方法，因为它适用于 EventList 集合。
若要创建可接收通知的 Event 对象，请使用 AddAdvise 方法。
若要查找要创建的事件的事件代码，请参阅事件代码。
示例
以下示例说明如何创建类模块来处理由 Microsoft Visio 中的源对象（如 Document 对象）触发的事件。 该模块包含 VisEventProc 函数，它使用 Select Case 块查找三个事件：DocumentSaved、PageAdded 和 ShapesDeleted。 其他事件属于默认情况 (Case Else)。 每个 Case 块构造一个字符串 ( strMessage ) ，其中包含触发的事件的名称和事件代码。 最后，该函数在“立即”窗口中显示这一字符串。
将这段示例代码复制到 VBA 或 Visual Basic 中新的类模块中，并将该模块命名为 clsEventSink。 之后，您就能使用事件接收模块创建 clsEventSink 类的实例，以及向类实例发送事件触发通知的 Event 对象。 要查看如何创建事件接收模块，请参阅 AddAdvise 方法的示例。
Implements Visio.IVisEventProc
'Declare visEvtAdd as a 2-byte value
'to avoid a run-time overflow error
Private Const visEvtAdd% = &H8000
Private Function IVisEventProc_VisEventProc( _
ByVal nEventCode As Integer, _
ByVal pSourceObj As Object, _
ByVal nEventID As Long, _
ByVal nEventSeqNum As Long, _
ByVal pSubjectObj As Object, _
ByVal vMoreInfo As Variant) As Variant
Dim strMessage As String
'Find out which event fired
Select Case nEventCode
Case visEvtCodeDocSave
strMessage = "DocumentSaved (" & nEventCode & ")"
Case (visEvtPage + visEvtAdd)
strMessage = "PageAdded (" & nEventCode & ")"
Case visEvtCodeShapeDelete
strMessage = "ShapesDeleted(" & nEventCode & ")"
Case Else
strMessage = "Other (" & nEventCode & ")"
End Select
'Display the event name and the event code
Debug.Print strMessage
End Function
支持和反馈
有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。