3 Užitočné metódy na dávkové vymazanie všetkých štýlov tabuľky v dokumente Word

V tomto článku sa zameriame na ukážku 3 užitočných metód hromadného vymazania všetkých štýlov tabuľky v dokumente Word.

Ak sa tabuľka programu Word aplikuje s nežiaducim štýlom alebo ak zníži vizuálny efekt celého dokumentu, musíte občas vyčistiť jeho štýl. Teraz si ukážeme, ako takúto úlohu dosiahnuť.

Metóda 1: Vymazanie štýlu tabuľky jedného slova

1. V prvom rade presuňte kurzor nad cieľovú tabuľku, kým neuvidíte krížik v ľavom hornom rohu tabuľky.
2. Ďalej kliknite na krížik a vyberte celú tabuľku.
3. Teraz ste spustili „Tabuľkové nástroje“. Kliknite na kartu „Dizajn“.
4. Potom kliknite na tlačidlo „Viac“ v skupine „Štýly tabuľky“, aby sa zobrazila rozbaľovacia ponuka.
5. Vyberte možnosť „Vymazať“.
6. Teraz je štýl tabuľky odstránený. Rovnako tak aj všetky okraje tabuľky. Ak chcete do tabuľky pridať orámovanie, uistite sa, že je vybratá tabuľka. A kliknite na rozbaľovacie tlačidlo vedľa príkazu „Okraje“.
7. A zvoľte „Všetky hranice“.

Tu je výsledok:

Metóda 2: Dávkové vymazanie všetkých štýlov tabuľky v jednom dokumente

Len čo sme vytvorili jednotnú tabuľku, nemôže chýbať téma dávkového spracovania. Najprv sa pozrime, ako vyčistiť všetky štýly tabuliek v dokumente pomocou VBA.

1. Ak chcete začať, stlačte klávesy „Alt + F11“, čím zobrazíte editor VBA vo Worde.
2. Ďalej kliknite na projekt „Normálne“ v ľavom stĺpci.
3. Potom kliknite na „Vložiť“ na paneli s ponukami.
4. V rozbaľovacej ponuke zvoľte možnosť „Modul“.
5. Dvojitým kliknutím otvorte kódovací priestor modulu.
6. Teraz tam vložte nasledujúce makro:

Sub ClearTableStylesInADoc()
  Dim objTable As Table
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
 
  For Each objTable In objDoc.Tables
    objTable.Style = "Table Normal"
    objTable.Borders.Enable = True
  Next objTable
 
  Application.ScreenUpdating = True
 
  Set objDoc = Nothing
End Sub

7. Nakoniec kliknite na „Spustiť“.

Toto makro vymaže všetky štýly tabuľky v dokumente, použije na ne štýl „Normálna tabuľka“ a pridá tiež okraje tabuľky.

Metóda 3: Dávkové vymazanie všetkých štýlov tabuľky vo viacerých dokumentoch

Teraz, ak máte na starosti niekoľko dokumentov, tu je makro na vymazanie všetkých štýlov tabuľky vo viacerých dokumentoch.

1. Najskôr usporiadajte všetky dokumenty do jedného priečinka.
2. Opakujte kroky v metóde 2 na inštaláciu a spustenie makra.
3. Iba tentoraz nezabudnite nahradiť týmto makrom:

Sub ClearTableStylesInMultiDoc()
  Dim objTable As Table
  Dim objDoc As Document
  Dim StrFolder As String
  Dim strFile As String
  Dim dlgFile As FileDialog
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Select a folder first."
      Exit Sub
    End If
  End With
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    Set objDoc = ActiveDocument
 
    For Each objTable In objDoc.Tables
      objTable.Style = "Table Normal"
      objTable.Borders.Enable = True
    Next objTable
 
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

4. Po spustení makra sa zobrazí okno „Prechádzať“. V kroku 1 vyberte priečinok, do ktorého uložíte dokument, a kliknite na „OK“.

Zvyšok práce potom nechajte na makre.

Spôsoby, ako získať späť stratené dokumenty

Stratenými dokumentmi myslíme dokumenty, ktoré sú ohrozené v dôsledku Korupcia slova alebo ľudské chyby. Pri práci s takýmito dokumentmi by ste mali mať na pamäti, že je možné ich získať pomocou nejakého pokročilého nástroja na opravu.

Ú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 opraviť xls a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S