Anzeige
Archiv - Navigation
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
680to684
680to684
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bei Aufruf von Word über Excel Fehler?

Bei Aufruf von Word über Excel Fehler?
12.10.2005 11:49:07
Word
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bei Aufruf von Word über Excel Fehler?
12.10.2005 11:55:44
Word
Ich habe glaube ich, das Problem gefunden. Wenn ich vor set objword, die Excel-Anwendung mit Application.wait erst mal 5 Sekunden warten lasse bis Word geöffnet ist, klappt das. Gibt es auch eine Möglichkeit abzufragen, ob sich Word schon geöffnet hat?
MfG
Holger Wächter
AW: Bei Aufruf von Word über Excel Fehler?
12.10.2005 12:26:22
Word
So:

Sub test()
Dim objword As Object
On Error GoTo Error1
Zurueck:
Set objword = GetObject(, "Word.Application")
objword.Visible = True
objword.Activate
Exit Sub
Error1:
Shell "C:\Programme\Microsoft Office\Office10\Winword.exe"
GoTo Zurueck
End Sub

GRuß
Dominic
Anzeige
AW: Bei Aufruf von Word über Excel Fehler?
12.10.2005 12:29:47
Word
Alles klar,
Du hast mir heute super geholfen.
MfG
Holger

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige