I’m having trouble with Quark, I want to make a series of text boxes, but I cannot figure out how to not make them all in the same place
I would like to make the first box, and then have the script get the bounds of that box, and make the next box right below it
here’s what I have so far-this script will take paragraphs from TexEdit and make Quark boxes for each paragraph
tell application “TextEdit”
set boxCount to count of paragraphs of document 1
set annoList to paragraphs of document 1
end tell
tell application “QuarkXPress”
set boxOrigin1 to {“1"”}
set boxOrigin2 to {“1"”}
set boxOrigin3 to {“1.375"”}
set boxOrigin4 to {“3.5"”}
set boxOrigin5 to “.25"”
repeat with i from 1 to count of items of annoList
make new text box at page 1 of document 1 with properties {bounds:{boxOrigin1, boxOrigin2, boxOrigin3, boxOrigin4}, frame:{color:color spec “Black” of document 1 of application “QuarkXPress”, gap color:null, gap shade:“100%”, shade:“100%”, style:solid line, width:“0.5 pt”}, vertical justification:centered, runaround:none runaround, color:color spec “White” of document 1 of application “QuarkXPress”}
tell document 1
set story 1 of text box 1 to (my get_name(item i of annoList)) as string
set properties of story 1 to {font:“HelveticaNeue MediumCond”, size:“9pt”}
set properties of characters 1 thru 2 of story 1 to {font:“Helvetica 95 Black”, size:“13pt”}
set properties of paragraph 1 of story 1 of text box 1 to {justification:centered}
end tell
end repeat
end tell
on get_name(the_path)
set old_delim to AppleScript’s text item delimiters
set AppleScript’s text item delimiters to {“:”}
set the_name to (text item -1 of (the_path as string))
set AppleScript’s text item delimiters to old_delim
return the_name
end get_name