Word öffnen, Grafik einfügen und schließen

[Nici]

Hallo,

kann mir bitte jemand helfen, wie ich Word öffne, Grafik einfüge und schließe

Set wApp = CreateObject("Word.Application.9")
With wApp
.Documents.Open App.Path & "\" & MyWordDoc
.ActiveDocument.Bookmarks("\endofdoc").Select
.Selection.Paste
End With
wApp.Application.Quit
Set wApp = Nothing

Hier erhalte ich die Fehlermeldung APP missing in Line 3.

Danke und Gruß,
Nici