Как проверить, была ли загружена надстройка?

Как проверить, была ли загружена надстройка?

Вы можете использовать следующий код VBA, чтобы проверить, доступна ли (загружена ли) надстройка. Вы можете показать предупреждение (при запуске или при нажатии кнопки), если надстройка отсутствует.

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

Как проверить доступность:

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