3 korisna metoda za grupno brisanje svih stilova tablice u vašem Word dokumentu

U ovom članku ćemo se fokusirati na demonstriranje 3 korisne metode za grupno brisanje svih stilova tablice u vašem Word dokumentu.

S vremena na vrijeme, ako je Word tabela primijenjena s neželjenim stilom ili smanjuje vizualni efekat cijelog dokumenta, morate obrisati njen stil. Sada ćemo vam pokazati kako da izvršite takav zadatak.

Metoda 1: Obrišite stil tabele jedne riječi

1. Prvo i najvažnije, pomaknite kursor preko ciljne tabele dok ne vidite znak križića u gornjem lijevom uglu tabele.
2. Zatim kliknite na križić da odaberete cijelu tabelu.
3. Sada ste aktivirali „Alati za tablice“. Kliknite karticu "Dizajn".
4. Zatim kliknite na dugme „Više“ u grupi „Stilovi tabele“ da biste prikazali padajući meni.
5. Odaberite opciju "Obriši".
6. Sada je stil tabele uklonjen. Kao i sve granice tabele. Da dodate ivice tablici, provjerite je li tabela odabrana. I kliknite na dugme padajućeg menija pored komande „Granice“.
7. I odaberite "Sve granice".

Evo ishoda:

Metoda 2: Grupno brisanje svih stilova tabele u jednom dokumentu

Nakon što smo uradili jednu tabelu, tema grupne obrade ne može se propustiti. Prvo, da vidimo kako da obrišemo sve stilove tabele u dokumentu putem VBA.

1. Za početak, pritisnite "Alt+F11" da biste prikazali VBA editor u Wordu.
2. Zatim kliknite na projekat “Normalno” na lijevoj koloni.
3. Zatim kliknite na "Insert" na traci menija.
4. I odaberite “Module” na padajućem izborniku.
5. Otvorite prostor za kodiranje modula dvostrukim klikom na njega.
6. Sada tamo zalijepite sljedeći 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 kraju kliknite na “Run”.

Ovaj makro briše sve stilove tabele u dokumentu, na njih primenjuje stil „Table Normal“ i dodaje ivice tabele.

Metoda 3: Grupno brisanje svih stilova tabele u više dokumenata

Sada, u slučaju da imate nekoliko dokumenata za rješavanje, evo makroa za brisanje svih stilova tablice u više dokumenata.

1. Prvo, posložite sve dokumente u jednu fasciklu.
2. Ponovite korake u metodi 2 da biste instalirali i pokrenuli makro.
3. Samo ovaj put, ne zaboravite zamijeniti ovim makroom:

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. Pokretanjem makroa, pojavit će se prozor “Pretraži”. Odaberite fasciklu u koju pohranjujete dokument u koraku 1 i kliknite na “OK”.

Ostatak posla prepustite makrou.

Načini za vraćanje izgubljenih dokumenata

Pod izgubljenim dokumentima mislimo na dokumente koji su kompromitovani zbog Korupcija riječi ili ljudske greške. Dok radite s takvim dokumentima, uvijek trebate imati na umu da se oni mogu vratiti uz pomoć nekog naprednog alata za popravku.

Uvod za autora:

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