Tipp 0031 DocumentChange-Ereignis
Autor/Einsender:
Datum:
  Angie
24.03.2001
Entwicklungsumgebung:   Word 97
Das DocumentChange-Ereignis des Application-Objekts tritt auf, wenn ein neues Dokument erstellt, wenn ein vorhandenes Dokument geöffnet oder ein anderes Dokument zum aktiven Dokument gemacht wird. Wird die Vorlage als globale Vorlage (Menü Extras/Vorlagen und Add-Ins...) geladen, dann steht das DocumentChange-Ereignis während der gesamten aktuellen Word-Sitzung zur Verfügung. Wird jedoch die Dokumentvorlage geöffnet oder als Vorlage für ein neues Dokument verwendet, steht das DocumentChange-Ereignisse so lange zur Verfügung, wie die Vorlage selbst bzw. ein Dokument, das auf dieser Vorlage basiert, offen ist.
Im Download sind in der Beispiel-Dokumentvorlage nähere Infos zum Verwenden von Ereignissen mit dem Application-Objekt und Laden von Vorlagen und Add-Ins enthalten.
Code im Codebereich des Klassenmoduls
 
Option Explicit

Public WithEvents wdAppl As Word.Application

Private Sub wdAppl_DocumentChange()
  Call MsgDocChange
End Sub
 
Code im Codebereich des Moduls
 
Option Explicit

Dim X As New EventDocWindowChange

Sub EventDocWindowChange_Handler()
  Set X.wdAppl = Word.Application
End Sub

Sub AutoExec()
  Call EventDocWindowChange_Handler
  Call MsgDocChange
End Sub

Sub MsgDocChange()
  If Documents.Count = 0 Then
    MsgBox "Es sind keine Dokumente in Word geöffnet !"
  Else
    MsgBox "Das aktive Dokument heisst: " & ActiveDocument.Name
  End If
End Sub
 
Links zum Thema
Auto-Makros
Ereignisse des Application-Objekts
Ereignisse des Document-Objekts

Windows-Version
95
98/SE
ME
NT
2000
XP
Vista
Win 7
Word-Version
95
97
2000
2002 (XP)
2003
2007
2010


Download  (11 kB) Downloads bisher: [ 1002 ]

Vorheriger Tipp Zum Seitenanfang Nächster Tipp

Startseite | Projekte | Tutorials | API-Referenz | VB-/VBA-Tipps | Komponenten | Bücherecke | VB/VBA-Forum | VB.Net-Forum | DirectX-Forum | Foren-Archiv | DirectX | VB.Net-Tipps | Chat | Spielplatz | Links | Suchen | Stichwortverzeichnis | Feedback | Impressum

Seite empfehlen Bug-Report
Letzte Aktualisierung: Dienstag, 26. Juli 2011