Home |
Search |
Today's Posts |
#2
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
change paper size
A macro containing the following code would set the paper size to legal for
all of the documents in the C:\Test folder: Dim myFile As String Dim PathToUse As String Dim myDoc As Document PathToUse = "C:\Test\" 'Change the name of the folder to the one where all of your documents are located. 'Close all open documents before beginning Documents.Close SaveChanges:=wdPromptToSaveChanges 'Set the directory and type of file to batch process myFile = Dir$(PathToUse & "*.doc") While myFile "" 'Open document Set myDoc = Documents.Open(PathToUse & myFile) myDoc.PageSetup.PaperSize = wdPaperLegal 'Close the modified document after saving changes myDoc.Close SaveChanges:=wdSaveChanges 'Next file in folder myFile = Dir$() Wend -- Hope this helps. Please reply to the newsgroup unless you wish to avail yourself of my services on a paid consulting basis. Doug Robbins - Word MVP "Brie" wrote in message ... hi! how to change the size of the paper of a group of word documents? say from A4 to legal. I have around 200 files and don't want to open them one by one. thanks a bunch! |
Thread Tools | |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
How do I change default paper size | Page Layout | |||
How do I change paper size to 5.5 x 8.5? | Page Layout | |||
how do I change paper size in page setup | Page Layout | |||
How do I change default paper size | Microsoft Word Help | |||
how do I change paper size to A5 | Page Layout |