Change page size for hundreds of documents

gmayor · #2 08-24-2020, 07:56 PM

You could probably use the custom process of https://www.gmayor.com/document_batch_processes.htm to make the changes, but you will have to modify your macro to work with it. There will inevitably be formatting changes, but without knowing what is in the documents it is impossible to be precise about what needs to change. The following will get you started.

Code:

Sub Resize(oDoc As Document)
    If oDoc.PageSetup.PaperSize = wdPaperLetter Then
        oDoc.PageSetup.PaperSize = wdPaperA4
    End If
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
change printer settings - page size not paper size	trevorc	Excel Programming	4	07-20-2020 05:10 PM
Change Page size	dita	Word VBA	4	05-19-2020 07:04 PM
Hundreds of letters - print only the lead page on letterhead	RookA1	Mail Merge	7	02-13-2018 11:08 AM
Change page size reducing both margins	WizardDani	Word	1	01-04-2018 06:41 AM
Change font style and size in multiple documents	fitkhan	Word	1	04-27-2011 09:49 PM