3 Metode utile pentru a șterge toate stilurile de tabel din documentul Word

În acest articol, ne vom concentra pe demonstrarea a 3 metode utile pentru a șterge toate stilurile de tabel din documentul Word.

Din când în când, dacă un tabel Word este aplicat cu un stil nedorit sau reduce efectul vizual al întregului document, trebuie să ștergeți stilul acestuia. Acum să vă arătăm cum să realizați o astfel de sarcină.

Metoda 1: Ștergeți stilul tabelului cu un singur cuvânt

1. În primul rând, mutați cursorul peste tabelul țintă până când vedeți semnul crucii în colțul din stânga sus al tabelului.
2. Apoi faceți clic pe crucea pentru a selecta întregul tabel.
3. Acum ați declanșat „Instrumente de masă”. Faceți clic pe fila „Design”.
4. Apoi faceți clic pe butonul „Mai multe” din grupul „Stiluri de tabel” pentru a afișa meniul derulant.
5. Alegeți opțiunea „Șterge”.
6. Acum stilul tabelului este eliminat. La fel sunt toate marginile meselor. Pentru a adăuga margini la tabel, asigurați-vă că tabelul este selectat. Și faceți clic pe butonul drop-down de lângă comanda „Borders”.
7. Și alegeți „Toate frontierele”.

Iată rezultatul:

Metoda 2: Ștergeți în lot toate stilurile de tabel dintr-un document

Odată ce am făcut tabelul unic, subiectul procesării loturilor nu poate fi ratat. Mai întâi, să vedem cum să ștergeți toate stilurile de tabel dintr-un document prin VBA.

1. Pentru început, apăsați „Alt+F11” pentru a afișa editorul VBA în Word.
2. Apoi faceți clic pe proiectul „Normal” din coloana din stânga.
3. Apoi faceți clic pe „Insert” din bara de meniu.
4. Și alegeți „Modul” din meniul derulant.
5. Deschideți spațiul de codare al modulului făcând dublu clic pe el.
6. Acum lipiți următoarea macrocomandă acolo:

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. În cele din urmă, faceți clic pe „Run”.

Această macrocomandă șterge toate stilurile de tabel dintr-un document, le aplică stilul „Tabel Normal” și adaugă și chenarele tabelului.

Metoda 3: Ștergeți în lot toate stilurile de tabel din mai multe documente

Acum, în cazul în care aveți câteva documente de tratat, iată macrocomanda pentru a șterge toate stilurile de tabel din mai multe documente.

1. În primul rând, aranjați toate documentele într-un singur folder.
2. Repetați pașii din metoda 2 pentru a instala și rula o macrocomandă.
3. Numai că de această dată, nu uitați să înlocuiți cu această macrocomandă:

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. Rulând macrocomandă, va apărea fereastra „Răsfoiește”. Selectați folderul în care stocați documentul la pasul 1 și faceți clic pe „OK”.

Lăsați restul lucrării în seama macro-ului.

Modalități de a recupera documentele pierdute

Prin documente pierdute, ne referim la documentele compromise din cauza Coruperea cuvintelor sau erori umane. Când vă ocupați de astfel de documente, ar trebui să aveți întotdeauna în vedere că acestea pot fi recuperate cu ajutorul unor instrumente avansate de reparare.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparați xls și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com