How to properly Install and uninstall WORD 2003 COM Add-ins

I have made a COM Add-in with VB6.  This Add-in has what I think is a pretty standard start-up procedure of adding a button to the standard WORD 2003 Commandbar.

I register my .dll with regsvr32 and it works fine.  My problem is that if I unregister it, the button is still there in Word. (but does nothing)

I have also made an Add-in for outlook and if I unregister it then the button is also gone when I next open outlook.  I am expecting this also to happen with Word but it is not.

I am aware that the add-in has a "connect" entry in the registry under software/microsoft/office/word/add-ins and this entry is gone.  But I still get the button.
LVL 20
darbid73Asked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

darbid73Author Commented:
I think it has something to do with it being still in normal.dot?????

If I reset the commandbar then it is gone - but I need a better solution then that.
0
darbid73Author Commented:
It appears I did not ad the code here it is.

If I delete normal.dot the button is gone, but obviously I cannot do that every time.

Dim oPic As stdole.IPictureDisp
Dim oMask As stdole.IPictureDisp
 
 
'<LOAD THE PICTURE AND MASK OBJECTS>
 
 
Set oPic = LoadResPicture(101, vbResBitmap)
Set oMask = LoadResPicture(102, vbResBitmap)
 
Set wLuTTool = w_App.CommandBars.Item("Standard").FindControl(, , "890", False, True)
 
If TypeName(wLuTTool) = "Nothing" Then
    Set wLuTTool = w_App.CommandBars.Item("Standard").Controls.Add(msoControlButton, , "890", , True)
End If
 
 
With wLuTTool
    .BeginGroup = True
    .DescriptionText = "Add selected Word Document"
    .Caption = "LuTTool"
    .Enabled = True
    .OnAction = "!<W2LTT2I.Connect>"
    .Style = msoButtonIconAndCaption
    .Picture = oPic  '<OFFICE 2000 - 2007>
    .Mask = oMask '<OFFICE 2002 - 2007>
    .Tag = "890"
    .ToolTipText = "ToolTip"
    .Visible = True
End With
 
Set oPic = Nothing
Set oMask = Nothing
 
Private Sub IDTExtensibility2_OnBeginShutdown(custom() As Variant)
 
    'The OnBeginShutdown method is called while the environment is being shut down. The custom parameter is an array
    'that can be used to provide additional data to the OnBeginShutdown method if desired.
    
    
    If TypeName(wLuTTool) <> "Nothing" Then
        wLuTTool.Delete False
    End If
 
    Set wLuTTool = Nothing
 
 
End Sub

Open in new window

0
darbid73Author Commented:
Ok got it sorted out.  You have to save the normal.dot after deleting the button.
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.