使ってない合成フォントがいっぱいついてきたら、削除が大変ですよね。
※このスクリプトはドキュメント内に使われている合成フォントも削除します。
tell document 1 of application “Adobe InDesign CS2_J“
set a1 to name of every composite font
set b1 to choose from list a1 with prompt “削除する合成フォントを選択” with title “uni-factory” with multiple selections allowed
repeat with a2 in b1
try
delete composite font a2
end try
end repeat
end tell
