Dim myWordApp As New Word.Application
 
        myWordApp.Documents.Open("F:\Test\test.doc")
        'myWordApp.Visible = True
 
        If myWordApp.ActiveDocument.Bookmarks.Exists("TM1") Then
            myWordApp.Selection.GoTo(What:=Word.WdGoToItem.wdGoToBookmark, _
              Name:="TM1")
            myWordApp.Selection.InlineShapes.AddPicture( _
            FileName:="F:\Test\einbild.jpg")
        End If
 
        myWordApp.ActiveDocument.Close()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist