合成フォントを削除する

使ってない合成フォントがいっぱいついてきたら、削除が大変ですよね。

※このスクリプトはドキュメント内に使われている合成フォントも削除します。

スクリプトエディタで開く

tell document 1 of applicationAdobe InDesign CS2_J

set a1 to name of every composite font

set b1 to choose from list a1 with prompt削除する合成フォントを選択with titleuni-factorywith multiple selections allowed

repeat with a2 in b1

try

delete composite font a2

end try

end repeat

end tell