{"id":55000349,"date":"2023-02-01T00:00:00","date_gmt":"2023-03-02T20:58:48","guid":{"rendered":"http:\/\/access-im-unternehmen.aix-dev.de\/aiu\/?p=349"},"modified":"-0001-11-30T00:00:00","modified_gmt":"-0001-11-30T00:00:00","slug":"VBAEreignisse_in_Word_programmieren","status":"publish","type":"post","link":"https:\/\/vbentwickler.de\/VBAEreignisse_in_Word_programmieren\/","title":{"rendered":"VBA-Ereignisse in Word programmieren"},"content":{"rendered":"

Microsoft Word bietet für das Application- und für das Document-Objekt einige sehr interessante Ereignisse an. Diese können wir implementieren und damit auf verschiedene Benutzeraktionen wie das Öffnen, Speichern oder Schließen eines Dokuments oder auch auf andere Aktionen zu reagieren. In diesem Artikel stellen wir die Ereignisse vor und zeigen, wie Du diese implementieren und mit eigenem Code füllen kannst. Damit lernst Du, wie Du auf das Öffnen, Schließen oder Anlegen von Dokumenten reagieren kannst oder wie sich Ereignisse programmieren lassen, die beim Drucken oder Speichern ausgelöst werden. Auch Aktionen wie ein Doppelklick oder ein Rechtsklick auf die Inhalte des Word-Dokuments lassen sich damit steuern. Wie das gelingt, zeigen wir in diesem Artikel.<\/b><\/p>\n

Voraussetzung: Das WithEvents-Schlüsselwort<\/h2>\n

Wenn wir Ereignisprozeduren für die Ereignisse einer Word-Instanz implementieren wollen, benötigen wir vor allem eines: Die Deklaration einer Objektvariablen für die Word-Instanz, und zwar mit dem Schlüsselwort WithEvents <\/b>versehen:<\/p>\n

Private <\/span>WithEvents objWord As <\/span>Word.Application<\/pre>\n
Diese Anweisung können wir nur in einem Klassenmodul platzieren, nicht jedoch in einem Standardmodul.<\/p>\n
Das Modul ThisDocument <\/b>des VBA-Projekts eines Word-Dokuments beispielsweise ist jedoch ein Klassenmodul, in dem wir diese Anweisung unterbringen können.<\/p>\n
Die Änderung durch das WithEvents<\/b>-Schlüsselwort ist nicht direkt sichtbar. Wenn wir allerdings auf das linke Auswahlfeld oben im Code-Fenster klicken, sehen wir nun die auf diese Weise deklarierte Variable objWord<\/b>. Die Auswahl dieses Eintrags legt automatisch eine Prozedur für das Standard-Ereignis dieses Objekts an, in diesem Fall objWord_Quit<\/b>:<\/p>\n
Private Sub <\/span>objWord_Quit()\r\nEnd Sub<\/span><\/pre>\n
Danach können wir aus dem rechten Auswahlfeld die übrigen Ereignisse auswählen und so automatisch die entsprechenden Ereignisprozeduren anlegen lassen (siehe Bild 1).<\/p>\n
\"Auswahl<\/p>\n
Bild 1: Auswahl der Ereignisse des Application-Objekts<\/span><\/b><\/p>\n
Das ist praktisch, da wir uns so nicht zu merken brauchen, wie die einzelnen Ereignisprozeduren heißen müssen – was vor allem dann hilfreich ist, wenn diese auch noch die Angabe von Parametern erfordern.<\/p>\n
Auf diese Weise legen wir gleich noch Ereignisprozeduren für die Ereignisse Document_BeforeClose<\/b>, Document_BeforePrint<\/b>, Document_BeforeSave<\/b>, Document_Change<\/b>, DocumentOpen<\/b>, NewDocument <\/b>und WindowSelectionChange <\/b>an.<\/p>\n
Für diese Ereignisprozeduren legen wir jeweils einen Haltepunkt an, um zu prüfen, ob und wann diese ausgelöst werden (siehe Bild 2).<\/p>\n
\"Einige<\/p>\n
Bild 2: Einige Ereignisprozeduren mit Haltepunkten<\/span><\/b><\/p>\n
Eines können wir jetzt schon sagen: Bevor wir objWord <\/b>nicht auf die aktuelle Word-Instanz eingestellt haben, wird keines der Ereignisse ausgelöst. Also fügen wir die folgende Prozedur hinzu und rufen sie mit F5 <\/b>auf:<\/p>\n
Private Sub <\/span>Initialize()\r\n     Set<\/span> objWord = Application\r\nEnd Sub<\/span><\/pre>\n
Danach können wir beispielsweise das aktuelle Dokument speichern und lösen damit die Prozedur objWord_BeforeSave <\/b>aus. Damit können wir bereits kleinere Aufgaben erledigen – welche das sind, schauen wir uns in den folgenden Abschnitten an.<\/p>\n
Vor dem Schließen eines Dokuments<\/h2>\n
Die Ereignisprozedur, die vor dem Schließen eines Dokuments ausgelöst wird, sieht wie folgt aus:<\/p>\n
Private Sub <\/span>objWord_DocumentBeforeClose( _\r\n         ByVal Doc As <\/span>Document, Cancel As Boolean<\/span>)\r\nEnd Sub<\/span><\/pre>\n
Die beiden Parameter können wir so nutzen:<\/p>\n