Flette access data med Word

Hi fastwriter>This link may be of help!
http://support.microsoft.com/default.aspx?scid=kb;EN-US;q159328

Private Sub Kommandoknap21_Click()
Dim objword As New Word.Application
Dim WordDoc As New Word.Document
Flg koder henter et bestemt Word-dokument, og indsætter data i dokumentet ved bogmærker.

Set WordDoc = objword.Documents.Add("D:\VBA_ funktioner\VBA\Opskrifter\Opskrift.doc")
Call InsertAtBookmark(WordDoc, "Opskrift", Me!Opskrift)
objword.Visible = True
DoCmd.Hourglass False
End Sub

'Ny funktion:


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

Læg din e-mail hvis du vil have et eksempel.

Så gik det alligevel lidt op i kage ved kopiering. Detr skal se sådan ud:



Flg koder henter et bestemt Word-dokument, og indsætter data i dokumentet ved bogmærker.

Private Sub Kommandoknap21_Click()
Dim objword As New Word.Application
Dim WordDoc As New Word.Document
Set WordDoc = objword.Documents.Add("D:\VBA_ funktioner\VBA\Opskrifter\Opskrift.doc")
Call InsertAtBookmark(WordDoc, "Opskrift", Me!Opskrift)
objword.Visible = True
DoCmd.Hourglass False
End Sub

'Ny funktion:


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

Læg din e-mail hvis du vil have et eksempel.

mugs - bare send til ftp.tsmedia.dk" target="_blank">ftp://eksperten:eksperten@ftp.tsmedia.dk

Jeg takker for forslagene, og også til dig Terry. Jeg tjekker det lige igennem.

fastwrite > Sendt. Jeg ser, at jeg glemte at slette nogle zip-filer først, men det må du tage som en oplevelse.

Inden du afprøver dataudvekslingen med Word, skal du oprette en opskrift først. Læs iøvrigt Read Me.doc, idet Word-filen skal lagres et bestemt sted, eller du skal ændre i programmeringen i Access.

thanks fastwriter :o) og god weekend!