共用方式為

Word) (Document.New 事件

  • 發行項

在建立以範本為基礎的新文件時發生。 只有當它會儲存在範本中執行 新增 事件程序。

語法

expression.**Private Sub Document_New'

表達 代表 Document 物件的變數。

註解

如需搭配 Document 物件使用事件的相關資訊，請參閱 搭配 Document 物件使用事件。

範例

本範例會詢問使用者是否要建立以範本為基礎的新文件時儲存所有其他開啟的文件。 (此程序儲存在 ThisDocument 類別模組的範本，而不是文)。

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 支援與意見反應。