Problem mit AddIns

26/05/2009 - 10:06 von Lothar Geyer | Report spam
In meiner VB6-Anwendung lade ich in ein Dokument eine Vorlage als AddIn:

myAddIn = App.Path & "\" & "tmWord.dot"
If Not FileExists(myAddIn) Then Exit Sub

found = False
For Each oAI In MSWord.AddIns
If oAI.Name = myAddIn Then
found = True
Exit For
End If
Next oAI

Bisher gab es damit auch keine Probleme. Und offenbar gibt es die auch
nur auf einigen wenigen Rechnern. Und zwar gibt es in der Zeile

If oAI.Name = myAddIn Then

die Meldung "Die Methode 'Name' für das Objekt 'AddIn' ist
fehlgeschlagen". oAI ist lt. Debugger nicht Nothing. Und bei der Abfrage
schlàft IntelliSense auch oAI.Name vor. An was kann das liegen?

Lothar Geyer
 

Lesen sie die antworten

#1 Christian Freßdorf
26/05/2009 - 10:40 | Warnen spam
Hallo Lothar,

teste mal
For Each oAI In MSWord.AddIns


Debug.Print oAI.Installed, oAI.Name
If oAI.Name = myAddIn Then
found = True
Exit For
End If
Next oAI



ob da was auffàllig ist.

Gruß Christian
~~~~~~~~~~~~
Antworten / Rückmeldungen nur in die NG!
Co-Autor von »Microsoft Word-Programmierung.
Das Handbuch« (MS Press)

Ähnliche fragen