2 způsoby, jak použít stejný styl na všechny tabulky v dokumentu aplikace Word

V tomto příspěvku se podíváme na 2 užitečné způsoby, jak použít stejný styl na všechny tabulky v dokumentu Word.

Čas od času potřebujeme v dokumentu aplikace Word vytvořit tabulky, abychom umístili a uspořádali různá data. A pokud existuje více tabulek, bylo by lepší na ně použít stejný styl, aby soubor působil profesionálněji. Z tohoto důvodu bychom vám v následujících textech rádi ukázali 2 metody.

Metoda 1: Použít stejný styl na tabulku jednotlivě

Jakmile vložíte tabulku do dokumentu, umístěte kurzor do tabulky, čímž se otevře karta „Nástroje tabulky“. Poté klikněte na „Návrh“ a v knihovně „Styly tabulek“ vyberte styl tabulky.

V případě, že budete chtít pro své stoly nový styl, můžete si nový upravit podle následujících kroků.

1. Nejprve klikněte na tlačítko „Více“ ve skupině „Styly tabulek“.
2. Poté vyberte „Nový styl tabulky“.
3. Nyní v dialogovém okně „Vytvořit nový styl z formátování“ nejprve pojmenujte nový styl.
4. Dále nastavte takové formátování, jako je písmo, velikost písma, okraje, barva výplně atd.
5. A vyberte možnost „Nové dokumenty založené na této šabloně“.
6. Nakonec klikněte na „OK“.

Pokud chcete formátovat šablonu tabulky unikátnějším způsobem, podívejte se na tento článek: 2 metody střídání barev řádků nebo sloupců v tabulce aplikace Word

Metoda 2: Manipulace s tabulkami v dávkách

V metodě 2 pro vás máme makro pro výběr všech existujících tabulek v aktivním dokumentu. Jakmile jsou tabulky vybrány, můžete na ně v dávkách použít jakýkoli styl.

1. Nejprve klikněte na kartu „Vývojář“ na pásu karet.
2. Poté kliknutím na „Visual Basic“ spusťte editor VBA.
3. Poté vložte nový modul kliknutím na „Normální“ a poté na „Vložit“.
4. V rozbalovací nabídce zvolte „Modul“.
5. Dvojitým kliknutím na nový modul otevřete oblast kódování a vložte kódy:

'Select all tables in a Word document.
Sub SelectAllTables()
  Dim objDoc As Document
  Dim objTable As Table
 
  Application.ScreenUpdating = False
 
  'Initialization
  Set objDoc = ActiveDocument
 
  'Set each table in document as a range editable to everyone.
  With objDoc
  For Each objTable In .Tables
    objTable.Range.Editors.Add wdEditorEveryone
  Next
  objDoc.SelectAllEditableRanges wdEditorEveryone
  objDoc.DeleteAllEditableRanges wdEditorEveryone
  Application.ScreenUpdating = True
  End With
End Sub

6. Nakonec stiskněte tlačítko „Spustit“.

Nyní budou již všechny tabulky vybrány. Na všechny tabulky v aktuálním dokumentu můžete použít vestavěný nebo nově vytvořený styl.

Vypořádejte se se ztrátou dat aplikace Word

Ztráta kritických dat může být prokletí digitálního života lidí. Sarkastické je, že litujeme až poté, co bylo vykonáno to, co jsme udělali. Vzhledem k tomu, že není důvod truchlit nad ztrátou, doporučujeme vám pořídit si nástroj obnovit chybu dokumentu docx aplikace Word co nejdříve.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně Obnovovací produkt Excel xls a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com