Makro Word 2007

[Sawoy]

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.

[Fruktis]

Ahoj..makra do wordu teda nedělám...

Ale nešel by ten kopírovaný řetězec uložit pod proměnou a tu pak docpat do jména?

[Sawoy]

To by asi šlo ale to je z bláta do louže -  když budu umět do názvu nacpat proměnnou, nacpu tam i obsah schránky.

Nevím jak cokoliv nacpat do názvu.

 

[AnotherOne]

Aktívny dokument premenuješ len tak, že ho uložíš pod novým názvom. Príklady makier na premenovanie aktívneho dokumentu:

https://superuser.com/questions/518154/is-it-possible-to-rename-an-open-word-document-without-closing-it

https://stackoverflow.com/questions/37127870/vba-solution-for-quick-rename-of-active-office-document-file-word-excel-power

Pre tvoju potrebu vyskladaj nový názov dokumentu z pôvodného a z obsahu schránky, uložho od novým názvom a potom vytlač.