Brevfeltte til word med faste felter

Er der kun  tale om en enkelt kunde?

Sådan indsætter du data fra Access til et Word-dokument. Du skal på forhånd have indsat bogmærker i word, hvor data skal indsættes. Bogmærket skal hedde det samme som i procedüren nedenfor. Husk at lave en reference til Word:

Private Sub Kommandoknap21_Click()
Dim objword As New Word.Application
Dim WordDoc As New Word.Document
Set WordDoc = objword.Documents.Add("D:\Opskrifter\Opskrift.doc")
Call InsertAtBookmark(WordDoc, "kundenavn", Me!kundenavn)
Call InsertAtBookmark(WordDoc, "adresse", Me!adresse)
objword.Visible = True
DoCmd.Hourglass False
End Sub
Function InsertAtBookmark(objWordDoc As Word.Document, strBookmark As String, strText As String) As Boolean
With objWordDoc.Bookmarks
If .Exists(strBookmark) Then
.Item(strBookmark).Range.Text = strText
InsertAtBookmark = True
End If
End With
End Function

.

kan man udskifte "Set WordDoc = objword.Documents.Add("D:\Opskrifter\Opskrift.doc")" med et opslag i en tabel så man kan vælge flere std. breve ??

5 min

minutterne er lange i aften, Troede jeg havde den liggende, men det var bare løgn:

Private Sub Kommandoknap2_Click()
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"
docname = dir & Me.Kombinationsboks0 & 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 & Err.Description
End Sub

Jeg forestiller mig, at du har en formular med en kombinationsboks, der slår op i en tabel med alle brevenes navne. Koden åbner så det brev du vælger i denne kombinationsboks.

det ser godt ud tak