3 Przydatne metody grupowego usuwania wszystkich stylów tabel w dokumencie programu Word

W tym artykule skupimy się na zaprezentowaniu 3 przydatnych metod grupowego usuwania wszystkich stylów tabel w dokumencie programu Word.

Co jakiś czas, jeśli tabela programu Word jest stosowana z niepożądanym stylem lub zmniejsza efekt wizualny całego dokumentu, musisz wyczyścić jej styl. Teraz pokażemy, jak wykonać takie zadanie.

Metoda 1: Wyczyść styl tabeli jednego słowa

1. Przede wszystkim należy przesunąć kursor nad tabelę docelową, aż w lewym górnym rogu tabeli pojawi się znak krzyżyka.
2. Następnie kliknij krzyżyk, aby zaznaczyć całą tabelę.
3. Teraz uruchomiłeś „Narzędzia tabel”. Kliknij zakładkę „Projekt”.
4. Następnie kliknij przycisk „Więcej” w grupie „Style tabel”, aby wyświetlić rozwijane menu.
5. Wybierz opcję „Wyczyść”.
6. Teraz styl tabeli został usunięty. Podobnie jak wszystkie obramowania stołu. Aby dodać obramowanie do tabeli, upewnij się, że tabela jest zaznaczona. I kliknij przycisk rozwijany obok polecenia „Granice”.
7. I wybierz „Wszystkie granice”.

Oto wynik:

Metoda 2: Wyczyść wsadowo wszystkie style tabeli w jednym dokumencie

Po przygotowaniu pojedynczej tabeli nie można pominąć tematu przetwarzania wsadowego. Najpierw zobaczmy, jak wyczyścić wszystkie style tabel w dokumencie za pomocą VBA.

1. Na początek naciśnij „Alt+F11”, aby wyświetlić edytor VBA w programie Word.
2. Następnie kliknij projekt „Normalny” w lewej kolumnie.
3. Następnie kliknij „Wstaw” na pasku menu.
4. I wybierz „Moduł” z menu rozwijanego.
5. Otwórz przestrzeń kodowania modułu, klikając ją dwukrotnie.
6. Teraz wklej tam następują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. Na koniec kliknij „Uruchom”.

To makro czyści wszystkie style tabeli w dokumencie, stosuje do nich styl „Tabela normalna”, a także dodaje obramowania tabeli.

Metoda 3: Wyczyść wsadowo wszystkie style tabel w wielu dokumentach

Jeśli masz do czynienia z kilkoma dokumentami, oto makro do wyczyszczenia wszystkich stylów tabel w wielu dokumentach.

1. Po pierwsze, ułóż wszystkie dokumenty w jednym folderze.
2. Powtórz kroki w metodzie 2, aby zainstalować i uruchomić makro.
3. Tylko tym razem pamiętaj o zastąpieniu tym 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. Uruchomienie makra spowoduje wyświetlenie okna „Przeglądaj”. Wybierz folder, w którym przechowujesz dokument w kroku 1 i kliknij „OK”.

Resztę pracy pozostaw makro.

Sposoby odzyskiwania utraconych dokumentów

Przez utracone dokumenty rozumiemy dokumenty, które uległy uszkodzeniu z powodu: Zepsucie słów lub błędy ludzkie. Mając do czynienia z takimi dokumentami, należy zawsze pamiętać, że można je odzyskać przy pomocy jakiegoś zaawansowanego narzędzia naprawczego.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym napraw xls i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com