Problemstellung
Der Event Handler öffnet auch bei anderen Dokumenten die programmierten Befehle BeforeClose und BeforePrint
„ThisDocument
Dim X As New Klasse1
Sub Register_Event_Handler()
Set X.App = Word.Application
End Sub
Klassenmodul „Klasse1“
Option Explicit
Public WithEvents App As Word.Application
Private Sub App_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean)
Userform_Fusszeile.Show
End Sub
Private Sub App_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
Userform_Fusszeile.Show
End Sub
In der Vorlage wird eine UserForm geöffnet
In anderen Dokumenten soll das Event nicht „gehandelt“ werden. Ich konnte dies jedoch nicht unterbinden, d.h. es erscheint immer die Fehlermeldung, weil Word versucht die UserForm zu öffnen:
Laufzeitfehler '5941:
Das angeforderte Element is nicht in der Sammlung vorhanden
Wie kann ich die Abfrage in anderen geöffneten Dokumenten unterbinden?
Mit der Variable Word.Document / Word.ActiveDocument statt Word.Application funktionierte der Handler nicht mehr.
Habe auch eine „exist“-Abfrage auf das UserForm versucht, leider hat das bei mir auch nicht geklappt.
|