Word istedet for en rapport

You need to automate Word from Access but this isnt something which takes five minues to implement!

VERY simple example.
http://www.mvps.org/access/modules/mdl0043.htm

Another solution is to make an Access report and then send it to word using

docmd.OutputTo ...

you can find examples of automation here
http://search.microsoft.com/search/results.aspx?st=b&na=80&qu=Word+automation&View=en-gb

Den kode du begynder på, er det en du kan fuldføre ?

Mit eksempel er baseret på data, som er i en formular, men du kan også indsætte ting fra en forespørgsel. Dog skal du være opmærksom på at dette eksempel er til at skrive ET brev. Når jeg skal have access til at skrive flere breve for mit, så designer jeg en rapport som et brev og med min forspørgsels felter.

Du skal i din access vb editor lave en reference til word object library. Dernæst laver du et dokument som skal bruges som skabelon.

på en knap i en formular kan du indsætte noget lignende dette;


Private Sub Kommandoknap1_Click()
Dim objword As New Word.Application
Dim WordDoc As New Word.Document
Set WordDoc = objword.Documents.Add("stinavn\dokumentskabelonnavn.doc")
Call InsertAtBookmark(WordDoc, "bogmærke1", Me!feltnavn)
objword.Visible = True
DoCmd.Hourglass False
End Sub

Dette skal også i samme formular, men du behøver kun denne kodestump en gang;

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

Glemte lige... det var mugs, som viste mig dette og at han har en eksempel db som jeg gerne skal hoste men kun hvis han siger god for det.

Hvordan laver jeg en reference til word object library ?

Her er et eks. som tager en given forespørgsel og automatisk brevfletter til tomt dokument eller til en given skabelon:
http://www.makeiteasy.dk/eksempler/Brevfletning.zip

NB: Du skal kontrollere, at Word-referencen er til den rigtige version (Tools->references, nr du står i VBA)

/Thomas

Har lige ændret den, så den ikke behøver reference til Word. Dermed er den uafhængig af office-versioner:
http://www.makeiteasy.dk/eksempler/Brevfletning.zip

Hvis man nu vil have det flettet sammen med bookmarks i et word brev, hvordan skal det så skrives i koden ?

Private Sub cmdBrevflet_Click()
    On Error Resume Next
    If Tom(Me!txtSkabelon) Then
        Brevflet Me!txtDatakilde, , Me!Flet
    Else
        Brevflet Me!txtDatakilde, Me!txtSkabelon, Me!Flet
    End If
End Sub

lukkes