Comment vérifier si le module complémentaire a été chargé ?

Comment vérifier si le module complémentaire a été chargé ?

Vous pouvez utiliser le code VBA suivant pour vérifier si le module complémentaire est disponible (chargé). Vous pouvez afficher un avertissement (au démarrage ou en cliquant sur un bouton) si le module complémentaire est manquant.

Public Function IsTBarCodeWordAddInActive() As Boolean
Dim objAddIn As COMAddIn
IsTBarCodeWordAddInActive = False
For Each objAddIn In Word.Application.COMAddIns
  If objAddIn.ProgID = "TECIT.TBarCode.WordAddIn" And InStr(objAddIn.Description, "11") Then
    If objAddIn.Connect = True Then
      IsTBarCodeWordAddInActive = True
    End If
  End If
Next
End Function

Comment vérifier la disponibilité :

If IsTBarCodeWordAddInActive() Then
  MsgBox "All OK :-)"
Else
  MsgBox "TBarCode Word Add-In (V11) is missing!"
End If