如何验证加载项是否已加载？

如何验证加载项是否已加载？

您可以使用以下 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