< 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

Která Ip otevřela sešit

Barth • 23.9. 12:27

Která Ip otevřela sešit

Barth • 23.9. 10:15

Která Ip otevřela sešit

Barth • 23.9. 9:48

Která Ip otevřela sešit

Scraper • 22.9. 12:47

Vyhledat s vícenásobných porovnáním

maxovo • 22.9. 11:29

spustit makro změnou hodnoty v buňce a svyhledat

Stalker • 21.9. 20:36

spustit makro změnou hodnoty v buňce a svyhledat

elninoslov • 21.9. 19:01