Jump to content
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.

Share this post


Link to post
Share on other sites

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.

 

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.


  • Recently Browsing   0 members

    No registered users viewing this page.

×
×
  • Create New...