Classe AddIn (Word VBA)

La classe AddIn représente une macro complémentaire installée ou non.

Les procédures principales de la classe AddIn sont Delete et AddIns.Add

Set

Pour utiliser une variable de classe AddIn, elle doit d'abord être instanciée, par exemple

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

Les procédures suivantes peuvent être utilisés pour définir des variables de la classe AddIn : AddIns.Add, AddIns.Item et Application.AddIns

For Each

Voici un exemple de traitement des éléments AddIn dans une collection

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éthodes

Les méthodes principales de la classe AddIn sont

Delete - Supprime le complément spécifié.

AddIns(1).Delete

AddIns.Add - Renvoie un objet AddIn qui représente un complément ajouté à la liste des compléments disponibles.

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

Propriétés

Autoload True si le complément spécifié est automatiquement chargé au démarrage de Word.

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

Compiled True si le complément spécifié est une bibliothèque (WLL).

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

Index Renvoie un type long qui représente la position d'un élément dans une collection.

Dim As Variant
AddIns(1).Index

Installed True si le complément spécifié est installé (chargé).

AddIns(1).Installed = True

Name Renvoie le nom d'un complément.

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

Parent Renvoie un Object qui représente l'objet parent de l'objet AddIn spécifié.

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

Path Renvoie l’emplacement d’un complément installé.

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

AddIns.Count Renvoie le nombre d'objets AddIn dans la collection AddIns .

Dim lngCount As Long
lngCount = AddIns.Count

AddIns.Parent Renvoie un Object qui représente l'objet parent de la collection Addins.

Dim objParent As Object
Set objParent = AddIns.Parent