'...
   ActiveDocument.Bookmarks("Bild").Range.Fields(1).Result.Select
   On Error Resume Next
   Selection.InlineShapes.AddPicture FileName:=dat_name, _
   LinkToFile:=True, saveWithDocument:=False
'...

'...
' Word-Objekt Variable definieren
' Daten in das Dokument laden
Dim wApp As Object
 
' Word-Objekt erzeugen
Set wApp = CreateObject("Word.Application.9")
 
With wApp
  '  Word anzeigen
  Application.Visible = True
  Application.Activate
 
  ' Word-Dokument laden und anzeigen
  ' .Documents.Open sWordFilename
'....
'....
 
Application.PrintOut (Background), Range:=wdPrintCurrentPage
 
  ' nach getaner Arbeit, Word wieder beenden
  Application.Quit
 
End With
Set wApp = Nothing
'...