Klasse AddIn (Word VBA)

Die Klasse AddIn stellt ein einzelnes installiertes oder nicht installiertes Add-In dar.

Die wichtigste Prozeduren der Klasse AddIn sind Delete und AddIns.Add

Set

Um eine AddIn -Klassenvariable zu verwenden, muss sie zuerst instanziert werden, beispielsweise

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

Die folgenden Prozeduren können zum Festlegen der AddIn Klassenvariablen verwendet werden : AddIns.Add, AddIns.Item und Application.AddIns

For Each

Hier ist ein Beispiel für die Verarbeitung der AddIn -Elemente in einer Sammlung

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"

Methoden

Die Hauptmethoden der Klasse AddIn sind

Delete - Löscht das angegebene Add-In.

AddIns(1).Delete

AddIns.Add - Gibt ein AddIn -Objekt zurück, das ein Add-in darstellt, das der Liste der verfügbaren Add-Ins hinzugefügt wurde.

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

Eigenschaften

Autoload True, wenn das angegebene Add-In beim Starten von Word automatisch geladen wird.

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

Compiled True, wenn es sich beim angegebenen Add-In um eine Word Add-In-Bibliothek (WLL) handelt.

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

Index Gibt einen Wert vom Typ Long zurück, der die Position eines Elements in einer Auflistung darstellt.

Dim As Variant
AddIns(1).Index

Installed True, wenn das angegebene Add-In installiert (geladen) wurde.

AddIns(1).Installed = True

Name Gibt den Namen eines Add-Ins zurück.

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

Parent Gibt einen Wert vom Typ Object zurück, der das übergeordnete Objekt des angegebenen AddIn-Objekts darstellt.

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

Path Gibt die Position eines installierten Add-Ins zurück.

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

AddIns.Count Gibt die Anzahl von AddIn -Objekten in der AddIns-Auflistung zurück.

Dim lngCount As Long
lngCount = AddIns.Count

AddIns.Parent Gibt ein Object zurück, das das übergeordnete Objekt der Addins-Auflistung repräsentiert.

Dim objParent As Object
Set objParent = AddIns.Parent