One of our firm's Word add-ins in the COM Add-ins group is causing some freezing issues on occasion in Word when enabled. The add-in is very important for some users, so we'd like to give them the choice of easily enabling or disabling it, depending on what they're doing in Word. I have tried all kinds of VBA code involving Application.COMAddIns, but can't find the correct code to assign to a couple of buttons on the Quick Access Toolbar, one which would enable the add-in, the other to disable it. All meant to save the user time instead of having to go to File/Options/Add-ins/Manage COM Add-ins every time to either enable or disable the add-in.



Any help would be greatly appreciated. Thank you!!

Something like this:

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

Hi Greg,

Thanks so much for your reply. Your code looks really good. It worked for one of my COM Add-Ins, but not for most of them. Not sure why. It probably has to do with something going on in the background of our system.

Just wanted to say thanks for your work.

Have a great day!

Kurt

You might try printing the list of Com Add-ins to make sure you are using the correct descriptor.
For lngIndex = 1 To oCAIs.Count
Debug.Print Application.COMAddIns(lngIndex).Description

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

Thanks for the idea Greg.

I've put your code into the following:

Sub printdescriptions()
Dim lngIndex As Long
Dim oCAIs As COMAddIns
Set oCAIs = Application.COMAddIns
For lngIndex = 1 To oCAIs.Count
Debug.Print Application.COMAddIns(lngIndex).Description
Exit For
Next
End Sub

Nothing prints.

Ideas?

Thanks.

Kurt

Well if the first one doesn't have a description defined it wouldn't print and then none of the rest would because you are exiting the For ... Each loop.

The idea is to try to find a unique identifier for the Add-in you want to disconnect.

Try:

Sub printdescriptions()
Dim lngIndex As Long
Dim oCAIs As COMAddIns
Set oCAIs = Application.COMAddIns
For lngIndex = 1 To oCAIs.Count
Debug.Print Application.COMAddIns(lngIndex).Description
Debug.Print Application.COMAddIns(lngIndex).ProgID
Debug.Print Application.COMAddIns(lngIndex).GUID
Next
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

I copied your EXACT coding into a new macro. Still nothing prints.

Should I be changing something in your code?

Thanks a lot for your help!

Do you have any COM Add-Ins installed. Here is what my Com Add-In list looks like:

Attached Images

AddIns.jpg (91.9 KB, 16 views)

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

Here is what Prints

Attached Images

Prints.jpg (206.9 KB, 13 views)

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

I have about 10 installed Com Add-ins.

Where do you find the IMMEDIATE window you showed for what Prints?

The VB Editor "View" menu. Select "Immediate"

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

BINGO!

I found the descriptions in the Immediate window, and discovered that in fact the descriptions are NOT what they appear to be in the "Description" area at the bottom of the COM Add-ins windows. I copied and pasted the actual description for the COM Add-in I wanted to enable and disable, inserted it into your previous code, and voila--it works.

Many, many thanks for sticking with me! I believe you've helped me in times past, and I'm very appreciative for your professionalism, patience and expertise.

Bravo!!

Kurt