Fehler in Application.Run?
26.01.2005 18:22:39
xtough
ich habe folgendes Problem: Über ein Macro sollen in einem Word Dokument Änderungen herbeigeführt werden. Mein Macro sieht so aus:
Sub Erstellen()
Dim appWord As Object
Dim sFile As String
sFile = Range("F3").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Vorlage_cmd wurde nicht gefunden!"
Else
Set appWord = CreateObject("Word.Application")
appWord.Documents.Open sFile
Application.Run "Bearbeitung"
appWord.Quit
Set appWord = Nothing
End If
End Sub
mit:
Sub Bearbeitung()
Range("G62").Copy
appWord.Run "Project.Header." & Range("C95").Value
End Sub
Damit soll ein Macro in dem Word Dokument aufgerufen werden (Einfaches Einfügen von Range("G62")).
Sub Tausch()
Selection.MoveLeft Unit:=wdWord, Count:=9, Extend:=wdExtend
Selection.PasteExcelTable False, False, True
End Sub
Es erscheint allerdings die Fehlermeldung "Laufzeitfehler 424: Objekt erforderlich" an Zeile drei (appWord...) im Macro Bearbeitung.
Was ich allerdings nicht verstehe: Wenn ich den Inhalt von "Bearbeitung" an die entsprechende Stelle in "Erstellen" direkt einfüge, läuft es einwandfrei. Ich brauche es aber mit dem Macroaufruf.
Wer weiß Rat?