Word schliessen aus Excel bei zwei oder mehreren offenen Dokumente
30.12.2019 16:54:43
Peter
ich suche verzweifelt nach einer Lösung, dass bei einem aus Excel geöffnetem Dokument aus einer Vorlage, Word geschlossen wird. Das Problem ist dann vorhanden, wenn mehrere Dokumente geöffnet sind.
Das Dokument öffne ich mit nachstehendem Code:
'Word Dokument aus Vorlage öffnen
<pre>Private Sub CommandButton1_Click()
Dim wrdApp, wrdDoc
Dim strDName As String
Dim Pfad As String
Pfad = Worksheets("Tabelle1").Range("B9")
'Debug.Print Pfad
strDName = Pfad & "Test02.dotm"
'Debug.Print strDName
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
wrdApp.WindowState = 1 '0 = Normal; 1 = Maximized; 2 = Minimized
'' Set wrdDoc = wrdApp.Documents.Add(strDName) 'Neues Dokument auf Basis der Vorlage erstellen
Set newDoc = wrdApp.Documents.Add(strDName) 'Neues Dokument auf Basis der Vorlage erstellen
Me.Label1.Caption = "Dokument1 aus Vorlage" & vbLf & strDName & vbLf & "wurde geöffnet!"
Me.CommandButton1.Enabled = False
Me.CommandButton2.Enabled = True
''' 'aufheben von Set
''' Set wrdDoc = Nothing
''' Set wrdApp = Nothing
End Sub</pre>
Mit dem nachstehenden Code schliesse ich das Dokument wieder ohne speichern:
'Word Dokument aus Vorlage schliessen
Private Sub CommandButton2_Click()
' Wichtig!!
' unter "Extras" - "Verweise" einen Verweis auf die "Microsoft Word X.0 Object-Library" setzen!
Dim wrdApp As Object
Dim strDName As String
strDName = Worksheets("Tabelle1").Range("B11").Value
' Debug.Print strDName
On Error Resume Next
Set wrdApp = GetObject(, "Word.Application")
If Err.Number = 429 Then ' keine Word-Instanz vorhanden
Err.Clear
Label1.BackColor = &HC0FFC0
Label1.Caption = "Die Datei " & """" & strDName & """" & " wurde geschlossen!"
CommandButton1.Enabled = True
CommandButton2.Enabled = False
Exit Sub
Else
Label1.BackColor = &HC0FFC0
Label1.Caption = "Die Datei " & """" & strDName & """" & " wurde geschlossen!"
CommandButton1.Enabled = True
CommandButton2.Enabled = False
'schliesst "Dokument1" ohne speichern und beendet Word - Fehler -- aber auch alles _
anderen Word-Instanzen
newDoc.Activate
With wrdApp.ActiveDocument
newDoc.Close 0
wrdApp.Quit 'Fehler
End With
End If
'aufheben von Set
Set newDoc = Nothing
Set wrdApp = Nothing
End Sub
Option Explicit
Public newDoc As Object
Dadurch wird das Dokument1 aus der geöffneten Vorlage geschlossen. Mit "wrdApp.Quit" wird nicht nur die Word.Application dieses Dokuments geschlossen sondern alle geöffneten Word-Fenster.
Könnt ihr mir bitte helfen, wie ich es erreiche, dass nur die Word-Application geschlossen wird, in der das "Dokument1" geöffnet ist.
Besten Dank.
Gruss
Peter