brevfletning med word

Denne fungerer i 2003, så hvorfor ikke i 2007 også. Den indsætter data fra din formluar (Me!Opskrift er feltet(, i de bogmærker der er defineret i Word. F.eks. indsættes data fra Me!Opskrift ved bogmærket "Opskrift. Husk en reference til Word i Access:


Dim objword As New Word.Application
Dim WordDoc As New Word.Document
On Error GoTo Errorhandler
Set WordDoc = objword.Documents.Add("H:\Opskrifter\Opskrift.doc")
Call InsertAtBookmark(WordDoc, "Opskrift", Me!Opskrift)
Call InsertAtBookmark(WordDoc, "Nr", Me!Nr)
Call InsertAtBookmark(WordDoc, "Krydderi", Me!Krydderi)
Call InsertAtBookmark(WordDoc, "Dato", Me!Dato)
Call InsertAtBookmark(WordDoc, "MType", Me!MType)
Call InsertAtBookmark(WordDoc, "Personer", Me!Personer)
objword.Visible = True
DoCmd.Hourglass False
Errorhandler:
If Err.Number = 94 Then
MsgBox "Du sdkal udfylde alle felter, da Access ikke kan overføre tomme strenge", vbInformation, "Brugerfejl"
Exit Sub
End If
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

Hej.

Nu spørger jeg rigtig dumt... Hvordan indsætter jeg denne kode i access?

I en kommandoknap i Click event f.eks.

Tak for point.