Change page setup on all pages

[Kath]

I have a 67 page document. i want to change the page size within page
setup on all the pages at once, but can't figure out how. It would
seem I have to go to each page and do it individually. Any
workarounds?

thanks

 

[Mark Nelson [MS]]

You could write a macro to do it:

Dim Page as Visio.Page
For Each Page in ActiveDocument.Pages
Page.Pagesheet.Cells("PageWidth").ResultIU = 8.5
Page.Pagesheet.Cells("PageHeight").ResultIU = 11
Next