Code: Select all
Function AddinToggle(strAddinFullname As String)
Dim addinLoop As AddIn
For Each addinLoop In AddIns
Debug.Print addinLoop.Name
If addinLoop.Name = UW.strGetNameExtent(strAddinFullname) Then
AddIns(strAddinFullname).Installed = False
AddIns(strAddinFullname).Delete
Exit Function
Else
End If
Next addinLoop
AddIns.Add FileName:=strAddinFullname, Install:=True
'Sub TESTAddinToggle()
' Call AddinToggle("T:\Greaves\Products\USER\Billt\Billt084.dot")
'End Sub
End Function
I have fourteen user applications in my Word2003\StartUp folder, and 11 toolbar menus on my screen. Some of these applications I use several times per day. Others ("BillT", "Proje") are used once a week or less.
I am looking at reducing the time to load MSWord and starting useful work, amongst other things,
Related threads:-
Order in which global addins are loaded
Opening AddIns (Word 2003)
Identifying un-installed AddIns (Word/VBA 2003) (Solved?)
Cheers
Chris