![]() |
|
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
|
|
|
|
|
|
|
| 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: [ 1094 ]
|
|
|
Vorheriger Tipp
Zum Seitenanfang 