How to print very large documents?

How do I print only page 1 from multiple Word documents

• Environment - Windows 2K, MSWord 2K I have a folder with 89 individual Word documents in it. I need to be able to print the first page only for each of the documents. I want to avoid having to open each document and select criteria from the "file > print" process.

• Answer:

  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!).