(DTPtechNote:420) Re: 段落罫線について

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

>この結果が
>{"ブラック", "ブラック", "ブラック"}
>
>となってしまいます。

これはQuarkXPress 3.3Jのバグですね。
キャレットがその段落中にないといけません。


>また，ちゃんと動作するためにはどうしたらいいのでしょうか……

こんなかんじ

tell application "QuarkXPress 3.3Jr7"
	activate
	tell document 1
		set tool mode to contents mode
		tell page 1
			tell text box 1
				set tmp_color to {}
				repeat with i from 1 to count paragraphs
					tell paragraph i
						my move_para(i)
						set end of tmp_color to name of color of rule below
					end tell
				end repeat
			end tell
		end tell
	end tell
	tmp_color
end tell

to move_para(i)
	tell application "QuarkXPress 3.3Jr7"
		set selection to insertion point before paragraph i of current box of document 1
	end tell
end move_para


ポイントは「set selection to insertion point」が「tell application "QuarkXPress 3.3Jr7"」直下でないとダメなとこです。
なむば支障に指摘されました。お礼。