Hello Jnhn
I do not know of a simple way of doing this so I have written a small
VBA macro to accomplish the task. The script replies on knowing where
the documents are stored on your computer and you need to tell it this
by altering the script slightly (look for a line - strPath =
"C:\word\" - in the script and alter the C:\word\ part to the location
of your files).
This is how to use the script:
1) Open Word
2) Go to Tools->Macro->Macros
3) A pop-up window should appear and in the box called "Macro Name"
type: PrintAllWordDocs
4) Click "Create"
5) A new window will open ("Microsoft Visual Basic") with a cursor
flashing in a section between "Sub PrintAllWordDocs()" and "End Sub".
Copy the following text *between* these points (remember to change the
location of your files in the third line below!):
Dim strFileName As String
Dim strPath As String
strPath = "C:\word\"
strFileName = Dir(strPath + "*.doc", vbNormal)
Do While strFileName <> ""
Documents.Open FileName:=strPath + strFileName, ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
Application.PrintOut FileName:="", Range:=wdPrintRangeOfPages, Item:= _
wdPrintDocumentContent, Copies:=1, Pages:="1", PageType:=wdPrintAllPages, _
ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _
False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _
PrintZoomPaperHeight:=0
Documents.Close
strFileName = Dir
Loop
6) Press Ctrl-S to save and then close this window down.
7) In Word, now go to Tools->Macro->Macros (as you did in step 2
above) and there should be an entry called "PrintAllWordDocs" in the
list in this window. Left click on this name.
8) Click Run. This will then print out the first page in each document.
Hopefully if everything runs smoothly this will do the job for you.
If it does not work or you need further help please ask for
clarfication and I will do my best to help.
If you do need further help setting this up it would be helpful to
know the folder on your computer that holds the files, the version of
Word you are using and your level of expertise at using Word macros (I
sometimes inadvertently cut corners when telling people things without
realising it!). |
