.doc printing

  • Thread starter Thread starter pkrieg
  • Start date Start date
P

pkrieg

We receive about 100 .doc files from our transcriptionists each day.
They are put into a new Folder each day. How can I print all of thes
out without loading each one into Word and printing each on
separately?

Thanks,

Phi
 
Double-click on the folder to open it.

Hold down the shift key and click the first document in the list..whil
still holding down the shift key click the last document in the list
This will highlight all of the documents in the folder.

Right-click the mouse and choose "Print" or use "File, Print".

The "Print" feature is only available when documents are selected.

You can also use CTRL+(left mouse click) to highlight documents tha
aren't consecutive.
 
Use a macro containing the following code:

' Throw Away Macro created by Doug Robbins
'
Dim MyPath As String
Dim MyName As String
Dim doc As Document

'let user select a path
With Dialogs(wdDialogCopyFile)
If .Display() <> -1 Then Exit Sub
MyPath = .Directory
End With

'strip quotation marks from path

If Len(MyPath) = 0 Then Exit Sub

If Asc(MyPath) = 34 Then
MyPath = Mid$(MyPath, 2, Len(MyPath) - 2)
End If

'get files from the selected path
'and insert them into the doc
MyName = Dir$(MyPath & "*.*")
Do While MyName <> ""
Set doc = Documents.Open(MyName)
doc.PrintOut
doc.Close wdDoNotSaveChanges
Loop

' Have a cup of coffee while you wait

--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP
 
I believe that there is a limit to the number of documents that can be
printed by this method - maybe only 8, but it may depend upon the size of
the documents.

I'm not going to waste the paper trying to find out.

--
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.

Hope this helps
Doug Robbins - Word MVP
Jim85CJ said:
or use ctrl-a to select all.
Click to expand...
 
Back
Top