Brevfletning - filnavn fra exel

Det skulle nok være muligt - men ikke nødvendigvis via brevfletning.

Er det kun navn og adresse, der skal indsættes?

Der skal også indsættes et kundenummer.

Det er ikke vigtigt for mig at det sker via brevfletning, men det er vigtigt at brevene ligger i enkeltfiler, da jeg har en makro i excel der sender en mail via outlook og vedhæfter ovennævnte fil.

/sha

Hvis du sender en mail - så returnerer jeg en model.

@-adresse under min profil.

Her er VBA-koden:

Dim sti
Dim wDoc
Dim antalRæk As Long, ræk As Long, nytFilNavn As String
Public Sub opbygBrev()
    sti = ActiveWorkbook.Path
    If Right(sti, 1) <> "\" Then
        sti = sti & "\"
    End If
       
    antalRæk = ActiveCell.SpecialCells(xlLastCell).Row
    For ræk = 2 To antalRæk
        Set wDoc = CreateObject("Word.Application")
        wDoc.Visible = False
        wDoc.documents.Open sti & "brev.docx"
   
        indsætBogmærke "navn", Range("B" & ræk)
        indsætBogmærke "adresse", Range("C" & ræk)
        indsætBogmærke "PostnrBy", Range("D" & ræk) & " " & Range("E" & ræk)
        indsætBogmærke "kundenr", Range("A" & ræk)
       
        nytFilNavn = Range("F" & ræk)
        wDoc.ActiveDocument.SaveAs sti & "work" & "docx"
       
        gemSomPdf nytFilNavn
       
        wDoc.ActiveDocument.Close
        wDoc.Application.Quit
        Set wDoc = Nothing
    Next ræk
   
    MsgBox "Opbygning af breve udført"
End Sub
Private Sub indsætBogmærke(bm, tekst)
    With wDoc.Application.ActiveDocument
        .Bookmarks(bm).Select
        wDoc.Selection.TypeText Text:=CStr(tekst)
    End With
End Sub
Private Sub gemSomPdf(filNavn)
    wDoc.ActiveDocument.ExportAsFixedFormat OutputFileName:= _
        sti & filNavn & ".pdf", ExportFormat:= _
        wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
        wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
        Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
        CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
        BitmapMissingFonts:=True, UseISO19005_1:=False

End Sub

Det ser rigtig godt ud. Jeg får dog en fejl ved afviklingen i nedenstående rutine. Det er ved " With wDoc.Application.ActiveDocument "

afviklingen stopper. Har du et bud på hvad det skyldes


Private Sub indsætBogmærke(bm, tekst)
    With wDoc.Application.ActiveDocument
        .Bookmarks(bm).Select
        wDoc.Selection.TypeText Text:=CStr(tekst)
    End With
End Sub

venlig hilsen
/sha

Prøv at set referencen til Word  i Excel / VBA (Alt+F11 / Tools / References

eller som nævnt send en mail så får du alle filer..

Super. Det virker fint. Tak for svaret

venlig hilsen
Sha

Fint og selv tak..

Der er så blot det lille tekniske problem, at du selv tager point - var det meningen?

Svar udbedes venligst..

Venter stadig....

??? ??? ???

1 år siden ..

Mangler stadig svar..

Det er jeg meget ked af. Hvordan får du nu dine point??

Ved at du oprette et nyt spørgsmål med teksten: Point til supertekst og henviser til dette spørgsmål

Ja - det kunne du åbenbart ikke finde ud af - ingen hjælp herfra mere.