WORDのアドイン

質問

先日、以下のように教えて頂き試したのです、できませんでした。
ご回答が頂けないので再投稿をしました。
教えて下さい。
------------------------------------------------
お世話になっております。
QNo.4228197で質問させて頂きました。
その節はありがとうございました。
WORDでも同様な事をやりたいのです。
ドキュメントを開いた際のイベントは、
Dim WithEvents oWord as Word.Application
Private Sub oWorf_DocumentOpen(ByVal Doc As Word.Document)

end sub
でいいのでしょうか？？

------------------------------------------------------------
やり方は同じですよ

IDTExtensibility2_OnStartupCompleteイベントの最後の方で
if oHostApp.Name = "Microsoft Word" then
　　Set oWord = oHostApp
End if

IDTExtensibility2_OnBeginShutdownの最後に
Set oWord = Nothing
を追加

Private Sub oWord_DocumentOpen(ByVal Doc As Word.Document)
　　If oWord.Documents(1).CustomDocumentProperties.Count Then
　　　　MsgBox oWord.Documents(1).CustomDocumentProperties("文書番号").Value
　　End If
end sub
といった具合です
-------------------------------------------------------------------
下記のようにしてテストしてみたのですが、うまく行きません。

宣言部
Dim WithEvents objWord As Word.Application

IDTExtensibility2_OnConnectionイベント
Set objWord = objHostApp

IDTExtensibility2_OnBeginShutdownイベント
Set objWord = Nothing

Private Sub objWord_DocumentOpen(ByVal Doc As Word.Document)
MsgBox "word Open"
End Sub

Private Sub objWord_DocumentActivate(ByVal Doc As Word.Document)
MsgBox "word Activate"
End Sub

どこか違うのでしょうか。
宜しくお願い致します。

----------------------------------------------------------------

回答No.1

id357

相当詳しい方だとはお見受けしますが。
多分、みなさん、最終目的が見えないから
返答のしようがないんではないでしょうか？

お礼

ご指摘ありがとうございます。
そうですね、これでは何をしたいのかが分かりにくいですね。

最終目的は「objWord_DocumentOpen」イベント、「objWord_DocumentActivate」イベントを取りたいのです。
もしくは、ヒントになるようなサイトを教えて下さい。

よろしくお願い致します。