Smalltalk

ich würd einfach mal probieren die beiden Zeilen:

Set wordapp = CreateObject("word.Application")
wordapp.Visible = True

auszukommentieren. Ich vermute mal dass es daran liegt. Wenn Du ausserdem danach noch einmal winword.exe aufrufst, dann öffnet sich ja immer nochmal word.
Kommt jetzt drauf an von wo aus Du das aufrufst...

Wenns aus Word kommt, dann nicht mit shell arbeiten...
aus word reicht ein Documents.Open.
Aus Excel z.b. macht es aber sinn mit shell zu arbeiten.

Sub Makro2()
' Beispiel Datei öffnen
filetoopen = "Filepfad&Filename.doc"
Documents.Open FileName:=filetoopen, ConfirmConversions _
:=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto
End Sub