How do I close multiple open word docs without saving them?

[Tazcat]

Am viewing multiple documents but I wish to close them all at once without
saving them. Using MS Word V 2002.

 

[AA2e72E]

Try this macro:

Sub CloseAll()
For Each doc In Application.Documents
doc.Saved = True
Next
Application.Quit
End Sub

 

[AA2e72E]

within the loop, you also need:

doc.attachedtemplate.saved = true