3 korisne metode za grupno brisanje svih stilova tablica u vašem Word dokumentu

U ovom ćemo se članku usredotočiti na demonstraciju 3 korisne metode za grupno brisanje svih stilova tablica u vašem Word dokumentu.

S vremena na vrijeme, ako je Word tablica primijenjena s neželjenim stilom ili smanjuje vizualni učinak cijelog dokumenta, trebate poništiti njezin stil. Sada ćemo vam pokazati kako izvršiti takav zadatak.

Metoda 1: Očistite stil tablice jedne riječi

1. Prvo i najvažnije, pomaknite kursor iznad ciljne tablice dok ne vidite znak križića u gornjem lijevom kutu tablice.
2. Zatim kliknite na znak križa za odabir cijele tablice.
3. Sada ste pokrenuli "Alate tablice". Pritisnite karticu "Dizajn".
4. Zatim kliknite na gumb "Više" u grupi "Stilovi tablica" za prikaz padajućeg izbornika.
5. Odaberite opciju "Očisti".
6. Sada je stil tablice uklonjen. Kao i sve granice tablice. Da biste tablici dodali obrube, provjerite je li tablica odabrana. I kliknite na padajući gumb pored naredbe "Granice".
7. I odaberite "Sve granice".

Evo ishoda:

Metoda 2: Skupno brisanje svih stilova tablica u jednom dokumentu

Nakon što smo napravili jednu tablicu, tema skupne obrade ne može se propustiti. Prvo, pogledajmo kako izbrisati sve stilove tablice u dokumentu putem VBA.

1. Za početak, pritisnite "Alt + F11" da biste prikazali VBA editor u Wordu.
2. Zatim kliknite na projekt "Normalno" u lijevom stupcu.
3. Zatim kliknite "Umetni" na traci izbornika.
4. I odaberite "Modul" na padajućem izborniku.
5. Otvorite prostor za kodiranje modula dvostrukim klikom na njega.
6. Sada tamo zalijepite sljedeću makronaredbu:

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 kraju kliknite "Pokreni".

Ova makronaredba briše sve stilove tablice u dokumentu, na njih primjenjuje stil "Normalna tablica" i dodaje obrube tablice.

Metoda 3: Skupno brisanje svih stilova tablica u više dokumenata

Sada, u slučaju da morate obraditi nekoliko dokumenata, evo makronaredbe za brisanje svih stilova tablica u više dokumenata.

1. Najprije posložite sve dokumente u jednu mapu.
2. Ponovite korake u metodi 2 za instaliranje i pokretanje makronaredbe.
3. Samo ovaj put, ne zaboravite zamijeniti ovom makronaredbom:

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. Prilikom pokretanja makronaredbe pojavit će se prozor "Pregledaj". Odaberite mapu u koju pohranjujete dokument u koraku 1 i kliknite "OK".

Onda prepustite ostatak posla makrou.

Načini vraćanja izgubljenih dokumenata

Pod izgubljenim dokumentima mislimo na dokumente koji su kompromitirani zbog Korupcija riječi ili ljudske pogreške. Dok radite s takvim dokumentima, uvijek trebate imati na umu da ih je moguće dohvatiti uz pomoć nekog naprednog alata za popravak.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popravak xls i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com