Automatická změna stylu tabulek v Microsoft Wordu pomocí makra
Aplikace Microsoft Word nabízí rozsáhlé možnosti formátování textu. Je možné jednoduše zkopírovat styl z jednoho místa a aplikovat ho na rozsáhlé části dokumentu, jako jsou odstavce a sekce, pomocí několika kliknutí. Bohužel, tato jednoduchost se nevztahuje na tabulky. Pokud chcete sjednotit vzhled všech tabulek v dokumentu, musíte každou z nich vybrat a ručně změnit styl. Existuje ale elegantní řešení – použití makra, které tento proces automatizuje.
Jak zjistit název stylu tabulky
Před vytvořením makra je nutné zjistit přesný název stylu tabulky, který chcete aplikovat. Postup je jednoduchý. Otevřete dokument Word, ve kterém chcete změnit styly tabulek. Klikněte do libovolné tabulky a přejděte na záložku „Návrh“ (Design), která se nachází v sekci „Nástroje tabulky“.
Nyní najeďte kurzorem myši na styl tabulky, který chcete použít na všechny tabulky. Zobrazí se popis s názvem tohoto stylu. Zapište si tento název, bude potřeba při tvorbě makra.
Vytvoření makra pro změnu stylu tabulek
Nejprve aktivujte záložku „Vývojář“ ve Wordu. To provedete tak, že kliknete na „Soubor“ (File) > „Možnosti“ (Options) > „Přizpůsobit pás karet“ (Customize Ribbon). Zaškrtněte políčko u záložky „Vývojář“ a vraťte se zpět do dokumentu.
Na záložce „Vývojář“ klikněte na „Makra“. Zadejte název makra, například:
ApplyTableStyle
Klikněte na tlačítko „Vytvořit“ (Create). V okně pro kód vložte následující kód. Je ovšem potřeba jeden řádek upravit:
tbl.Style = "Střední stínování 2 – Zvýraznění 1".
Nahraďte text mezi uvozovkami názvem stylu tabulky, který jste si zapsali v předchozím kroku. Důležité je, abyste uvozovky v kódu ponechali. Po úpravě kódu můžete makro spustit.
Sub ApplyTableStyle()
Dim tbl As Table
For Each tbl In ActiveDocument.Tables
tbl.Style = "Medium Shading 2 - Accent 1"
Next
End Sub
To je vše! Po spuštění makra se automaticky změní styl všech tabulek v dokumentu. Pokud budete chtít v budoucnu aplikovat jiný styl tabulky, budete muset toto makro upravit, protože při každém spuštění automaticky aplikuje styl, který je definován v kódu.
Pokud chcete změnit styl, který makro používá, budete muset znovu editovat kód a nahradit stávající název stylu novým. Makro aplikuje styly na všechny existující i nově vytvořené tabulky v dokumentu. Je škoda, že Microsoft Word nemá tuto funkci zabudovanou přímo, protože by usnadnila práci mnoha uživatelům.