Kan man åbne et word-dokument fra Access

Ret stien til. I denne linie "docname = dir & Me.Nr & ext" refererer Me.Nr til et nøglefelt i en formular og er samtisig navnet på word-dokumentet


On Error GoTo err_open
Dim docname As String
Dim objword As Word.Application
Dim objdoc As Word.Document
Const dir As String = "D:\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

Jeg er ikke sikker på at jeg er helt med, men dokumentet hedder "brev vr.doc" og ligger i samme directory som basen - Hvordan skal koden så se ud?

On Error GoTo err_open
Dim docname As String
Dim objword As Word.Application
Dim objdoc As Word.Document
Const dir As String = "D:\VBA\XP\Opskrifter\"
Const ext As String = ".doc"
Const navn As String = "brev vr"
docname = dir & navn & 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
err_open:
MsgBox "fejlkode: " & Err.Number

Husk du skal have en reference til Word.

Jeg har indsat følgende kode:

    On Error GoTo err_open
Dim docname As String
Dim objword As Word.Application
Dim objdoc As Word.Document
Const dir As String = "X:\xxxxx\xxxxxxx"
Const ext As String = ".rtf"
Const navn As String = "Brev vr"
docname = dir & navn & 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
err_open:
MsgBox "fejlkode: " & Err.Number

Men når jeg aktiverer knappen får jeg følgende fejlmeddelelse:

"Der opstod en kompileringsfejl: Den brugerdefinerede type er ikke defineret.

- og den 3. linje "Dim objword As Word.Application" er markeret.

Kan det løses?

Se min kommentar 3177 kl 15:46:39. Jeg tror det er her, fejlen ligger:

Du har ikke oprettet en reference til Word.

Access kan ikke "se" word, med mindre du har oprettet denne reference. Åbn et kodemodul og i menuen Funktioner > Referencer (Tools > References), browser du ned igennem de forskellige referencer til du møder Microsoft Word 10,00 eller noget i den stil. Navnet kan variere lidt efter versionerne, men blot der står Microsoft Word. Sørg for, at der er et checkmærke o boksen i venstre side af vinduet.

Jg ser nu, at du prøver at åbne et rtf dokument. Koden gælder for Word, som angivet i spørgsmålet:

Const ext As String = ".rtf"