Ahoj,

omlouvám se že jsem tak dlouho nereagoval. Služební cesta.
Teď jsem to vyzkoušel a funguje to úplně perfektně.
Díky moc.

Ne, složka "klienti" je na "c:\KLIENTI\" stejně jako "c:\SMLOUVY\" . Obě složky jsou "vedle sebe" v kořenovém adresáři. Proto jsem tam taky zkusil dát pevnou cestu, ale nešlo to.

Tak u tohoto makra mi to hází 76 : Path not found
a ukazuje na řádek MkDir (ThisWorkbook.Path & "\klienti\" & jmeno)

Zkusil jsem i nastavit pevnou cestu c:\klienti\ ale taky to nefunguje. Mám tam něco jinak nastavit?

Díky moc. Tak jsem přidal novou tiskárnu a jdu vyzkoušet to nový makro. Co se týká toho PDF, tak chci ukládat ty dokumenty z Wordu. Když kliknu na to tlačítko vpravo dole, tak aby se všechny dokumenty uložily do nově vytvořené složky. Tzn. vyplním tabulku na jméno "NOVÁK Jan" (příjmení a j...

Jo, tak teď to funguje. Díky. Já mezitím sestavil tohle makro, které taky funguje, ale řekl bych, že to tvoje je daleko lepší. Sub PROTOKOL_Tisk2() Dim objWord Dim objDoc Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Open("c:\SMLOUVY-KLIENT\01 - Smlouva...

Ahoj, díky moc za pomoc. Bohužel tohle makro nefunguje. Nastavil jsem v něm cestu k tomu dokumentu, ale když ho chci použít, tak to hodí Run-time error'4248': Tento příkaz není k dispozici, protože není otevřen žádný dokument. Přiložil jsem celý soubor, kdyby si se na to chtěla podívat. Já právě tak...

Nikdo neporadí? Není problém popsán dostatečně, nebo srozumitelně?

Dobrý den, Rád bych se obrátil na místní odborníky o pomoc. Ve své práci potřebuji vytisknout smlouvy pro své zákazníky. Vždy se jedná o několik dokumentů (5) ve wordu, ve kterých se vypisují nacionále klienta a také další 4 dokumenty, kde sice není nutné vypisovat nacionále, ale je potřeba vyplnit ...