2 spôsoby, ako použiť rovnaký štýl na všetky tabuľky v dokumente Word

V tomto príspevku sa pozrieme na 2 užitočné spôsoby, ako použiť rovnaký štýl na všetky tabuľky v dokumente programu Word.

Vždy tak často musíme v našom dokumente Word vytvárať tabuľky, aby sme mohli umiestňovať a usporiadať rôzne údaje. A ak existuje niekoľko tabuliek, bolo by lepšie použiť na ne rovnaký štýl, aby bol súbor profesionálnejší. Z tohto dôvodu by sme vám chceli v nasledujúcich textoch predstaviť 2 metódy.

Metóda 1: Aplikácia rovnakého štýlu na tabuľku jednotlivo

Po vložení tabuľky do dokumentu umiestnite kurzor dovnútra tabuľky, čím sa otvorí karta „Nástroje tabuliek“. Potom kliknite na „Návrh“ a v knižnici „Štýly tabuliek“ vyberte štýl tabuľky.

Ak však chcete pre svoje stoly nový štýl, je dobré upraviť nový podľa nasledujúcich krokov.

1. Najskôr kliknite na tlačidlo „Viac“ v skupine „Štýly tabuľky“.
2. Potom zvoľte „Nový štýl tabuľky“.
3. Teraz v dialógovom okne „Vytvorenie nového štýlu z formátovania“ najskôr pomenujte nový štýl.
4. Ďalej nastavte také formátovanie ako písmo, veľkosť písma, orámovanie, farba výplne atď.
5. A vyberte možnosť „Nové dokumenty založené na tejto šablóne“.
6. Nakoniec kliknite na tlačidlo „OK“.

Ak chcete naformátovať šablónu tabuľky jedinečnejším spôsobom, pozrite si tento článok: 2 spôsoby striedania farieb riadkov alebo stĺpcov v tabuľke Word

Metóda 2: Manipulácia s tabuľkami v dávkach

V metóde 2 máme pre vás makro na výber všetkých existujúcich tabuliek v aktívnom dokumente. Po vybratí tabuliek môžete na ne použiť ľubovoľný štýl v dávkach.

1. Najskôr kliknite na kartu „Vývojár“ na páse s nástrojmi.
2. Potom kliknite na „Visual Basic“, čím spustíte editor VBA.
3. Ďalej vložte nový modul kliknutím na „Normálny“ a potom na „Vložiť“.
4. V rozbaľovacej ponuke zvoľte možnosť Modul.
5. Dvojitým kliknutím na nový modul otvorte oblasť kódovania 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. Nakoniec stlačte tlačidlo „Spustiť“.

Teraz už budú vybrané všetky tabuľky. Na všetky tabuľky v aktuálnom dokumente môžete použiť vstavaný alebo novo vytvorený štýl.

Vyrovnajte si so stratou dát Word

Strata kritických údajov môže byť prekážkou digitálneho života ľudí. Čo je sarkastické, cítime poľutovanie až potom, čo sa stalo. Pretože za stratou nie je k dispozícii žiadny smútok, odporúčame vám zaobstarať si nástroj obnoviť chybu dokumentu Word docx čo najskôr.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane Produkt na zotavenie programu Excel xls a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S