Document.New 事件 (Word)
在创建基于模板的新文档时发生。 只有当它存储在模板中,将运行 新建 事件的过程。
表达式.**Private Sub Document_New'
表达 一个代表 Document 对象的变量。
有关对 Document 对象使用事件的信息,请参阅 对 Document 对象使用事件。
本示例询问用户是否要保存所有其他打开的文档,创建基于模板的新文档时。 (此过程存储在模板,而不是文档的 状态报告 的类模块中)。
Private Sub Document_New()
Dim intResponse As Integer
Dim strName As String
Dim docLoop As Document
intResponse = MsgBox("Save all other documents?", vbYesNo)
If intResponse = vbYes Then
strName = ActiveDocument.Name
For Each docLoop In Application.Documents
With docLoop
If .Name <> strName Then
.Save
End If
End With
Next docLoop
End If
End Sub
有关于 Office VBA 或本文档的疑问或反馈? 请参阅 Office VBA 支持和反馈,获取有关如何接收支持和提供反馈的指南。