C# Snippets

Connect

public static void COMAddin_Connect(string sDescription, bool bConnect)
{
    Office.COMAddIns objComAddins;
    Office.COMAddIn objComAddin;

    objComAddins = gApplicationWord.COMAddIns;

    foreach (var objComAddin in objComAddins)
    {
        if ((sDescription == objComAddin.Description))
        {
            objComAddin.Connect = bConnect;
            return;
        }
    }
}

Public Shared Sub COMAddin_Connect(ByVal sDescription As String, _
                                   ByVal bConnect As Boolean)

   Dim objComAddins As Office.COMAddIns
   Dim objComAddin As Office.COMAddIn

   objComAddins = gApplicationWord.COMAddIns

   For Each objComAddin In objComAddins
      If (sDescription = objComAddin.Description) Then
         objComAddin.Connect = bConnect
         Exit Sub
      End If
   Next objComAddin

End Sub

ConnectState

public static bool COMAddin_ConnectState(string sDescription)
{
    Office.COMAddIns objComAddins;
    Office.COMAddIn objComAddin;

    objComAddins = gApplicationWord.COMAddIns;

    foreach (var objComAddin in objComAddins)
    {
        if ((sDescription == objComAddin.Description))
        {
            COMAddin_ConnectState = objComAddin.Connect;
            return;
        }
    }
}

Public Shared Function COMAddin_ConnectState(ByVal sDescription As String) As Boolean

   Dim objComAddins As Office.COMAddIns
   Dim objComAddin As Office.COMAddIn

   objComAddins = gApplicationWord.COMAddIns

   For Each objComAddin In objComAddins
      If (sDescription = objComAddin.Description) Then
         COMAddin_ConnectState = objComAddin.Connect
         Exit Function
      End If
   Next objComAddin

End Function

Display

public static void COMAddins_Display()
{
    Office.COMAddIns objComAddins;
    Office.COMAddIn objComAddin;

    objComAddins = gApplicationWord.COMAddIns;

    foreach (var objComAddin in objComAddins)
        MsgBox("GUID: " + objComAddin.Guid + Constants.vbCrLf + "Project ID: " + objComAddin.ProgId + Constants.vbCrLf + "Creator: " + objComAddin.Creator + Constants.vbCrLf + "Connect: " + objComAddin.Connect + Constants.vbCrLf + "Description: " + objComAddin.Description);
}

Public Shared Sub COMAddins_Display()

   Dim objComAddins As Office.COMAddIns
   Dim objComAddin As Office.COMAddIn

   objComAddins = gApplicationWord.COMAddIns

   For Each objComAddin In objComAddins
      Call MsgBox("GUID: " & objComAddin.Guid & vbCrLf & _
                  "Project ID: " & objComAddin.ProgId & vbCrLf & _
                  "Creator: " & objComAddin.Creator & vbCrLf & _
                  "Connect: " & objComAddin.Connect & vbCrLf & _
                  "Description: " & objComAddin.Description)
   Next objComAddin

End Sub

Exists

public static bool COMAddin_Exists(string sDescription)
{
    Office.COMAddIns objComAddins;
    Office.COMAddIn objComAddin;

    objComAddins = gApplicationWord.COMAddIns;

    foreach (var objComAddin in objComAddins)
    {
        if ((sDescription == objComAddin.Description))
        {
            COMAddin_Exists = true;
            return;
        }
    }

    COMAddin_Exists = false;
}

Public Shared Function COMAddin_Exists(ByVal sDescription As String) As Boolean

   Dim objComAddins As Office.COMAddIns
   Dim objComAddin As Office.COMAddIn

   objComAddins = gApplicationWord.COMAddIns

   For Each objComAddin In objComAddins
      If (sDescription = objComAddin.Description) Then
         COMAddin_Exists = True
         Exit Function
      End If
   Next objComAddin

   COMAddin_Exists = False

End Function