Hallo zusammen,
folgender Code verursacht einen Fehler:
Position = "Testword"
StrPfad = "c:\xyz.doc"
Set MyShell = CreateObject("WScript.Shell")
strDateiName = Chr(34) & StrPfad & Chr(34)
On Error GoTo Fehler
MyShell.Run strDateiName
Set MyShell = Nothing
Cancel = True
Set objword = GetObject(, "Word.Application")
With objword.Selection.Find
.Text = Position
End With
Word wird zwar aufgerufen, aber Excel meldet dann den Fehler in der Zeile mit Set objword: Objekterstellung durch ActiveX-Komponente nicht möglich.
Dieser Fehler kommt aber nur wenn vorher noch nicht Word offen war.
Was kann ich tuen?
MfG
Holger Wächter