Hallo zusammen
Ich habe mehrere Vorlagen erstellt welche einen Event_Handler() besitzen. Mit dem Befehl DocumentBeforeClose() wird beim Schliessen Code ausgeführt, welcher ein UserForm() öffnet.
Das Problem ist nun, das wenn ich mehrere Vorlagen offen habe und beispielsweise Vorlage1 schliesse kommen die UserForms von Vorlage1 und Vorlage2, d.h. das Event von der anderen Vorlage wird global abgefangen. Dies konnte ich nicht auch nach Stunden nicht beheben.
Es sollte nur das Event des aktiven Dokuments kommen.
2 Vorlagen zum testen habe ich hier hochgeladen:
http://www.roussis.ch/vorlagen.zip
Hier die Codeschnipsel:
Microsoft Word Objekte:
Dim X As New Klasse1
Sub Register_Event_Handler()
Set X.App = Word.Application
End Sub
Klassenmodule:
Option Explicit
Public WithEvents App As Word.Application
Private Sub App_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
Dim oUserForm As Object
On Error Resume Next
Set oUserForm = UserForms.Add("UserForm_Fusszeile_Bericht")
On Error GoTo 0
If oUserForm Is Nothing Then
Else
Userform_Fusszeile_Bericht.Show
End If
End Sub
Bitte um eure Hilfe!
Danke vielmals
Gruss Raphael
|