VBScript pdfファイル結合
VBScriptでpdfファイルを結合するプログラムがネット上にあったので、そのプログラムを使ってpdfファイルの結合をしました。
しかし、出来上がったpdfの容量がやけに小さいので、プロパティを見ると、何故か、「Web表示用に最適化:はい」になっていました。
このプログラムは、最初に「新規のページ」を作って、そこに既存のファイルを挿入していく、というものでした。
既存のファイルはすべて「Web表示用に最適化:いいえ」なのですが、どうやら、「新規のページ」で作ったページが「はい」になっているため、最適化されてしまうみたいです。
しかし、私は「Acrobat」を通常使うのプリンタに設定して、何の設定変更もなしに(保存場所だけは、そのたびごとに変わるが)、ワードなどのファイルをpdfに出力すると、「Web…」は、「いいえ」のファイルができます。
従って、私のデバイスドライバとしての「Acrobat」の標準の設定は「Web…」は、「いいえ」のはずなのに、「はい」のページが「Create」されてしまうのは、なぜなのでしょう。
というより、私が知りたいのは、元ファイルのまま、pdfファイルを結合したいのです。
印刷関係の仕事をしていますので、dpiなどが変わる事は許されません。
なお、プログラムは
Set y = CreateObject("AcroExch.PDDoc")
y.Create←ここで「Web…:いいえ」のページを作成したい!
Set z = CreateObject("AcroExch.PDDoc")
For i = 0 to c
z.Open(e(i))←「フォルダ名&ファイル名のデータ」
y.InsertPages -2, y, 0, z.GetNumPages, False
z.Close
Next
y.Save 5, v & "\Result.pdf"
y.Close
詳しい方、よろしくお願い致します。
補足
説明が悪かったかも知れません. 結合というより,4ページのファイルを1ページにまとめたい,ということです. すいません.