Insert OLE object fra kode

Microsoft har en database eksamplar som viser tree forskellige måder af behandling af images jeg kan ikke huske linket med skriv din email så kan jeg sende til dig, koden er alt for lang.

On Error GoTo err_open
Dim docname As String
Dim objword As Word.Application
Dim objdoc As Word.Document
Const dir As String = "C:\opskrifter\"
Const ext As String = ".doc"
docname = dir & Me.Nr & ext
On Error Resume Next
Set objword = GetObject(, "Word.Application")
Err.Clear


On Error GoTo err_open
If objword Is Nothing Then
Set objword = GetObject("", "Word.Application")
End If
objword.Visible = True
AppActivate "Microsoft Word"
objword.Documents.Open docname
Exit Sub
err_open:
MsgBox "fejlkode: " & Err.Number

Det kniber lidt med at ramme de rigtige taster, men det er jo også tidligt.I stedet for at gemme dokumentet i databasen, vil jeg ladet det blive som f.eks et Word-dokument, og åbne det fra Access. Nedenstående kode er et eksempel på, at jeg har data i Access og kan søge efter forskellige poster. Vil jeg se det tilhørende dokument, åbner jeg blot Word i det dokument der hører til dataposten. Der skal selvfølgelig være et unikt felt i Access, der matcher dokumentnavnet. I eksemplet er det formularens felt Nr.:

On Error GoTo err_open
Dim docname As String
Dim objword As Word.Application
Dim objdoc As Word.Document
Const dir As String = "C:\opskrifter\"
Const ext As String = ".doc"
docname = dir & Me.Nr & ext
On Error Resume Next
Set objword = GetObject(, "Word.Application")
Err.Clear
On Error GoTo err_open
If objword Is Nothing Then
Set objword = GetObject("", "Word.Application")
End If
objword.Visible = True
AppActivate "Microsoft Word"
objword.Documents.Open docname
Exit Sub
err_open:
MsgBox "fejlkode: " & Err.Number

Undskyld, jeg har været væk nogen dage.
mugs kode kan jeg ikke få til at virke.
Den går i fejl ved
Dim objword As Word.Application
Dim objdoc As Word.Document

Til hossein
min mail er : hjb@bergmann-consult.dk
jeg har prøvet at finde noget på microsoft.

hjbe > Hvilken fejlmelding får du? Hvis den hedder noget lignende "Objektet findes ikke i dette bibliotek", skyldes det manglende reference til Word. Du retter det ved, at åbne dit kodemodul:

Funktioner > Referencer > kør ned igennem listen til du finder biblioteket der hedder "Word bla bla", og sørg for, at det er afkrydset i checkboxen. Hvis du møder nogle biblioteker hvorunder der ståer "mangler", krydser du dem blot af.

Jeg kan sende dig en testdb i access97, blæot læg din e-mail. Den fungerer også i XP.

Så kører det.
Jeg brugte lidt fra beggee to.
Takker for hjælpen