It's been a long long time I have done something in quark....
tell document 1
set tool mode to drag mode
set EverySelection to select every generic box
set thelist to bounds of current box as list
set newa to item 1 of thelist as real
set newb to item 2 of thelist as real
set newc to item 3 of thelist as real
set newd to item 4 of thelist as real
set bounds of current box to {newa + 1, newb, newc + 1, newd}
set pageHeight to get page height as real
set pageHeight to pageHeight + 1
set page height to pageHeight
end tell
end tell
Best regards,Jan