Microsoft Office Forums - View Single Post - VBA code to enable a Word COM Add-In

gmaxey · 06-15-2017, 03:26 PM

Something like this:

Code:

Option Explicit
Sub DisconnetCOMAI()
Dim lngIndex As Long
Dim oCAIs As COMAddIns
  Set oCAIs = Application.COMAddIns
  For lngIndex = 1 To oCAIs.Count
    If Application.COMAddIns(lngIndex).Description = "Microsoft Word Code Compatibility Inspector" Then
      Application.COMAddIns(lngIndex).Connect = False
      Exit For
    End If
  Next
End Sub
Sub ConnectCOMAI()
Dim lngIndex As Long
Dim oCAIs As COMAddIns
  Set oCAIs = Application.COMAddIns
  For lngIndex = 1 To oCAIs.Count
    If Application.COMAddIns(lngIndex).Description = "Microsoft Word Code Compatibility Inspector" Then
      Application.COMAddIns(lngIndex).Connect = True
      Exit For
    End If
  Next
End Sub