Mega Code Archive

 

Categories / VisualBasic Script / Word

 

Loop through the Documents

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