- PR -

VBからIllustratorを起動。。

1
投稿者投稿内容
やまやん
会議室デビュー日: 2005/07/05
投稿数: 1
投稿日時: 2005-07-05 11:25
はじめて投稿します　宜しくお願いします。
やりたい機能を順番に箇条書きにします
①VB 6.0からIllustratorを起動し、PDFファイルを読み込みます。
②ファイルの内容から複数ページの場合は最初の１ページのみ保存する。
③保存する形式は"Illustrator EPS"形式で保存する。

①～③までの処理を行いたいのですが、
PDFファイルを開く時に、２つのダイアログが出力されこれを回避して
ダイアログが出力されない様にしたいのですが中々出来ません。

１つ目のダイヤログは題名"PDFを開く"の画面で複数ページの場合、
どのページを開くかの選択画面が表示される
（PDFファイルは１ページしか取り込めない為）

２つ目のダイヤログは題名"Illustrator PDF警告"の画面で
"この書類には再解釈されたPDFオブジェクトが含まれています。"
"フォント AdobeCorpIDStd-Adobe が見つかりません。このフォントを使用しているテキストは代替フォントで表示されます。"
の画面が表示されます。

下記コードで可能と思いましたが、Illustratorを開く時
１つ目のダイヤログ"PDFを開く"は出力されないようになりましたが、
２つ目のダイヤログ"Illustrator PDF警告"はまだ出力され、
処理が止まってしまします。
それ以外は③の処理までは機能しますが。。

①～②の部分のコードを下記に示しています
スクリプトの実行中に
ダイアログボックスを表示してユーザと対話するかどうかの設定で
対話しないを選択していますがどうしても出力されてしまします。
"optionsRef.Application.UserInteractionLevel = aiDontDisplayAlerts"

VBのコード↓↓↓↓↓↓↓↓↓

' 各オブジェクトの作成
Set appRef = CreateObject("Illustrator.application")
Set optionsRef = CreateObject("Illustrator.OpenOptions")

' trueの場合、以前のIllustratorで保存されたレガシーテキストを
' 含むすべてのテキストオブジェクトを更新します
optionsRef.UpdateLegacyText = True

' PDFファイルの複数ページが存在する場合は最初の１ページのみ読み込む
appRef.Preferences.PDFFileOptions.PageToOpen = 1

' スクリプトの実行中にダイアログボックスを表示してユーザと対話するかどうか｡
optionsRef.Application.UserInteractionLevel = aiDontDisplayAlerts

' Illustratorを開く
Set docRef = appRef.Open("c:\test\aaa.pdf", aiDocumentRGBColor, optionsRef)

VBのコード↑↑↑↑↑↑↑↑↑↑

ダイヤログが出力されず、処理が止まらないようにしたいのですが
ご存知方どうぞ御教授願います。
1

スキルアップ／キャリアアップ（JOB@IT）