(DTPtechNote:424) text box for QXP

[市川せうぞー <anonymous at unknown-host>]

ぬるい感じでもうしわけない(^^;;;;; 

(*
リフローしているテキストボックスをリフローが解消するまで縦方向に拡張します
縦組みのことは考えてません。エラートラップもなく、きっとバグあります（笑）
*)

set aki to 1 --増加量

tell application "QuarkXPress4.10r2J"
	activate
	tell document 1
		tell current box
			repeat while box overflows
				try
					set {y1, x1, y2, x2} to bounds as list
					set tmp to (y2 as real) + aki
					set bounds to {y1, x1, tmp, x2}
				on error errMsg number errNum
					display dialog "エラーです" buttons {"キャンセル"} with icon 0
				end try
			end repeat
		end tell
	end tell --document 1
end tell --application