3 Užitečné metody pro dávkové vymazání všech stylů tabulek v dokumentu Word

V tomto článku se zaměříme na ukázku 3 užitečných metod dávkového vymazání všech stylů tabulek v dokumentu Word.

Pokud je tabulka aplikace Word použita s nežádoucím stylem nebo pokud sníží vizuální efekt celého dokumentu, je třeba každou chvíli vyčistit její styl. Nyní vám ukážeme, jak takový úkol splnit.

Metoda 1: Vymazání stylu tabulky jednoho slova

1. V první řadě přesuňte kurzor nad cílovou tabulku, dokud neuvidíte křížek v levém horním rohu tabulky.
2. Poté klikněte na křížek a vyberte celou tabulku.
3. Nyní jste spustili „Nástroje tabulky“. Klikněte na kartu „Návrh“.
4. Poté klikněte na tlačítko „Více“ ve skupině „Styly tabulky“, aby se zobrazila rozevírací nabídka.
5. Vyberte možnost „Vymazat“.
6. Nyní je styl tabulky odstraněn. Stejně tak všechny ohraničení tabulky. Chcete-li do tabulky přidat ohraničení, ujistěte se, že je vybraná tabulka. A klikněte na rozevírací tlačítko vedle příkazu „Okraje“.
7. A zvolte „Všechny hranice“.

Zde je výsledek:

Metoda 2: Dávkové vymazání všech stylů tabulky v jednom dokumentu

Jakmile jsme udělali jedinou tabulku, téma dávkového zpracování nemůže chybět. Nejprve se podívejme, jak vymazat všechny styly tabulek v dokumentu pomocí VBA.

1. Pro začátek stiskněte klávesy „Alt+F11“ pro zobrazení editoru VBA ve Wordu.
2. Dále klikněte na projekt „Normální“ v levém sloupci.
3. Poté klikněte na liště nabídek na „Vložit“.
4. V rozevírací nabídce vyberte možnost „Modul“.
5. Dvojitým kliknutím otevřete kódovací prostor modulu.
6. Nyní tam vložte následující 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. Nakonec klikněte na „Spustit“.

Toto makro vymaže všechny styly tabulky v dokumentu, použije na ně styl „Normální tabulka“ a přidá také ohraničení tabulky.

Metoda 3: Dávkové vymazání všech stylů tabulky ve více dokumentech

Nyní, pokud máte k dispozici několik dokumentů, je zde makro k vymazání všech stylů tabulky ve více dokumentech.

1. Nejprve uspořádejte všechny dokumenty do jedné složky.
2. Opakujte kroky v metodě 2 pro instalaci a spuštění makra.
3. Pouze tentokrát nezapomeňte nahradit tímto makrem:

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 spuštění makra se objeví okno „Procházet“. V kroku 1 vyberte složku, do které dokument uložíte, a klikněte na „OK“.

Zbytek práce pak nechte na makru.

Způsoby, jak znovu získat ztracené dokumenty

Ztracenými dokumenty máme na mysli dokumenty, které jsou ohroženy v důsledku Slovo korupce nebo lidské chyby. Při práci s takovými dokumenty byste měli mít vždy na paměti, že je lze získat pomocí nějakého pokročilého nástroje pro opravu.

Ú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ě opravit xls a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com