Hi Hans
Kopiere das VBA in DieseArbeitsmappe und ändere den Pfad und den Dateiname anPrivate
Sub
Private Sub Workbook_Open()
ActiveSheet.OLEObjects.Add(Filename:= _
"C:\Eigene Dateien\Ablagen\xxx.DOC", _
Link:=False, DisplayAsIcon:=False).Select
End Sub