Obecná diskuse

Téma: Pojmenování souborů dle čísla v docx či seznamu

Zaslal/a Marekkoc 16.7.2019 12:15

Zdravím všechny, zasílám makro, které vytvoří ve wordu hromadnou korespondenci a uloží do pdf. Mým cílem je to, že každý jednotlivý doc obsahuje jiné číslo a chci aby dle tohoto čísla se jmenoval i výsledný pdf, seznam čísel mám i v xls, ale nechce se mito ručně přejmenovávat, mám cca 600 dopisů. Děkuju za případnou pomoc. Marek

Sub Hrom_kor()

HromKorPDF Makro

Dim I As Long
Dim MaxI As Long
Dim NumOd As Long
Dim NumDo As Long
Dim fn As String
Dim fnPDF As String
Dim DelkaCyklu As Long

DelkaCyklu = InputBox("Počet požadovaných dopisů v jednom wordovém souboru")
MaxI = InputBox("Počet cyklů po " & DelkaCyklu & ":")

For I = 1 To MaxI
NumOd = DelkaCyklu * (I - 1) + 1
NumDo = DelkaCyklu * I
fn = "C:\HromKor\HromKor" & I & ".doc"
fnPDF = "C:\HromKor\HromKor" & I & ".pdf"
With ActiveDocument.MailMerge
.Destination = wdSendToNewDocument
.MailAsAttachment = False
.MailAddressFieldName = ""
.MailSubject = ""
.SuppressBlankLines = True
With .DataSource
.FirstRecord = NumOd
.LastRecord = NumDo
End With
.Execute Pause:=True
End With
ActiveDocument.ExportAsFixedFormat OutputFileName:=fnPDF, _
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
ActiveDocument.Saved = True
ActiveDocument.Close
Next
End Sub

Zaslat odpověď >

Nebyly zaslány žádné odpovědi.

Uživatelské menu

Nejste přihlášen(a)

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.