🚀 go-pugleaf

John--

I think it's your ruler origin setting that's messing you up. Try this:



tell application "InDesign 2.0.2" 
	set myDocument to make document 
	set ruler origin of view preferences of myDocument to page origin 
	repeat with myCounter from 1 to 8 
		if myCounter is not equal to 1 then 
			tell myDocument to make page at end 
		end if 
		my MakeTextBox(1, 4, 4, 18, 18) 
	end repeat 
end tell

--start code  
on MakeTextBox(BoxNumber, TopCoord, LeftCoord, RightCoord, BottomCoord) 
	local PageCount 
	tell application "InDesign 2.0.2" 
		set CurDoc to active document 
		tell CurDoc 
			activate 
			tell last page 
				set CurrentFrame to make text frame 
				set MyFrameProperties to properties of CurrentFrame 
				tell CurrentFrame to move by {1, 1} 
				set properties of CurrentFrame to {geometric bounds:{TopCoord, LeftCoord, BottomCoord, RightCoord}, label:BoxNumber} 
			end tell 
		end tell 
	end tell 
end MakeTextBox 
---end code  




Thanks,

Ole