Brevflet med makro

Du skriver, at du sagtens kan starte Word, hvad er dit problem så?  Er det stien til det Word-dokument du vil flette med?

Sådan kan du åbne Word fra en kommandoknap i Access i dit flettedokument:

Private Sub Kommandoknap2_Click()
Dim WordObj As Word.Application
Dim WordDoc As Word.Document
Dim docname As String
'Sti til Word dokumentet
Const dir As String = "D:\VBA\XP\Brevflet\"
Const ext As String = ".doc"
'Test er navnet på Word dokumentet
docname = dir & "Test" & ext
On Error Resume Next
Set WordObj = GetObject(, "Word.Application")
Err.Clear
On Error GoTo err_open
If WordObj Is Nothing Then
Set WordObj = GetObject("", "Word.Application")
End If
WordObj.Visible = True
AppActivate "Microsoft Word"
WordObj.Documents.Open docname
Exit Sub
err_open:
MsgBox "fejlkode: " & Err.Number
End Sub

Husk at lave en reference til Word. Ret stien til dit aktuelle dokument i denne linie:

Const dir As String = "D:\VBA\XP\Brevflet\"

Nu nævner jeg, at du skal rette stien til dit Word-dokument. Det gælder naturligvis også navnet på dokumentet i denne linie:

docname = dir & "Test" & ext

Hej Mugs!
Når jeg bruger opsætningen stopper den ved - WordObj As Word.Application.
Finder der ikke en næmmere måde?

Har du husket at lave en reference til Word.
Åbn en formular i designvisning og derefter åbner du et kodevindue. I Menuen Funktioner > Referencer (Tools > References) browser du gennem bibliotekerne og finder dit Word-bibliotek. sørg for, at der er et checkmærke i den lille box i venstre side.

jeg kan sende en testdb, hvor ovennævnte kommando fungerer. Blot læg din e-mail.

Hej mugs
Hermed min e-mail: henning.hedegaard@mail.tele.dk

Jeg har ikke Access på denne PC. Sender så snart jeg er hjemme fra arbejde.