Excel und Word schließen

Bild

Betrifft: Excel und Word schließen
von: Dominik
Geschrieben am: 21.04.2005 10:26:14
Hallo
Wer kann mir weiterhelfen,
Ich möchte das sich alle geöffneten Microsoft Word dokumente automatisch schließen ohne zu speichern wenn ich Excel schließe.Für alle offenen Exceltabellen mach ich das schon mit :


Private Sub Workbook_BeforeClose(Cancel As Boolean)
For Each w In Workbooks
    If w.Name <> ThisWorkbook.Name Then
        w.Close savechanges:=False
    End If
Next w
End Sub

Danke
Gruß
Dominik
Bild

Betrifft: AW: Excel und Word schließen
von: ANdreas
Geschrieben am: 21.04.2005 13:49:44
Hallo Dominik,
ich hatte mal was ähnliches, könnte Dir evtl. als Ansatz dienen. Hier wird allerdings nicht geschlossen, wenn das Work Dokument nicht gespeichert wurde (dann erfolgt Abfrage)

Sub WordDokumenteBeenden()
Dim appWord As Object
Dim i%
Set appWord = CreateObject("Word.Application")
' Alle Tasks auslesen
For i = appWord.Tasks.Count To 1 Step -1
    ' Word Dokument
    If Right(appWord.Tasks(i), 16) = "- Microsoft Word" Then
        appWord.Tasks(i).Close
    End If
Next i
Set appWord = Nothing
End Sub

Gruß
Andreas
Bild

Betrifft: AW: Excel und Word schließen
von: Dominik
Geschrieben am: 21.04.2005 13:54:31
Hallo Andreas,
Besten Dank das hilft mir denk ich schon mal weiter
Gruß
Dominik
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Druck Ereignis"