Width of box

Scripting Forums AppleScript | Classic Mac OS
,
#1

I have set the text in a newbox in a quark document. Sometimes I have to much text in my box so I need to increase the width of my textbox. How can I set width of newbox to newtext. I do not need to change the height or anything else just the width.

set story 1 of newbox to newtext

#2

We have 64 Quark Scripts in our ScriptBulders Section, in particular you may find these two of interest…
http://scriptbuilders.net/category.php?search=406
http://scriptbuilders.net/category.php?search=644

#3

Select a text box that is overflowing and run this script:
Note: The choice of integer in the script is up to you.

tell application "QuarkXPress™ "
	tell document 1
		--selected text box
		tell current box
			-- assumes that box is overflowing
			repeat until box overflows is false
				set wbounds to width of bounds as real
				set width of bounds to (wbounds + 10)
			end repeat
		end tell
	end tell
end tell