Přejít na obsah
Sawoy

Makro Word 2007

Recommended Posts

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.

Sdílet tento příspěvek


Odkaz na příspěvek
Sdílet na ostatní stránky

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č.

Sdílet tento příspěvek


Odkaz na příspěvek
Sdílet na ostatní stránky

Pokud chcete odpovídat, musíte se přihlásit nebo si vytvořit účet.

Pouze registrovaní uživatelé mohou odpovídat

Vytvořit účet

Vytvořte si nový účet. Je to snadné!

Vytvořit nový účet

Přihlásit se

Máte již účet? Zde se přihlašte.

Přihlásit se

  • Kdo si právě prohlíží tuto stránku   0 registrovaných uživatelů

    Žádný registrovaný uživatel si neprohlíží tuto stránku

×