Sub forEach() Dim Doc As Document For Each Doc In Documents Doc.Close SaveChanges:=wdSaveChanges Next End Sub