< návrat zpět

Obecná diskuse


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

Zaslal/a 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)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

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

Aktivní diskuse

Kumulace listů do jednoho listu

veny • 27.9. 11:23

skenovani a vyhledavani a oznaceni v tabulce

elninoslov • 24.9. 23:11

Kumulace listů do jednoho listu

MonikaV • 24.9. 17:18

skenovani a vyhledavani a oznaceni v tabulce

djph • 24.9. 13:44

Sečíst sloupec od 4 řádku

madar5 • 23.9. 8:32

Ověření dat

lubo • 22.9. 11:25

Ověření dat

Baja • 21.9. 22:33