開いているドキュメントをPDFで保存

開いているドキュメント全てをPDFで保存します。
ほげほげ　部分を書き出したいPDFプリセット名に変えて下さい。
書き出し中のダイアログはでません。ドキュメントが全て閉じるまで待っていて下さい。

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

set a0 to “ほげほげ“

tell application “Adobe InDesign CS2_J“ to repeat with a1 in documents

tell document 1

save

copy properties to {file path:b1, name:c0}

set d2 to b1 & (c0‘s characters 1 thru -6) & “.pdf“ as Unicode text

export format PDF type to alias d2 using a0

activate

close saving yes

end tell

end repeat