VBAで、VBProjectへのアクセスのための設定について教えてください。
Excelで、下記のようなマクロを作成し動かしたころ、
「実行時エラー'6068'
Visual Basic Projectへのプログラム的なアクセスは信頼されません」
というエラーが出てしまいます。
どのように対処すれば動作するようになるのでしょうか。ご教示ください。よろしくお願いいたします。
【環境】
Windows XP & Office2003
【設定など】
Excel：[ツール]-[マクロ]-[セキュリティ]で、
「Visual Basic プロジェクトへのアクセスを信頼する」にチェック
VBエディタ：[ツール]-[参照設定]で、以下の参照を追加
Microsoft Visual Basic for Applications Extensibility 5.3
Microsoft Word 11.0 Object Library
【作ろうとしているマクロ】
(1)マクロを含んだWordファイルを開く
(2)Wordファイルのプロパティや、マクロのプログラムの行数などの値を取得
(3)Excelのシートに取得した値を入力
【作ったマクロ】
Sub test()
Dim objWord As Object
Set objWord = CreateObject("Word.Application")
flname = "（フルパスでのファイル名）"
With objWord
.Visible = False
.Documents.Open Filename:=flname, _
ReadOnly:=True, _
OpenAndRepair:=False
With objWord.Documents
aaa = .Item(1).BuiltinDocumentProperties(1).Value
Worksheets("test").Cells(1, 1).Value = aaa
'ここまでは正常に動作します。
bbb = .Item(1).VBProject.VBComponents(1).CodeModule.CountOfLines 'ここで実行時エラーが出ます。
Worksheets("test").Cells(1, 1).Value = bbb
.Item(1).Close SaveChanges:=wdDoNotSaveChanges
End With
End With
objWord.Quit
Set objWord = Nothing
End Sub
以上です。
どうか、よろしくお願いいたします。
お礼
回答有り難う御座います。 「サンプルとは、頑張れば、自力で実現できます。という例だと思うのですが。。。」 まったくその通りだと思います。しかし、それは、きちっと道具「関数仕様書やAPI仕様書など」がある場合だと思います。今回のケースは、単にパッケージとサンプルがあるだけで、道具の提示がありません。 頑張れとは、パッケージを逆アセンブルし解析して、自分で道具を整備しなさいということでしょうか。。。
補足
お忙しいところ、ご回答有り難う御座います。 >サンプルコードを提供しているわけではなく、サンプル機能(試用すること)を提供しているのですから当然です。 >あくまで「こんなこともできますよ」というサンプルに過ぎません。 まだ良く理解できないのですが、それでしたら、関数仕様書やAPI仕様書があると思うのですが、駅探エクスプレスのマニュアルの何処に記載があるのでしょうか。 サンプルとは、頑張れば、自力で実現できますよ。という例だと思うのですが。。。 以上 宜しくお願いします。