tell document 1 of application "QuarkXPress" activate set nFrames to count of text boxes repeat with n from 1 to nFrames tell text box n set bW to width of bounds as real if bW is less than 45 and bW is greater than 44 then set oB to (origin of bounds) as list set y1 to item 1 of oB set x1 to item 2 of oB set y1 to coerce y1 to real set x1 to coerce x1 to real set origin of bounds to {y1 - 0.353, x1 - 0.353} end if end tell end repeat display dialog "Fertig." buttons "OK" default button 1 with icon 1 giving up after 1 end tell