Word VisualBasic Script

Sub exitFor()
    Dim Doc As Document
    For Each Doc In Documents
        If Doc.Name = "Document1" Then Exit For
        Doc.Close
    Next Doc
End Sub