change paper size

[Brie]

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!

 

[Doug Robbins - Word MVP]

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

 

[Robert M. Franz (RMF)]

Hello Brie

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" (here: a Replace run) can
be found here:

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

 

[Brie]

This is very helpful. Thanks Doug!

Brima

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]

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

Hello Brie

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" (here: a Replace run) can
be found here:

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/