3 hyödyllistä tapaa erittää kaikki Word-asiakirjan taulukon tyylit

Tässä artikkelissa keskitymme esittelemään sinulle 3 hyödyllistä tapaa eritellä kaikki Word-asiakirjan taulukkotyylit.

Jos Word-taulukkoa käytetään ei-toivotulla tyylillä tai se vähentää koko asiakirjan visuaalista vaikutusta silloin tällöin, sinun on tyhjennettävä sen tyyli. Näytetään nyt, kuinka tällainen tehtävä voidaan suorittaa.

Tapa 1: Tyhjennä yhden sanan taulukon tyyli

1. Ensinnäkin, siirrä kursori kohdetaulukon päälle, kunnes näet ristimerkin taulukon vasemmassa yläkulmassa.
2. Napsauta sitten ristikylttiä valitaksesi koko taulukon.
3. Nyt olet käynnistänyt "Pöytätyökalut". Napsauta Suunnittelu-välilehteä.
4. Napsauta sitten Lisää-painiketta Taulukotyylit-ryhmässä näyttääksesi avattavan valikon.
5. Valitse Tyhjennä-vaihtoehto.
6. Nyt taulukon tyyli on poistettu. Niin ovat kaikki pöydän reunat. Jos haluat lisätä reunuksia taulukkoon, varmista, että taulukko on valittu. Napsauta sitten "Borders" -komennon vieressä olevaa avattavaa painiketta.
7. Ja valitse "Kaikki rajat".

Tässä on tulos:

Tapa 2: Erä Poista kaikki taulukon tyylit yhdessä asiakirjassa

Kun olemme tehneet yhden taulukon, eräkäsittelyn aihetta ei voida hukata. Katsotaan ensin, miten kaikki taulukon tyylit tyhjennetään asiakirjassa VBA: n kautta.

1. Aloita painamalla "Alt + F11" avataksesi VBA-editorin Wordissa.
2. Napsauta sitten vasemman sarakkeen Normal-projektia.
3. Napsauta sitten valikkorivin Lisää-painiketta.
4. Ja valitse avattavasta valikosta "Moduuli".
5. Avaa moduulin koodaustila kaksoisnapsauttamalla sitä.
6. Liitä nyt seuraava makro sinne:

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. Napsauta lopuksi ”Suorita”.

Tämä makro tyhjentää kaikki asiakirjan taulukotyylit, soveltaa niihin "Taulukko Normaali" -tyyliä ja lisää myös taulukon reunat.

Tapa 3: Erä Tyhjennä kaikki taulukon tyylit useissa asiakirjoissa

Nyt, jos sinulla on pari asiakirjaa käsiteltäväksi, tässä on makro kaikkien taulukoiden tyylien tyhjentämiseksi useissa asiakirjoissa.

1. Järjestä kaikki asiakirjat ensin yhteen kansioon.
2. Toista menetelmän 2 vaiheet makron asentamiseksi ja suorittamiseksi.
3. Muista vain tällä kertaa korvata tällä makrolla:

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. Makron suorittaminen tuo näkyviin "Selaa" -ikkunan. Valitse vaiheessa 1 kansio, johon tallennat asiakirjan, ja napsauta “OK”.

Jätä loput työstä sitten makron tehtäväksi.

Tapoja saada takaisin kadonneet asiakirjat

Kadonneilla asiakirjoilla tarkoitamme, että asiakirjat vaarantuvat johtuen Sanan korruptio tai inhimillisiä virheitä. Kun käsittelet tällaisia ​​asiakirjoja, sinun on aina pidettävä mielessä, että ne voidaan hakea jonkin edistyneen korjaustyökalun avulla.

Tekijän esittely:

Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien korjata xls ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com