PhotoPaint per Makro beenden

[koter]

Hallo Günther,

frohes neues Jahr!

...wenn es keine zu großen Umstände macht...

Weniger Umstände gehen fast nicht, es muss nur der Befehl „Quit“ angehängt werden:

Code:

Sub FensterZuUndBeenden()

   Dim d As Document
   For Each d In Application.Documents
       d.Dirty = False
       d.Close
   Next

   Application.Quit

End Sub

Gruß

Koter