[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

"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!