VBScriptでpdfファイル結合 - 最適化設定の問題と元ファイルの保持方法

2015/02/26 22:05

このQ&Aのポイント

VBScriptを使用してPDFファイルを結合するプログラムを実行しましたが、出力されたPDFのサイズが小さくなってしまいました。原因として、結合時に作成される新しいページの最適化設定が「Web表示用に最適化：はい」となっていることが判明しました。私は通常「Acrobat」を使用してファイルをPDFに変換していますが、その際には最適化設定が「いいえ」となっています。この設定の違いが問題となっているようですが、なぜ新しいページが最適化されてしまうのか理解できていません。
私は印刷関係の仕事をしており、DPIなどが変わることは許されません。そのため、元のファイルのままPDFを結合したいです。現在のプログラムでは新しいページが作成されてしまうため、元ファイルの保持ができず困っています。
VBScriptのプログラムでは「AcroExch.PDDoc」オブジェクトを使用してPDFファイルを結合しています。具体的な手順としては、まず新しいページを作成し、その後既存のファイルを挿入していくという流れです。しかし、新しいページが最適化されるため、元ファイルのまま結合することができません。原因や解決策をご教示いただけると幸いです。

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 詳しい方、よろしくお願い致します。

Prome_Lin
お礼率86% (247/285)

その他(ソフトウェア)
回答数1
ありがとう数1

みんなの回答 （1）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

heburusu
ベストアンサー率85% (140/164)

2015/03/05 11:18 回答No.1

y.Saveで 5 を指定しているためではないでしょうか？ 5を指定しているということはPDSaveFullとPDSaveLinearizedの2つを指定していることになるのかと思いますので、1 に変更してPDSaveFullだけ指定してみるといかがでしょうか？ (以下URLも参照頂ければと思います http://pdf-file.nnn2.com/?p=153) 私自身で試していませんのでどのように出力されるかわかりませんが、 y.Saveの値を 0 や 1 にして一度試してみて頂ければと思います。