Printing Multiple unopened docs

[Nelson_C]

I have 30 .docs residing in different folders.
The root folder name is C:\root\
The subfolders and files have unique (different) user names, such as:
C:\root\abuch3\letter1_0001.doc
C:\root\ajutr2\letter1_00301.doc
C:\root\arpoot1\letter1_0222.doc

Is there a way to create a macro that recursively opens the documents from
the root folder, prints them, then closes them without saving any changes?
I can't figure out the wildcard on a folder and the wildcard on a file name.

I am trying this (not working) but need "recursivity":

Sub PrintFilesCurrentDir()
' PrintFilesCurrentDir Macro
'
Dim strFile As String
strFile = Dir(".\*.doc")
Do Until strFile = ""
Debug.Print strFile
strFile = Dir
Loop
End Sub

 

[Shauna Kelly]

Hi Nelson

As a first step, see the following, which includes code to get and process
all the files in a folder:
Find & ReplaceAll on a batch of documents in the same folder
http://www.word.mvps.org/FAQs/MacrosVBA/BatchFR.htm

Hope this helps.

Shauna Kelly. Microsoft MVP.
http://www.shaunakelly.com/word