moving boxes (probably very simple) in Xpress

Scripting Forums AppleScript | Mac OS X
,
#1

Hi
Probably very simple, but as a novice I don’t know how to do this:
I want to be able to select a box and move it to a different position.
Suppose my box is at position X 100mm Y 60mm
and I want it to move to X50 mm and Y30mm
Anyone?
Help is much appreciated!
Thanks.

Elsakippy :slight_smile:

#2 
tell application "QuarkXPress"
	activate
	tell document 1
		set TheBox to current box
		set MyOrigin to coerce (origin of bounds of TheBox as millimeters point) to list
		set origin of bounds of TheBox to {(item 1 of MyOrigin as real) + 60, (item 2 of MyOrigin as real) + 100} as millimeters point
	end tell
end tell

This should work, down and dirty with no error checking.

#3

Thank you Jerome, it works nicely indeed. And it got me on the right track for more scripts that I was working on.
Cheers,
Elsakippy :slight_smile: