Hallo zusammen!
Folgendes Makro installiert mir in Word ein AddIn in Form einer dotm:
---------------------------------------------------------------------------------------------------
filNamStr = ActiveWorkbook.Path & "\" & Installer.Range("AddInFileName").Value & ".dotm"
Dim wrdAddInObj As Object
Dim wrdApp As Object
Set wrdApp = CreateObject("Word.Application")
Set wrdAddInObj = wrdApp.AddIns.Add(Filename:=filNamStr, Install:=True)
wrdApp.Visible = True
For Each AddInObj In wrdApp.AddIns
If Left(AddInObj.Name, 3) = "DHW" Then
AddInObj.Installed = True
MsgBox AddInObj.Installed
End If
Next
Funktioniert auch alles super, nur wenn ich Word dann zumache, ist das Ding inaktiv!
Es soll aber aktiviert bleiben! Was kann ich da tun?
Vielen Dank mal
|