複数のバージョンの Office(Word,Excel,PPT) で active イベントが起きた際にメソッドを呼び出すプログラムを作成しておりますが(下記参照)、Wordに限り下記の部分でエラー「HRESULTからの例外:0x80040200」が起きます。
ocon.Advise(Me, m_Cookie)
oConnPointContainer.FindConnectionPoint(guid, ocon)でエラーとなっていないのでGuidに間違いはないと思いますしなぜエラーとなるのでしょうか?
なおPPTの場合、
Dim guid As New Guid("914934C2-5A91-11CF-8700-00AA0060263B")
Wordの場合、
Dim guid As New Guid("00020A01-0000-0000-C000-000000000046")
を使用してテストしてます。
テスト環境はWinXP+Office2003+VisualStudio2008です。
-------------------------------------------------------------
Public Sub OnConnection(ByVal application As Object, ByVal connectMode As Extensibility.ext_ConnectMode, ByVal addInInst As Object, ByRef custom As System.Array) Implements Extensibility.IDTExtensibility2.OnConnection
Dim ocon As IConnectionPoint
Try
Dim oConnPointContainer As IConnectionPointContainer
oConnPointContainer = CType(application, IConnectionPointContainer)
Dim guid As New Guid("914934C2-5A91-11CF-8700-00AA0060263B")
'Dim guid As New Guid("00020A01-0000-0000-C000-000000000046")
oConnPointContainer.FindConnectionPoint(guid, ocon)
ocon.Advise(Me, m_Cookie)
Catch ex As Exception
MessageBox.Show(ex.Message)
End Try
End Sub
-------------------------------------------------------------
非常に困ってます。よろしくお願いいたします。