{run:macro:'For Each DocCurrent In Documents %0D%0A If Not DocCurrent.IsModified Then %0D%0A DocCurrent.Close %0D%0A End If %0D%0A Next'}