ActiveX コンポーネントを作成できません

質問

Excel2007 WinVista32ビット　Adobe Reader 9 Ver9.5.5 を使用しています。
ExcelVBAでPDFを操作するコードを作成したところ、CreateObject関数のところで（※）
「ActiveX コンポーネントを作成できません。」のエラーが出てしまっています。　色々ネットで調べて宣言を変更したりしたのですが上手くいきません。今はこの２行だけでもエラーが出ます。

　Dim aaa As Acrobat.CAcroAVDoc
　aaa = CreateObject("AcroExch.AVDoc")　※

　Dim aaa As Acrobat.CAcroAVDocを
　　(1)Dim aaa As new Acrobat.CAcroAVDoc
(2)Dim aaa As object
　　(3)Dim aaa　にしてもだめでした

最終的にはPFDファイルのページ数が知りたいのですが・・・・・・
Adobe ReaderはProfessionalではありません
この環境でどうにかする事できませんか？

回答No.2

tsubu-yuki · ベストアンサー

あら、そうですか・・・と、１で回答したものです。
私のＰＣにはＡＤＯＢＥ７を入れているから通ったのかもしれません。
お力になれず申し訳ないです。

他人さまの解説サイトへの直リン回答は好みではないのですが、
少しばかりお借りして、
http://pdf-file.nnn2.com/?p=219
もしかすると参考になるかもしれません。

お目汚し失礼しました。

お礼

度々、ご回答いただきましてありがとうございました。
ご指定のサイトのコードを動かしましたが、
'Acrobatがエラーメッセージを表示するルーチンに入りました。
バージョンの問題なんでしょうかね？

回答No.1

tsubu-yuki

型宣言が通っているようなので、参照設定はされているものとして。

細かいところですが、
> (1)Dim aaa As new Acrobat.CAcroAVDoc
　　　　　　↓
　　　Dim aaa As new Acrobat.AcroAVDoc

ついでに
> aaa = CreateObject("AcroExch.AVDoc")
　　　　　　↓
Set aaa = CreateObject("AcroExch.AVDoc")

うまく続けばいいですが。

お礼

回答いただきありがとうございました。
ご回答通り修正しましたが結果は同じでした。
Set aaa = CreateObject("AcroExch.AVDoc")　のところで同じエラーが出ます。参照設定もしてあります。