tell application "QuarkXPress" 
  activate 
  -- die ausgewählte Box duplizieren 
  set newBox to duplicate current box 
  -- die Position der neuen Box speichern 
  set {y, x} to (origin of bounds of newBox) as list 
  -- die neue Box um 5 mm nach rechts verschieben ... 
  set origin of bounds of newBox to {y, (x as real) + 5} 
  -- ... und in den Vordergrund bewegen 
  move newBox to before current box 
end tell 

	set origin of bounds of newBox to {y, (x as real) + 5} 

error "«data FXHM00006200» kann nicht in Typ real umgewandelt werden." number -1700 from «data FXHM00006200» to real 

tell application "QuarkXPress 7.5" 
  activate 
  -- die ausgewählte Box duplizieren 
  set newBox to duplicate current box 
  -- die Position der neuen Box speichern 
  set {y, x} to (origin of bounds of newBox) as list 
  -- die X-Position umwandeln 
  set x to coerce x to real 
  -- die neue Box um 5 mm nach rechts verschieben ... 
  set origin of bounds of newBox to {y, x + 5} 
  -- ... und in den Vordergrund bewegen 
  move newBox to before current box 
end tell 

set wB to width of bounds of newBox 
set wB to coerce wB to real 

set origin of bounds of newBox to {y, x+wB+5}