Brevflet med word
Hej eksperterNedenstående kode er sammensat af forskelige stumper jeg har fundet rundt omkring, noget har selv regnet ud. Koden virker sådan set perfekt, men er det ikke meningen ud fra koden at hele brevfletningen køres i et hug, når jeg klikker på min knap i min form??. Som det er nu skrives der en txt fil med oplysninger fra min forspørgsel, word starter, og jeg skal så indsætte mine fletfelter manuelt.
Spørgsmålet er om man kan få sat sine feltfelter ind automatisk jvf. nedenstående kode
mvh Anders.
'Denne rutine eksporterer en flettefil med relevante data til harddisken
'og brevfletter derefter med denne fil i Word vha. automation
'
Public Sub BrevFlet()
On Error GoTo Brevflet_Error
Const FletteFilNavn As String = "C:\FLETTEFIL.TXT"
Dim wdTarget As New Word.Application
'Opret et nyt dokument
wdTarget.Documents.Add
'Vis Word
wdTarget.Visible = True
'Eksportér fil i et format som Word kan læse
DoCmd.TransferText acExportMerge, , "fsBrevFlet", FletteFilNavn, True
'Start brevfletningsrutinerne i Word
wdTarget.ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
wdTarget.ActiveDocument.MailMerge.OpenDataSource Name:=FletteFilNavn, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="", SQLStatement1:=""
'Maksimér Word
wdTarget.Application.WindowState = wdWindowStateMaximize
Set wdTarget = Nothing
Exit Sub
Brevflet_Error:
If Err = 3170 Then
MsgBox "Du har ikke det nødvendige filter for at eksportere i Word fletteformat." + vbLf + "Installér dette og prøv igen.", vbOKOnly + vbInformation, "Problem"
Else
MsgBox "Det er ikke muligt at starte brevfletningen." + vbLf + "For at brevfletningen skal virke," + vbLf + "kræver det at du har installeret Word 2000", vbOKOnly + vbInformation, "Kan ikke brevflette"
End If
Exit Sub
End Sub
