(DTPtechNote:426) Re: text box for QXP

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

これもぬるい系なのだけど。
1行だけのボックスを行長の長さに応じて横幅をそろえてくれます。
こいうのはOSAスクリプトに入れて使うとシアワセになるでつ。

(*
テキストボックスの1行目の長さに「指定のアキ量」を加えてテキストボックスの横幅とします
縦組みのことは考えてません。エラートラップもなく、バグあります（笑）
*)

set aki to "+5mm" --テキストボックスの横幅のアキ量

tell application "QuarkXPress4.10r2J"
	activate
	tell document 1
		tell current box
			tell paragraph 1
				set p_width to width
			end tell
			set {y1, x1, y2, x2} to bounds as list
			set tmp to ((x1 as real) & "+" & (p_width as real) & aki) as text
			set bounds to {y1, x1, y2, tmp}
		end tell
	end tell --document 1
end tell --application