Hallo,
ich habe ein Problem mit der Ausführung von drei Makros innerhalb einer Userform.
Ich öffne ein Word-Dokument-Vorlage korrigiere diese wenn erforderlich und schliesse diese wieder. Dann öffne ich über diese Vorlage das Dokument1.
Um dieses Dokument1 dann zu schliessen, verwende ich über Button15 den Code innerhalb Button15, sowie den Code von Button17 und Button16.
Wenn ich diese mit Einzelschritt der Reihe nach durchführe funktioniert das Schliessen von Dokument1 und beenden von Word.
Lasse ich diese durch Button15_Click durchlaufen wird das Dokument1 nicht geschlossen und Word nicht beendet.
Könnt ihr mir bitte sagen, was hier falsch läuft.
Besten Dank
Gruss
Peter
<pre>Private Sub CommandButton15_Click()
' Wichtig!!
' unter "Extras" - "Verweise" einen Verweis auf die "Microsoft Word X.0 Object-Library" setzen!
Dim objWord As Object
Dim strDName As String
strDName = Worksheets("Worddaten").Range("B24").Value
' Debug.Print strDName
Label31.BackColor = &HC0FFC0
Label31.Caption = "Die Datei " & """" & strDName & """" & " ist geöffnet!"
On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If Err.Number = 429 Then ' keine Word-Instanz vorhanden
Err.Clear
Else
objWord.Documents("Dokument1").Close False
objWord.Quit
End If
On Error GoTo 0
CommandButton17 = True
'Anfang irgendwo ist ein Fehler, daher muss das Schliessen zweimal aber seperat ausgeführt werden
CommandButton16 = True
'Ende irgendwo ist ein Fehler, daher muss das Schliessen zweimal aber seperat ausgeführt werden
End Sub</pre>
<pre>Private Sub CommandButton17_Click()
CommandButton15.Enabled = True
CommandButton14.Enabled = False
CommandButton13.Enabled = False
ListBox2.Enabled = False
Label31.Caption = "Die Datei " & """" & (Worksheets("Worddaten").Range("B24")) & """" & " wurde geöffnet!"
End Sub</pre>
<pre>Private Sub CommandButton16_Click()
Dim objWord As Object
Dim strDName As String
strDName = Worksheets("Worddaten").Range("B24").Value
' Debug.Print strDName
On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If Err.Number = 429 Then ' keine Word-Instanz vorhanden
Err.Clear
Else
objWord.Documents("Dokument1").Close False
objWord.Quit
Label31.Caption = "Die Datei " & """" & strDName & """" & " wurde geschlossen!"
CommandButton15.Enabled = False
CommandButton14.Enabled = True
Me.Label7.Caption = ""
CommandButton13 = True
CommandButton13.Enabled = True
ListBox2.Enabled = True
CommandButton13.Enabled = False
Label28.Caption = ""
Label29.Caption = ""
Label30.Caption = ""
Label31.Caption = ""
End If
On Error GoTo 0
End Sub</pre>