Com-AddIn reagiert nicht beim zweiten Aufruf von Word

13/01/2010 - 14:29 von Orazio Di Marco | Report spam
Hi,

folgendes Problem.

Ich hab ein Com-AddIn für Word 2003 entwickelt.

Meine OnConnction Methode sieht so aus:

code
Public objWord As Object

Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal
ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As
Object, custom() As Variant)

On Error GoTo Fehler

Dim sa_hideKeys() As String
Dim i As Integer

If objWord Is Nothing Then Set objWord = Application

logFile = App.Path & "\" & "word.log"
writeFile logFile, "OnConnection WORD", False

CreateCommandBarButtons()
Exit Sub

Fehler:
writeFile logFile, Err.Number & " " & Err.Description, False

End Sub
code

Die Disconnection Methode sieht so aus:

code
Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As
AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)

'Buttons bzw. Symbolleisten Objekt leeren
Set tButton = Nothing
Set nCmdBarPopup = Nothing
Set nCommandBar = Nothing
Set objWord = Nothing

End Sub
code

Wenn ich nun Word zum ersten mal Starte (Egal ob direkt auf die EXE oder per
Dokument auf den Desktop) geht das Addin einwandfrei.
Lass ich nun dieses Wordinstanz offen, und starte Word ein zweites mal, hat
da Addin keine reaktion mehr.
Es springt noch nicht einmal in die OnConnection Methode. Nichts. Ob es
nicht da wàre.
Lustig dabei. Das Addin stürtz nicht ab, sondern làuft in der ersten Instanz
immer noch munter weiter.
Völlig unverstàndlich.

Ich hoff mir kann da jemand helfen.

gruß
 

Lesen sie die antworten

#1 C. Sekulla
13/01/2010 - 14:48 | Warnen spam
Hi Orazio,

spàtestens hier wir es inkorrekt:
If objWord Is Nothing Then Set objWord = Application


"Application" ist nicht eindeutig referenziert. Mit

Set objWord = Word.Application

sollte es gehen.
Auch alle anderen Word-Verweise sollten mit Word. anfange

cu CS

p.s.
writeFile logFile, "OnConnection WORD", False


Was ist "writeFile", eine Sub von dir?

Ähnliche fragen