自動でPDFに変換

[2174]自動でPDFに変換 | 投稿者:旅人 | 投稿日:2009/01/13(Tue) 15:27:28
いつもお世話になっております。

現在CS3(WIN/XP)環境でパンフレットを制作しているのですが、パンフレットの数が多いため、PDFに変換する作業を自動でできないものかと悩んでおります。

イメージとしてはフォトショップ等のドロップレットの様なものを作れないかと思っているのですが、何か方法はあるのでしょうか?
(欲を言うのであれば出力まで自動処理ができれば完璧なんですが。。。)

よろしくお願いいたします。
» 1
[2177]Re: 自動でPDFに変換 | 投稿者:お~まち | 投稿日:2009/01/13(Tue) 18:28:46
Windows Script Host を利用すると、InDesignドキュメントファイルをドラッグ&ドロップすることで、そのファイルに対して色々な自動処理をかけることができます。
以下、ドロップされたファイルと同じ階層にPDFファイルを作成するVBScriptの例です。

'--サンプルここから
'ドラッグ&ドロップでPDF出力 - InDesign CS3 用
Set objArgs = WScript.Arguments
If objArgs.Count = 0 Then
   WScript.Echo "入力ファイル名がありません"
   WScript.Quit
End If

Set app = CreateObject("InDesign.Application.CS3_J")
app.ScriptPreferences.UserInteractionLevel = 1699640946
'次の行の[プレス品質]の所にPDF書き出しプリセット名を記入
Set myPDFPreset = app.PDFExportPresets("[プレス品質]")

For i = 0 To objArgs.Count - 1
   filename = objArgs(k)
   PDFfilename = Left(filename, InStrRev(filename, ".")) & "pdf" '保存先ファイル名
   Set doc = app.Open(filename, False)
   doc.Export 1952403524, PDFfilename, False, myPDFPreset
   doc.Close
Next
app.ScriptPreferences.UserInteractionLevel = 1699311169
'--サンプルここまで

この記述をテキストエディタに貼りつけて、ファイルに保存(拡張子.vbs)すればドロップレットのできあがりです。
» 2
[2183]Re: 自動でPDFに変換 | 投稿者:旅人 | 投稿日:2009/01/15(Thu) 10:47:01
ありがとうございました。
早速実行してみます!
この記事の書き込み元へのリンク (コメントや質問などはこちらへどうぞ)

このページをシェア