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

詳しい方、よろしくお願い致します。

回答No.1

heburusu · ベストアンサー

y.Saveで 5 を指定しているためではないでしょうか？

5を指定しているということはPDSaveFullとPDSaveLinearizedの2つを指定していることになるのかと思いますので、1 に変更してPDSaveFullだけ指定してみるといかがでしょうか？
(以下URLも参照頂ければと思います
http://pdf-file.nnn2.com/?p=153)

私自身で試していませんのでどのように出力されるかわかりませんが、
y.Saveの値を 0 や 1 にして一度試してみて頂ければと思います。

参考URL：

http://wutils.com/com-dll/constants/constants-Acrobat.htm

お礼

ありがとうございます！

「１」で成功しました。

いろいろ、試させて頂きます。

本当に、ありがとうございました。