3 kasulikku meetodit kõigi Wordi dokumendi tabelistiilide pakkimiseks

Selles artiklis keskendume teile kolme kasuliku meetodi tutvustamisele kõigi tabelistiilide pakkimiseks Wordi dokumendis.

Aeg-ajalt, kui Wordi tabelit rakendatakse soovimatu stiiliga või see vähendab kogu dokumendi visuaalset efekti, peate selle stiili tühjendama. Nüüd näitame teile, kuidas sellist ülesannet täita.

1. meetod: tühjendage ühe sõna tabeli stiil

1. Esiteks ja eeskättost, liigutage kursorit üle tarhankige laud, kuni näete tabeli vasakus ülanurgas ristimärki.
2. Järgmisena klõpsake kogu tabeli valimiseks ristimärki.
3. Nüüd olete käivitanud "Tabelitööriistad". Klõpsake vahekaarti "Disain".
4. Seejärel klõpsake rippmenüü kuvamiseks rühmas "Tabelistiilid" nuppu "Veel".
5. Valige suvand "Tühjenda".
6. Nüüd on tabeli stiil eemaldatud. Nii ka kõik tabeli piirid. Tabelile ääriste lisamiseks veenduge, et tabel on valitud. Ja klõpsake käsu „Piirid” kõrval olevat rippmenüü nuppu.
7. Ja valige "Kõik piirid".

Siin on tulemus:

2. meetod: tühjendage ühes dokumendis kõik tabelistiilid

Kui oleme ühtse tabeli teinud, ei saa mainimata jätta ka partiitöötluse teemat. Kõigepealt vaatame, kuidas VBA kaudu dokumendis kõik tabelistiilid kustutada.

1. Et start, vajutage "Alt+ F11", et kuvada Wordis VBA redaktor.
2. Järgmisena klõpsake vasakpoolses veerus projekti "Tavaline".
3. Seejärel klõpsake menüüribal nuppu "Lisa".
4. Ja valige rippmenüüst "Moodul".
5. Avage mooduli kodeerimisruum, topeltklõpsates sellel.
6. Nüüd kleepige sinna järgmine 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. Lõpuks klõpsake nuppu "Käivita".

See makro kustutab dokumendis kõik tabelistiilid, rakendab neile stiili "Tabel Normal" ja lisab ka tabeliäärised.

3. meetod: tühjendage mitmes dokumendis kõik tabelistiilid

Kui teil on nüüd paar dokumenti käsitleda, on siin makro kõigi tabelistiilide kustutamiseks mitmes dokumendis.

1. Esiteks korraldage kõik dokumendid ühte kausta.
2. Makro installimiseks ja käitamiseks korrake meetodi 2 samme.
3. Ainult seekord ärge unustage asendada selle makroga:

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. Makro käivitamisel avaneb aken "Sirvi". Valige kaust, kuhu dokumendi salvestate sammus 1, ja klõpsake nuppu "OK".

Jätke siis ülejäänud töö makro hooleks.

Kuidas taastada Lost Dokumendid

Autor lost dokumendid, tähendab see, et dokumendid satuvad ohtu Sõnade korruptsioon või inimlikud vead. Selliste dokumentidega tegelemisel peaksite alati meeles pidama, et neid saab hankida mõne täiustatud parandustööriista abil.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas remont xls ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom