WORDのアドイン

質問

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

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

回答No.1

redfox63

やり方は同じですよ

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

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

※これって返答頂いても、それに返答できないんでしょうか。。。。