[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

(DTPtechNote:921) Re: クォークについて



>上のようにノーマルのスタイルシートがstyle spec 1 なので
>これ以外を消すスクリプトなんですが、ある一定以上の数の
>スタイルシートがある場合、エラーになってしまいます。

このスクリプトだとstyle spec 2の文字スタイルを延々と削除
していますがそれでは「全てのスタイルを消す」ことはできません。


>通常、メニューからスタイルシートにいって、他のスタイルシート
>を削除すると、置き換えるスタイルシートを選んでくださいと出ます
>
>スクリプトでこの置き換えるという作業はできるんでしょうか?

えーと、最終的な目的はあるスタイルを何かに置換することなのでしょうか?
とりあえずノーマル以外のスタイルを全て消したいなら以下のようにすればできます。

tell application "QuarkXPress召4.10r2" to tell document 1
	set co to count character specs
	repeat co - 1 times
		delete character spec 2
	end repeat
	set co to count style specs
	repeat co - 1 times
		delete style spec 2
	end repeat
end tell

、ソ、タ、キ、メ、ネ、トセテ、ケ、エ、ネ、ヒイ靂フ、ホス換えが行なわれるの
複雑なドキュメントだと落ちたりすることもあるかもしれません。
ウインドウシェードをしてから実行するといいです。