Home |
Search |
Today's Posts |
|
#1
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
change paper size
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! |
#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! |
#3
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
change paper size
This is very helpful. Thanks Doug!
Brima "Doug Robbins - Word MVP" wrote: 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! |
#4
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
change paper size
Hello Brie
Brie wrote: 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. well, somebody or something has to open them, one by one. [Unless they are in XML and you write code to run through that -- would probably work faster, if you have the right devs at hand ... :-)] Yes, code can do it for you. An example of a VBA routine that opens all files in a given folder and "does something" (he a Replace run) can be found he http://www.mvps.org/word/FAQs/MacrosVBA/BatchFR.htm If you can adjust this code to your needs or have somebody ready with the right experience, it's faster. Otherwise, try one of the .word.vba groups. Your code probably needs to loop through the sections collection and adjust the page size in all of them. 0.2cents Robert -- /"\ ASCII Ribbon Campaign | MSFT | \ / | MVP | Scientific Reports X Against HTML | for | with Word? / \ in e-mail & news | Word | http://www.masteringword.eu/ |
#5
Posted to microsoft.public.word.docmanagement
|
|||
|
|||
change paper size
Will look the .word.vba groups. to adjust the code - as you suggest Robert!
Afterall, I need to have some exercise for my brain. Thanks a lot. Brie "Robert M. Franz (RMF)" wrote: Hello Brie Brie wrote: 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. well, somebody or something has to open them, one by one. [Unless they are in XML and you write code to run through that -- would probably work faster, if you have the right devs at hand ... :-)] Yes, code can do it for you. An example of a VBA routine that opens all files in a given folder and "does something" (he a Replace run) can be found he http://www.mvps.org/word/FAQs/MacrosVBA/BatchFR.htm If you can adjust this code to your needs or have somebody ready with the right experience, it's faster. Otherwise, try one of the .word.vba groups. Your code probably needs to loop through the sections collection and adjust the page size in all of them. 0.2cents Robert -- /"\ ASCII Ribbon Campaign | MSFT | \ / | MVP | Scientific Reports X Against HTML | for | with Word? / \ in e-mail & news | Word | http://www.masteringword.eu/ |
Reply |
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 |