Bilder(.jpg)vom Formular in ein Word Dokument einfügne

[Schakal]

Ich möchte aus einem Formular und Unterformulare einen Bericht Bzw. Word Dokument erstellen.
Meine Formular und Unterformulare haben Datensätze und Bilder.
Mein Word Dokument erstelle ich mit einem VBA Code und die dazugehörigen ,,Textmarken".
Es funktioniert alles soweit gut, Text einfügen in das Word Dokument mittels den Textmarken.  Dies ist kein Problem.
Problem ist folgendes.!
Ich habe Bilder in meinem Formular Bzw. Unterformular und zwar werden diese auch über eine VBA Code eingefügt. Das Funktioniert auch sehr gut. Ich habe im Formular ein ,,BILD" Feld erstellt das ich wie folgt in den Eigenschaften konfiguriert habe:
Name: CVBild
Bild: ,,Pfad wo die Bilder liegen" C:\...\...
Bildtyp: Verknüpft
Größenanpassung: Zoomen
Das ganze wird per VBA Code auch richtig im Formular ausgegeben. Also der VBA Code dahinter für das einfügen der Bilder funktioniert korrekt.
Das Bild das eingefügt wird ist eine .jpg Datei

Ich möchte aber dieses Bild ,,CVBild" in mein Word Dokument einfügen. Dafür habe ich im WordDokument Bzw. WordVorlage eine Textmarke[Foto] erstellt.
Habe hierzu ein VBA Code der mir ein Word Dokument öffnet, die Textmarken die ich vorher im Dokument definiert habe alle korrekt mit dem Text befüllt aber nicht mein Bild einfügt.
Vielleicht habe ich einen Fehler oder habe etwas übersehen oder wer weiß......
Kann mir da jemand vielleicht einen Tipp geben.
Hier der Code für mein ,,Send to Word"

Private Sub MergeButton_Click()
On Error GoTo MergeButton_Err

    Dim objWord As Word.Application
   
    'Das Bild im Formular kopieren
 
    DoCmd.GoToControl "CVBild"       `Hier passiert gar nichts?
    DoCmd.RunCommand acCmdCopy      `Hier passiert gar nichts?
   
    'Word Starten
    Set objWord = CreateObject("Word.Application")
   
        With objWord
            'Word sichtbar
            .Visible = True
            'Dokument Öffnen
            .Documents.Open ("C:\......\.......\ wordvorlage.dot")
            .ActiveDocument.ShowSpellingErrors = True
           



            'Bild Einfügen
            '.ActiveDocument.Bookmarks("CVBild").Select    `EinVersuch das Bild zu Pasten??
            '.Selection.Paste     `Ein Versuch das Bild zu Pasten?? Funktioniert NICHT!!!

            'Bookmarks mit Text aus dem Formular füllen
           
            .ActiveDocument.Bookmarks("DAT").Select
            .Selection.Text = (CStr(Forms!FormularABC!DatenABC!Datum))
            .ActiveDocument.Bookmarks("STAT").Select
            .Selection.Text = (CStr(Forms!FormularABC!DatenABC!CV_STAT))
            .ActiveDocument.Bookmarks("BESTAT").Select
            .Selection.Text = (CStr(Forms!FormularABC!DatenABC!CV_BESTAT))
            .ActiveDocument.Bookmarks("TAAT").Select
            .Selection.Text = (CStr(Forms!FormularABC!DatenABC!CV_TAAT))
           

        End With
       
MergeButton_Err:

' Wenn ein Bookmark nicht belegt wird entferne den Bookmark Text
     If Err.Number = 94 Then
        objWord.Selection.Text = ""
        'Resume Next

    'Wenn kein Bild Vorhanden ist.
    ElseIf Err.Number = 2046 Then
        'MsgBox "Um Fortzufahren muß ein Bild vorhanden sein ."
    Else
        MsgBox Err.Number & vbCr & Err.Description
    End If
           
End Sub

Alles funktioniert soweit gut aber das Einfügen des Bildes nicht.


[Anhang gelöscht durch Administrator]

[DF6GL]

Vergnüg Dich mal dadran:




If Dok.Bookmarks.Exists("bild") Then
   Dok.Bookmarks("bild").select
   
'Bei Picture und Pfad-----------


   Dok.ActiveWindow.Selection.InlineShapes.AddPicture FileName:= _
        Me!JGSForm.Form.Image1.Picture, LinkToFile:=False, _
        SaveWithDocument:=True
 
   
   
' bei OLE embetted--------------
   'If IsNull(Me!bild) Then
   'wobj.Selection.ShapeRange.Delete
   'Else
   'Me!bild.SetFocus:  RunCommand acCmdCopy : wobj.Selection.Paste
   'End If
End If

[Schakal]

Hallo Franz,
vielen Dank für Deinen Beitrag.
Ich habe nun das Problem anders gelöst.
undzwar mit folgenden Zusatz

Ich  habe diese Zwei Code Zeilen .......
.ActiveDocument.Bookmarks("CVBild").Select   
.Selection.Paste
mit dieser Zeile ersetzt und schon funktioniert es

.ActiveDocument.Bookmarks("Foto").Range.InlineShapes.AddPicture (CStr(Forms!FormularABC!DatenABC!CVBild.Picture))
Danke nochmal