Brev fletning fra Word

Du indsætter bogmærker i dit word-dokument og bruger nedennævnte koder i Access. Så indsættes FELTNAVN1 ved BORMLRKENAVN1 o.s.v. Husk i Access atl ave en reference til Word:

Private Sub Kommandoknap21_Click()
Dim objword As New Word.Application
Dim WordDoc As New Word.Document
On Error GoTo Errorhandler
Set WordDoc = objword.Documents.Add("Sti til Word-dokumentet.doc")
Call InsertAtBookmark(WordDoc, "BOGMÆRKENAVN1", Me!FELTNAVN1)
Call InsertAtBookmark(WordDoc, "BOGMÆRKENAVN2", Me!FELTNAVN2)
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

OK

Jeg vil gerne have at jeg i en boks kan vælge mellem mine forskellige dokumenter.

Boks    Filnavn
Tilbud  Tilbud.doc
Fax    Fax.doc
Ordre  Ordre.doc

VARb er navnet på din combo i formularen:

Private Sub Kommandoknap21_Click()
Dim objword As New Word.Application
Dim WordDoc As New Word.Document
Dim VARa As String
Dim VARb As String
VARa = "STI TIL WORD-DOKUMENTER"
VARb = Me.Combo
Set WordDoc = objword.Documents.Add(VARa & "/" & VARb & ".doc")
Call InsertAtBookmark(WordDoc, "BOGMÆRKENAVN1", Me!FELTNAVN1)
Call InsertAtBookmark(WordDoc, "BOGMÆRKENAVN2", Me!FELTNAVN2)
objword.Visible = True
DoCmd.Hourglass False
End Sub

Hvordan går det her?

Hej Mugs

Undskyld, har haft rigtig tralvt, vil du ligge et svar!

Jeg har fået point - Og tak for det.
Travlhed kommer til os alle ind imellem, men det ville være rart, hvis vi skrev noget i stil med dette:

- Ferie, vender tilbage om en uge.
- Checker dit svar på MAN.

eller noget lignende. Så ved vi, at der ikke kommer kommentarer før. Det anser jeg for fuldt lovligt.