Print all Documents in folder

[hornless unicorn]

Is there any way that I can print all documents within a folder? I have a
folder of about 20 word documents, and I want to print them all. Can I do
this without opening each one?

Thanks,

[Jay Freedman]

Use an adaptation of the macro in
http://www.word.mvps.org/FAQs/MacrosVBA/PrintAllDocsInFldr.htm:

Sub PrintAllDocsInFolder()
Dim MyPath As String, MyName As String

MyPath = "c:\my documents\"
MyName = Dir$(MyPath & "*.doc")

Application.PrintOut _
Background:=False, _
FileName:=MyPath & MyName

MyName = Dir
Do While MyName <> ""

Application.PrintOut _
Background:=False, _
FileName:=MyPath & MyName

MyName = Dir
Loop
End Sub

See http://www.gmayor.com/installing_macro.htm if you need instructions.

--
Regards,
Jay Freedman
Microsoft Word MVP FAQ: http://word.mvps.org
Email cannot be acknowledged; please post all follow-ups to the newsgroup so
all may benefit.

[Jay Freedman]

I should have mentioned that you need to edit the line

MyPath = "c:\my documents\"

to contain the path of the folder that contains the documents. There are
ways to get the macro to prompt you for a folder each time you run it, but
that's a later development.

[grinny]

Another way: In Explorer, select all the docs you wnat to print, then from
File menu choose Print. Usually, each doc will flash open in Word, print,
and close.
--
Grinny