Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
600to604
600to604
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excel und Word schließen

Excel und Word schließen
21.04.2005 10:26:14
Dominik
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

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel und Word schließen
21.04.2005 13:49:44
ANdreas
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
AW: Excel und Word schließen
21.04.2005 13:54:31
Dominik
Hallo Andreas,
Besten Dank das hilft mir denk ich schon mal weiter
Gruß
Dominik
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige