03. november 2011 - 19:56Der er
16 kommentarer og 1 løsning
Brevfletning - filnavn fra exel
Jeg skal lave en brevfletning på ca. 200 breve. med navn og adresse hentet fra excel Jeg vil gerne gemme hvert enkelt brev som pdf og med et specifikt filnavn hentet fra excel.(det vil sige at der skal dannes ca. 200 pdf-filer med hvert sit navn) Er det muligt at lave en makro der kan udføre dette?
Teknologi, AI og forretning er i centrum på Computerworlds Cloud og AI Festival i København d. 18. og 19. september. Se hele programmet for den store konference om strategisk brug af Cloud og AI på: www.cloud-festival.dk
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.
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"
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
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
Ja - det kunne du åbenbart ikke finde ud af - ingen hjælp herfra mere.
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.