'If ActiveDocument.Bookmarks.Exists("UnterschriftBLAS") = True Then
        'Selection.GoTo(What:=wdGoToBookmark, Name:="UnterschriftBLAS")
        'Selection.InlineShapes.AddPicture(FileName:="C:\blas.jpg")
        'End If

        'Unterschrift einfügen
        If doc.Bookmarks.Exists("Unterschr1Name") Then
            doc.Bookmarks.AddPicture(FileName:="C:\Test" & _
              "VB\KH-Desktop\Unterschriften\blas.jpg")
        End If

________
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

    Public Sub Test()
 
        Dim appWord As Object
        Dim docTest As Object
 
        Dim Datum As String = Format$(Date.Today, "dd.MM.yyyy")
        Dim Zeit As String = TimeOfDay.ToString("hh:mm:ss") 'AM/PM
        Dim Datum2 As String = Format$(Date.Today, "yyyy.MM.dd")
        Dim Zeit2 As String = TimeOfDay.ToString("hh-mm-ss") 'AM/PM
 
        appWord = CreateObject("Word.Application")
        docTest = appWord.Documents.Add("C:\Test VB\KH-Desktop\Vorlagen\Angebot" & _
          "KH.dot")
 
        appWord.Visible = True
        docTest.Activate()
        'Zoom festlegen (100 %)
        docTest.ActiveWindow.ActivePane.View.Zoom.Percentage = 100
 
        If docTest.Bookmarks.Exists("Unterschrift") = True Then
            'doc.GoTo(What:=doc.Bookmarks("Unterschrift"), Name:="Unterschrift")
            'doc.GoTo(What:=doc.Bookmarks, Name:="Unterschrift")
            'docTest.GoTo(What:=docTest.wdGoToBookmark, Name:="Unterschrift")
            docTest.Selection.GoTo(What:=docTest.WdGoToItem.wdGoToBookmark, _
              Name:="Unterschrift")
            'appWord.Selection.GoTo(What:=appWord.wdGoToBookmark, 
            ' Name:="Unterschrift")
            appWord.InlineShapes.AddPicture(appWord.Bookmarks("Unterschrift"), _
              FileName:="C:\Test VB\KH-Desktop\Unterschriften\blas.jpg")
        End If
 
        'Verbindungen beenden
        docTest = Nothing
        appWord = Nothing
 
        'UF_Notiz schließen
        Me.Close()
    End Sub

        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