Clase AddIn (Word VBA)

La clase AddIn representa un solo complemento, ya sea instalado o no está instalado.

Los principales procedimientos de la clase AddIn son Delete y AddIns.Add

Set

Para usar una variable de clase AddIn, primero debe ser instanciado, por ejemplo

Dim adi as AddIn
Set adi = AddIns(Index:=1)

Los siguientes procedimientos se pueden usar para establecer variables de clase AddIn : AddIns.Add, AddIns.Item y Application.AddIns

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos AddIn en una colección.

Dim adi As AddIn
Dim iCount
For Each adi In AddIns
    If adi.Compiled = True And adi.Installed = True Then 
        iCount = iCount + 1 
    End If 
Next adi
MsgBox iCount & " WLL's are loaded"

Métodos

Los principales métodos de la clase AddIn son

Delete - Elimina el complemento especificado.

AddIns(1).Delete

AddIns.Add - Devuelve un objeto AddIn que representa un complemento agregado a la lista de complementos disponibles.

Dim strFileName As String: strFileName =  
Dim adi As AddIn
Set adi = AddIns.Add(FileName:=strFileName)

Propiedades

Autoload True si el complemento especificado se carga automáticamente al iniciar Word.

Dim booAutoload As Boolean
booAutoload = AddIns(1).Autoload

Compiled True si el complemento especificado es una biblioteca de complemento de Word (WLL).

Dim booCompiled As Boolean
booCompiled = AddIns(1).Compiled

Index Devuelve un valor de tipo Long que representa la posición de un elemento en una colección.

Dim As Variant
AddIns(1).Index

Installed True si el complemento especificado está instalado (cargado).

AddIns(1).Installed = True

Name Devuelve el nombre de un complemento.

Dim strName As String
strName = AddIns(1).Name

Parent Devuelve un objeto Object que representa el objeto primario del objeto AddIn especificado.

Dim objParent As Object
Set objParent = AddIns(1).Parent

Path Devuelve la ubicación de un complemento instalado.

Dim strPath As String
strPath = AddIns(1).Path

AddIns.Count Devuelve el número de objetos AddIn de la colección AddIns .

Dim lngCount As Long
lngCount = AddIns.Count

AddIns.Parent Devuelve un objeto Object que representa el objeto primario de la colección Addins.

Dim objParent As Object
Set objParent = AddIns.Parent