Ahoj,
jako totální laik jsem poslepoval následující makro, které v dokumentu najde příslušné mergefield pole, zkopíruje text do clipboardu, soubor pošle na tiskárnu (PdfCreator) a posune se na další záznam.
Sub Makro1()
'
' Makro1 Makro
'
'
Selection.GoTo What:=wdGoToBookmark, Name:="Školený"
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
Selection.Copy
ActivePrinter = "PDFCreator2"
Application.PrintOut FileName:=""
ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
End Sub
Nemůžu přijít na úpravu, která by k názvu souboru připojila textový řetězec z clipboardu.
Pomůže prosím někdo? Děkuji.