Word VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Word
  4. Loop through the Documents
Sub forEach()
    Dim Doc As Document
    For Each Doc In Documents
        Doc.Close SaveChanges:=wdSaveChanges
    Next
End Sub