Document. New-Ereignis (Word)Document.New event (Word)

Tritt auf, wenn ein neues Dokument auf Grundlage der Vorlage erstellt wird.Occurs when a new document based on the template is created. Eine Prozedur für das neue Ereignis wird nur ausgeführt, wenn Sie in einer Vorlage gespeichert wird.A procedure for the New event will run only if it is stored in a template.

SyntaxSyntax

Expression. * * Private Sub Document_New 'expression.**Private Sub Document_New'

Ausdruck Eine Variable, die ein Document -Objekt darstellt.expression A variable that represents a Document object.

BemerkungenRemarks

Informationen zum Verwenden von Ereignissen mit dem Document -Objekt finden Sie unter Verwenden von Ereignissen mit dem Document-Objekt.For information about using events with the Document object, see Using events with the Document object.

BeispielExample

In diesem Beispiel wird der Benutzer gefragt, ob alle geöffneten Dokumente gespeichert werden sollen, wenn ein neues Dokument auf Grundlage der Vorlage erstellt wird.This example asks the user whether to save all other open documents when a new document based on the template is created. (Diese Prozedur wird im ThisDocument -Klassenmodul einer Vorlage und nicht in einem Dokument gespeichert.)(This procedure is stored in the ThisDocument class module of a template, not a 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

Siehe auchSee also

Document-ObjektDocument Object

Support und FeedbackSupport and feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation?Have questions or feedback about Office VBA or this documentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.