🚀 go-pugleaf

Paul--

Sorry, I only saw that error and didn't pay enough attention to the remainder of the script.

The trouble is that InDesign generates an error when you try to make the page size is smaller than the margin preferences--this is also true from the user interface. But there is no way to set the margin preferences for all pages in a document at once--you would have to iterate through all of the pages, setting each margin to 0. If you're creating a new document, however, you can set the application's default margin preferences before you make the document:



Set myInDesign = CreateObject("InDesign.Application.2.0") 
Rem Get the current application default margin preferences. 
myOldMarginLeft = myInDesign.MarginPreferences.MarginLeft 
myOldMarginRight = myInDesign.MarginPreferences.MarginRight 
myOldMarginTop = myInDesign.MarginPreferences.MarginTop 
myOldMarginBottom = myInDesign.MarginPreferences.MarginBottom 
Rem Set the application default margin preferences to 0 
myInDesign.MarginPreferences.MarginLeft = 0 
myInDesign.MarginPreferences.MarginRight = 0 
myInDesign.MarginPreferences.MarginTop = 0 
myInDesign.MarginPreferences.MarginBottom = 0 
Rem Create a new document 
Set myDocument = myInDesign.Documents.Add 
Rem Get the current measurement units 
myOldXUnits = myDocument.ViewPreferences.HorzMeasurementUnits 
myOldYUnits = myDocument.ViewPreferences.VertMeasurementUnits 
Rem Set the measurement units to centimeters 
myDocument.ViewPreferences.HorzMeasurementUnits = idMSCentimeters 
myDocument.ViewPreferences.VertMeasurementUnits = idMSCentimeters 
Rem Set the page size 
myDocument.DocumentPreferences.PageWidth = 2 
myDocument.DocumentPreferences.PageHeight = 2 
Rem restore the measurement units to whatever they were before. 
myDocument.ViewPreferences.HorzMeasurementUnits = myOldXUnits 
myDocument.ViewPreferences.VertMeasurementUnits = myOldYUnits 
Rem now restore the application default margin preferences to whatever they were before. 
myInDesign.MarginPreferences.MarginLeft = myOldMarginLeft 
myInDesign.MarginPreferences.MarginRight = myOldMarginRight 
myInDesign.MarginPreferences.MarginTop = myOldMarginTop 
myInDesign.MarginPreferences.MarginBottom = myOldMarginBottom

If you have to use an existing document, you'll still have to set the margin preferences for all of the document pages before you change the page size.

Hope this helps!

Thanks,

Ole