Alle schließen ohne Rückfrage

[koter]

Hallo Günther,

ich zähle mich zwar nicht einmal „fast“ zu den Allwissenden und ich habe auch nichts in PP gefunden, kann Dir aber ein Makro anbieten, auf das Du eine Tastenkombination legen könntest:

Code:

Sub AlleFensterZu()
   Dim d As Document
   For Each d In Application.Documents
       d.Dirty = False
       d.Close
   Next
End Sub

Sub FastAlleFensterZu()
   Dim d As Document
   For Each d In Application.Documents
       If d.ActiveWindow Is Nothing Then
           d.Dirty = False
           d.Close
       End If
   Next
End Sub

Die Sub AlleFensterZu schließt wirklich alle Fenster.
Die Sub FastAlleFensterZu schließt alle außer das aktive Fenster.

Gruß

Koter