[CDR 2017-2023] Закрыть сохраненные

[izrukvruki]

Если открыто несколько макетов, часть сохранены, часть нет, команда "Закрыть все" закрывает до первого несохраненного, потом спрашивает - сохранять или нет... Мне было бы полезно, закрыть все сохраненные. Не могу сообразить как это сделать

 

[lev]

Sub closer()
  Dim d As Document
  For Each d In Documents
    If d.Dirty = False Then d.Close
  Next d
End Sub