Sub Main
For Each DocCurrent In Documents
If Not DocCurrent.IsModified Then
DocCurrent.Close
End If
Next
End Sub