使用英语阅读

通过


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

另请参阅

Document 对象

支持和反馈

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