Application.DocumentOpen 事件

在打开文档时发生。

语法

Private Sub 表达式_DocumentOpen(ByVal Doc As Document)

表达式 一个代表 Application 对象的变量，该对象是使用类模块中的事件声明的。

参数

名称	必选/可选	数据类型	说明
Doc	必选	Document	即将打开的文档。

说明

有关使用 Application 对象事件的详细信息，请参阅使用 Application 对象事件。

示例

以下示例在文档打开时，提示用户是否要保存其他所有已打开的文档。为了使本示例能正常运行，以下代码必须放在一个类模块中，而且该类的实例必须正确地初始化。有关如何完成此操作的指导，请参阅使用 Application 对象事件。

示例代码

示例代码
`function Application_DocumentOpen(Doc) { let intResponse let strName let doc intResponse = MsgBox("Save all other documents?", jsYesNo) if(intResponse == jsResultYes) { strName = ActiveDocument.Name for(let i = 1; i <= Documents.Count; i++) { doc = Documents.Item(i) if(doc.Name != strName) { doc.Save() } } } }`

function Application_DocumentOpen(Doc) {
  let intResponse 
  let strName 
  let doc
								
  intResponse = MsgBox("Save all other documents?", jsYesNo)
								
if(intResponse == jsResultYes) {
  strName = ActiveDocument.Name
    for(let i = 1; i <= Documents.Count; i++) {
      doc = Documents.Item(i)
      if(doc.Name != strName) {
        doc.Save()
      }
    }
  }
}

请参阅