🚀 go-pugleaf

For those who might be interested, here's a little VBScript that you can save in a *.vbs file and place it in your script folder. It's pretty easy to understand and you can play with the settings a lot. It's crude, but efficient to make a book cover.

Set myIndesign = CreateObject("InDesign.Application.2.0")
Set MyDoc = myIndesign.documents.add

'Asks for the dimensions of the book and the spine
BookWidth=CDbl(InputBox("Enter the width of the book	in inches","Width of the book","6"))
BookHeight=CDbl(InputBox("Enter the height of the book in inches","Height of	the book","9"))
BookSpine=CDbl(InputBox("Enter the spine of the book	in inches","Spine of the book","1"))
BookTotalWidth=BookWidth*2 +BookSpine

'You can modify here to the measurementUnits of your choice.
With MyDoc
	.ViewPreferences.HorzMeasurementUnits= idMSInches
	.ViewPreferences.VertMeasurementUnits =idMSInches
	.DocumentPreferences.PageWidth=BookTotalWidth
	.DocumentPreferences.PageHeight=BookHeight
	.Pages.Item(1).MarginPreferences.MarginLeft=0
	.Pages.Item(1).MarginPreferences.MarginRight=0
	.Pages.Item(1).MarginPreferences.MarginTop=0
	.Pages.Item(1).MarginPreferences.MarginBottom=0
End With

Set myWindow = myInDesign.ActiveWindow
Set mySpread = myWindow.ActiveSpread
Set myGuides = mySpread.Guides

'Creates guides. The sub is set below
CreateAGuide idVertical, -.125
CreateAGuide idVertical, 0
CreateAGuide idVertical, .5
CreateAGuide idVertical, BookWidth - .5
CreateAGuide idVertical, BookWidth
CreateAGuide idVertical, BookWidth + BookSpine
CreateAGuide idVertical, BookWidth + BookSpine + .5
CreateAGuide idVertical, BookTotalWidth - .5
CreateAGuide idVertical, BookTotalWidth
CreateAGuide idVertical, BookTotalWidth + .125

CreateAGuide idHorizontal, -.125
CreateAGuide idHorizontal, 0
CreateAGuide idHorizontal, .25
CreateAGuide idHorizontal, BookHeight - .25
CreateAGuide idHorizontal, BookHeight
CreateAGuide idHorizontal, BookHeight + .125

Sub CreateAGuide(Orientation,Placement)
	Set myGuide = myGuides.add
	With myGuide
		.GuideOrientation =Orientation
		.GuideLocation=Placement
	End With
End Sub