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
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.
