[Ai]AppleScriptでPDF書き出し(プリセット選択式): [FORCE]

[Ai]AppleScriptでPDF書き出し(プリセット選択式)

初期設定無しの版にしました
【その２】[LINK]を見てみてください

----以上追記

細かく指定したい人は
こちら[LINK]を参考にしてください。

↑
の所の
プリセット名を選択するような感じで
↓を選んでPDFに別名保存する

一括変換する物
残念ながら↓のように

自分の環境に設定済みのジョブオプション名に
書き換える必要がありますので
あしからず。

ドロップレット形式
10.6x
イラストレーターCS4

吉田印刷のジョブオプションは
こちらから入手できます。
[LINK]

on open DropObj
----------ファインダ呼び出し
tell application "Finder"
----------ファインダ　アクティブ
activate
----ここからユーザー設定
set PdfPreSetLabels to ¬
{¬
"Illustrator-CS4-PDF_X-4", ¬
"雑誌広告送稿用_200909", ¬
"Yoshida_PDF_X-1a_aics4", ¬
"[プレス品質]", ¬
"[高品質印刷]", ¬
"[雑誌広告送稿用]", ¬
"[最小ファイルサイズ]"}



set chooseResult to choose from list PdfPreSetLabels with prompt "PDFプリセットを選んでください" OK button name "実行する" with title "プリセット選択"
copy the result as list to {the PdfPreSetLabels}

----------PDFプリセットの内容をここで定義します。（このやり方は好みの問題）
if chooseResult is false then
set PDFpre to "Yoshida_PDF_X-1a_aics4" as Unicode text
else
set PDFpre to PdfPreSetLabels as Unicode text
end if

----------繰り返しの始まり
repeat with ObjFiles in DropObj

----------ファイル名を取得
set fileName to name of ObjFiles as string

------------パスを取得
set pathAliasDoc to ObjFiles as alias

------------パスを文字列に変換
set pathStringDoc to pathAliasDoc as string

------------拡張子を判定
set exeName to name extension of ObjFiles

-------------ファイル名から拡張子を取り除く
set MainFileName to my replace(fileName, "." & exeName, "") as string

------------フルパスからファイル名を抜いてディレクトリ名を作る
set pathStringDirName to my replace(pathStringDoc, fileName, "") as string

----------------PDFファイル名を定義(PDF書き出しするので拡張子をpdfに変更）
set the PDFFileName to the (the MainFileName & "." & "pdf") as string

---------------PDF用にディレクトリ名とファイル名をつないでパスにしておく
set savePDFFileName to (pathStringDirName & ":" & PDFFileName) as string





-----------Illustrator呼び出し
tell application "Adobe Illustrator"

--------------Illustrator　アクティブ
activate

-------------ファイルを開く
open pathAliasDoc without dialogs

------------------開いたファイルをactivDocとして定義
set activDoc to document 1



---------------------PDFで別名で保存		
save activDoc in file savePDFFileName as pdf with options ¬
{class:PDF save options ¬
, PDF preset:PDFpre ¬
}
----------------------アクティブドキュメントを保存しないで閉じる
close activDoc saving no
----------------------イラストレーターを解放
end tell
end repeat
end tell
end open

----------文字の置き換えのサブルーチン
to replace(theText, orgStr, newStr)
set oldDelim to AppleScript's text item delimiters
set AppleScript's text item delimiters to orgStr
set tmpList to every text item of theText
set AppleScript's text item delimiters to newStr
set tmpStr to tmpList as text
set AppleScript's text item delimiters to oldDelim
return tmpStr
end replace