Application.DocumentOpen-Ereignis (Word)

Tritt ein, wenn ein Dokument geöffnet wird.

Syntax

Ausdruck. DocumentOpen (Doc As Document**)

Ausdruck Eine Variable, die ein Application-Objekt darstellt, das mit Ereignissen in einem Klassenmodul deklariert wird.

Parameter

Hinweise

Weitere Informationen zur Verwendung von Ereignissen mit dem Application-Objekt finden Sie unter Verwenden von Ereignissen mit dem Application-Objekt.

Beispiel

In diesem Beispiel wird der Benutzer gefragt, ob alle anderen geöffneten Dokumente gespeichert werden sollen, wenn ein Dokument geöffnet wird. Dieser Code muss in einem Klassenmodul platziert werden, und ein instance der Klasse muss ordnungsgemäß initialisiert werden, damit dieses Beispiel funktioniert. Anweisungen dazu finden Sie unter Verwenden von Ereignissen mit dem Application-Objekt.

Public WithEvents appWord as Word.Application 
 
Private Sub appWord_DocumentOpen(ByVal Doc As Document) 
 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 Documents 
 With docLoop 
 If .Name <> strName Then 
 .Save 
 End If 
 End With 
 Next docLoop 
 End If 
End Sub

Siehe auch

Application-Objekt

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.