S
Sterling Wight
I have a addin for Office that has worked on pretty much all version since
Office 98. It still works with Office 2007 and (if I recall correctly) with
the first beta of Vista. The setup is having a template file (.doc, .xla,
..ppa) that loads the addin via VBA. The Word file looks roughly like this:
**********
Private Obj As LogoMediaDotNetAddInLib.LMDNAddIn
Private a() As Variant
Sub AutoExec()
Application.CustomizationContext = ThisDocument
ReDim a(1)
If Obj Is Nothing Then Set Obj =
CreateObject("LogoMediaDotNetAddIn.LMDNAddIn")
DoEvents
If Not Obj Is Nothing Then Call
Obj.OnConnection(Application:=Word.Application, ConnectMode:=2,
AddInInst:=Obj, custom:=a)
End Sub
Sub Document_Open()
Call AutoExec
End Sub
Sub AutoLoad()
Call AutoExec
End Sub
Sub AutoExit()
Application.CustomizationContext = ThisDocument.AttachedTemplate
ReDim a(1)
If Not Obj Is Nothing Then Call
Obj.OnDisconnection(RemoveMode:=ext_dm_HostShutdown, custom:=a)
Set Obj = Nothing
End Sub
Sub Document_Close()
Call AutoExit
End Sub
**********
Enabling the addin now kills the Office App. I'm guessing that this is a
permissions problem, but it isn't clear to me what needs permissions, and
what permissions it needs. I much prefer a solution using C++ or simple
registry locations, I'd just as soon not rewrite everything.
Office 98. It still works with Office 2007 and (if I recall correctly) with
the first beta of Vista. The setup is having a template file (.doc, .xla,
..ppa) that loads the addin via VBA. The Word file looks roughly like this:
**********
Private Obj As LogoMediaDotNetAddInLib.LMDNAddIn
Private a() As Variant
Sub AutoExec()
Application.CustomizationContext = ThisDocument
ReDim a(1)
If Obj Is Nothing Then Set Obj =
CreateObject("LogoMediaDotNetAddIn.LMDNAddIn")
DoEvents
If Not Obj Is Nothing Then Call
Obj.OnConnection(Application:=Word.Application, ConnectMode:=2,
AddInInst:=Obj, custom:=a)
End Sub
Sub Document_Open()
Call AutoExec
End Sub
Sub AutoLoad()
Call AutoExec
End Sub
Sub AutoExit()
Application.CustomizationContext = ThisDocument.AttachedTemplate
ReDim a(1)
If Not Obj Is Nothing Then Call
Obj.OnDisconnection(RemoveMode:=ext_dm_HostShutdown, custom:=a)
Set Obj = Nothing
End Sub
Sub Document_Close()
Call AutoExit
End Sub
**********
Enabling the addin now kills the Office App. I'm guessing that this is a
permissions problem, but it isn't clear to me what needs permissions, and
what permissions it needs. I much prefer a solution using C++ or simple
registry locations, I'd just as soon not rewrite everything.