» Poradna » Programy

Excel VBA - automatizace hromadné korespondence ve wordu

 |   |  Macintosh OS X Safari 13.0

Dobry den, měl bych na Vás dotaz ohledně programování v Excelu přes VBA.Mám vytvořenou aplikaci ve které uživatel zadá hodnoty jako je jméno příjmení atp. Na základě těchto dat v novém listu priradim další podrobnosti z databaze a následně ve wordu vytvořím hromadnou korespondenci. Mám vytvořený wordovy dokument, kde vše funguje tak jak má a v tomto není žádný problem.Chtěl bych uživatelům zjednodušit práci při vytvoření hromadné korespondence a otevírání dalších souboru jako pravě word. Chtěl bych aby uživatel nemusel odcházet z exceloveho souboru a po stisknutí tlačítka “výtvor hromadnou korespondeci” se vše automaticky převedlo do wordu do správných “políček” (následně by se tento soubor uložil a výtiskl, ale s tímto si doufám už poradím).Nikde jsem zatím nenašel pomoc na moji problematiku. Mockrát děkuji za vás čas a v případě nejasnosti doplním rad další informace.

Odpovědi na otázku

 |   |  Microsoft Windows 10 Firefox 72.0

Píšeš, že máš dotaz, ale nevidím tam jedinou otázku. Natož KONKRÉTNÍ otázku, na kterou by se dalo odpovědět.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 79.0.3945.130

Záleží hodně na tom co z toho excelu do wordu chceš tahat, zda jen provázat buňky z excelu s formulářovými poli ve wordu, nebo zda chceš do wordu přenášet kusy tabulky, grafy apod.případně seznamy adresátů + společná data nebo jestli data dle nějakého kritéria pro každého jiná.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 79.0.3945.130

Variantou by možná bylo tu šablonu mít přímo v excelu, vytvořit z ní nový list, kam pak dle kritérií na jiném listu - vazby mezi buňkami nebo oblastmi. doplníš co je třeba do toho listu ze šablony a pak export listu do PDF. Mám takhle vytvořenou jednoduchou apku na objednávky.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Macintosh OS X Safari 13.0

Děkuji za odpověď !Bohužel šablonu mít v excelu nemůžu, protože se tiskne šablona speciálního formátu a “korespondenční pole” jsou přesně umístěny aby zapadaly do šablony. Jde mi o to, jak z excelu přes VBA mohu vložit automaticky data do wordove šablony aniž bych musel:1. Otevřít wordovou šablonu2. Propojit šablonu s daty z excelu3. Spustit hromadnou korespondeciChtěl bych aby se po stisknutí tlačítka (či cokoli jiného..) vzala data z excelove tabulky a jednotlivá data se přiřadila do hromadné korespondence ve wordu.Tedy aby POLE ve wordu s nazvem JMÉNO vzalo data z excelove tabulky a přiřadily se hodnoty ze sloupce JMÉNO. Následně POLE PRIJMENI by vzalo data v excelu ze sloupce PRIJMENI, proste klasicky tak jak se to dá udělat manuálně ve wordu.

Souhlasím  |  Nesouhlasím  |  Odpovědět
 |   |  Microsoft Windows 7 Chrome 79.0.3945.130

možná by ti pomohlo tohlehttps://proexcel.cz/jak-na-propojeni-excelu-s... Je tam několik způsobů jak ty pole provázat, včetně vložení tabulky.Pro hromadnou korespondenci si samozřejmě musíš vytvořit cyklus procházení tabulkou po řádcích a sloupcích, napřset rng=activesheet.range("A1")for radka = 1 to posledniR-1 for sloupec = 0 to posledniS-1 nazev = rng.offset(0,sloupec) if nazev = "pohlavi" then if rng.offset(radka,sloupec).value="M" then sablona.Bookmarks(nazev).Range.Text = "Vážený pane " else sablona.Bookmarks(nazev).Range.Text = "Vážená paní " end if else sablona.Bookmarks(nazev).Range.Text = rng.offset(radka,sloupec).value end ifnext sloupecnext radkasamozřejmě po každé řádce vytisknout případně uložit,Pokud bys chtěl to vyplňování nějak kombinovat, musel by sis udělat translační tabulku v prvním sloupci název pole, v dalším pak formát např adresa = ulice + " " + čp a programově to obsloužit

Souhlasím  |  Nesouhlasím  |  Odpovědět

Související témata: Automatizace, Korespondence, Výtvor


Určitě si přečtěte

Zapomeňte na kometu, české nebe každý den křižují mnohem zajímavější kousky

Zapomeňte na kometu, české nebe každý den křižují mnohem zajímavější kousky

** České nebe každý den křižuje hromada exotických letounů ** Na populární mapě Flightradar24 je ale nenajdete ** Jsou to vojenské letouny USA, UK a NATO

Jakub Čížek | 37

Jak se žije s telefonem bez Googlu: Čerstvé zkušenosti s telefony Honor a Huawei

Jak se žije s telefonem bez Googlu: Čerstvé zkušenosti s telefony Honor a Huawei

** Honor u nás přichází s prvním telefonem bez Google Mobile Services ** Současný stav je lepší než na začátku, ideální ale není ** Zkusili jsme i hack s ručním přidáním služeb Googlu

Tomáš Holčík | 157

Čím nahradit Total Commander: 11 správců souborů nejen pro profíky

Čím nahradit Total Commander: 11 správců souborů nejen pro profíky

** Total Commander je fernomén mezi správci souborů ** Našli jsme 11 povedených alternativ ** Zvládnou to samé a ke všemu jsou většinou zadarmo

Karel Kilián | 87

WindowsFX: Nainstalujte to mamce a taťkovi. Ani nepoznají, že to je Linux

WindowsFX: Nainstalujte to mamce a taťkovi. Ani nepoznají, že to je Linux

** Po dvou měsících tu máme další linuxovou kopii ** Tentokrát jde o imitaci Desítek ** Sestavili ji brazilští geekové nad Ubuntu

Jakub Čížek | 135


Aktuální číslo časopisu Computer

Megatest: nejlepší notebooky do 20 000 Kč

Test 8 levných IP kamer

Jak vybrat bezdrátová sluchátka

Testujeme Android 11