(DTPtechNote:914) クォークについて

[ふかさわ <anonymous at unknown-host>]

こんばんわ
お世話になっております。
今回はクォークのスタイルシートなんですが、

tell application "QuarkXPress4.1"
	tell document 1
		set co to count of style spec
		repeat co - 1 times
			tell style spec 2
				set moji to character style
				delete moji with replacing
			end tell
		end repeat
	end tell
end tell

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

通常、メニューからスタイルシートにいって、他のスタイルシート
を削除すると、置き換えるスタイルシートを選んでくださいと出ます

スクリプトでこの置き換えるという作業はできるんでしょうか？