Jak z Excel vytvořit Word dokument

Úvodem - Seznam kódu

Pro přehlednost rozděleno na jednotlivé kapitoly:

• První dokument - vytvoření
• Uložení do Word (*.doc)
• Uložit / smazat
• Upravit formát
• ....

První dokument

Dim objWord Dim objDoc Dim objSelection Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Add objWord.Visible = True Set objSelection = objWord.Selection objSelection.TypeText ("http://JakNaExcel.cz je supper web. To ví i Word ;)")

Uložení do Word (*.doc)

Pro uložení použijeme:

objDoc.SaveAs ("D:\test\PrvniUlozenyDokumentWord.doc")

Větší kód ;)

Dim objWord Dim objDoc Dim objSelection Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Add objWord.Visible = True Set objSelection = objWord.Selection objSelection.TypeText ("http://JakNaExcel.cz je supper web. To ví i Word ;)") objDoc.SaveAs ("D:\test\PrvniUlozenyDokumentWord.doc")

Smazat uložit zavřít

Pokud je potřeba před uložením smazat (potřeba kontrolovat, zda není otevřeno jiným uživatelem).

If Dir("D:\test\PrvniUlozenyDokumentWord.doc") <> "" Then Kill "D:\test\PrvniUlozenyDokumentWord.doc" End If .SaveAs ("D:\test\PrvniUlozenyDokumentWord.doc") .Close ' zavřít dokument objWord.Quit ' zavřít word

Upravit formát

Jak upravit formát textu, který chcete zapsat:

Set objSelection = objWord.Selection objSelection.Font.Bold = True objSelection.Font.Size = "22"

Závěrem

Postupem času přidám další kódy.

Článek byl aktualizován: 19.09.2020 11:07

Pavel Lasák - autor webu

Microsoft Office (Word, Excel, Google tabulky, PowerPoint) se věnuji od roku 2000 (od 2004 na této doméně) - V roce 2017 jsem od Microsoft získal prestižní ocenění MVP (zatím jsem jediný z ČR v kategorií Excel). Své vědomosti a zkušenosti dávám k dispozici i on-line ve videích pro SEDUO. Ve firmách školím a konzultuji, učím na MUNI. Tento web již tvořím přes 15 let. Zdarma je zde přes 1.000 návodu, tipů a triků, včetně přes 250 různých šablon, sešitů.

           

Komentáře