Excel VBAでPDFのプロパティを書き換えたい

Question

Excel VBAを用いて、エクセルファイルに記載されている通りにPDFファイルのプロパティ（タイトルと作成者）を書き換えたいと考えています。
PythonのPyPDF2を使って同様の作業を行おうとしたのですが、上手くいかなかったので質問します。

加工するPDFファイルのバージョンは1.3 (adobe acrobat 4.x)です。

以下のようなコードで実行したところ、CreateObject("AcroExch.PDDoc")の箇所でエラー（Set a = CreateObject("AcroExch.PDDoc")が黄色くマークされて止まる)が生じてしまいました。

以下のコードに限らず、何か良い方法があれば、お知恵をお貸し頂けると有難いです。

Sub プロパティ書き換え()

ChDrive ActiveWorkbook.Path
ChDir ActiveWorkbook.Path

ThisPath = ActiveWorkbook.Path & "\"
Filename = Dir(ThisPath & "*.pdf")

    Do While Filename <> ""
        
        Set a = CreateObject("AcroExch.PDDoc")
            b = a.Open(ThisPath & Filename)
            b = a.SetInfo("Title", Range("B1"))
            b = a.SetInfo("Author", Range("B2"))
            b = a.Save(ThisPath & Filename)
            b = a.Close
        Filename = Dir()
    Loop

MsgBox "作業終了"

End Sub

Comments

[satokei]

発生したエラーの内容を書いてください。

[satokei]

『黄色くマークされて止まる』では、エラーの内容が分からないです。
エラーメッセージは表示されませんでしたか？
あと、Acrobat はインストールされていますか？

[trave]

ご質問頂き、ありがとうございます。
止まるのみで、特にメッセージの表示はありませんでした。
Acrobatはインストールしています。

[satokei]

Excel と Acrobat は、 32ビット/64ビット が統一されていますか？
ではなければ、あとは原因が分からないです。

（※インストールされている Acrobat とは、Readerの方ではないですよね？）

[kuma_kuma_]

前提条件で"AcroExch.PDDoc"を使う場合「Adobe Acrobat X Pro」がインストールされていなければなりません。一定期間無料でつかえるソフトですがインストールされていますか？

[trave]

ありがとうございます。
「Adobe Acrobat X Pro」がインストールされていないというのが原因のようです。
後日インストールを行い試してみます。
ありがとうございました。

Answer 1

「Adobe Acrobat X Pro」がインストールされていないことが原因でした。