Make text box to the left of a page…
001 tell application "QuarkXPress"
002 activate
003 tell document 1
004 set Orig_PRO to page rule origin
005 set page rule origin to {0, 0}
006 tell page 1
007 make text box at beginning with properties ¬
008 {name:"PB Text Box", bounds:{"0 mm", "-60 mm", "30 mm", "-5 mm"}}
009 end tell
010 set page rule origin to Orig_PRO
011 end tell
012 end tell
Make text box to the right of page…
001 tell application "QuarkXPress"
002 activate
003 tell document 1
004 set Orig_PRO to page rule origin
005 set page rule origin to {0, 0}
006 tell page 1
007 set Page_Width to ((width of bounds) as millimeter units) as real
008 make text box at beginning with properties ¬
009 {name:"PB Text Box", bounds:{0 as millimeter units, (Page_Width + 10) as millimeter units, 30 as millimeter units, (Page_Width + 50) as millimeter units}}
010 end tell
011 set page rule origin to Orig_PRO
012 end tell
013 end tell