3 nyttige metoder for å batchtømme alle tabellstiler i Word-dokumentet ditt

I denne artikkelen vil vi fokusere på å vise deg 3 nyttige metoder for å batchtømme alle tabellstiler i Word-dokumentet.

En gang i blant, hvis en Word-tabell brukes med en uønsket stil eller den reduserer den visuelle effekten av hele dokumentet, må du fjerne stilen. La oss nå vise deg hvordan du utfører en slik oppgave.

Metode 1: Fjern stilen til ett ordtabell

1. Først og fremstost, flytt markøren over tarfå bord til du ser krysstegnet i øvre venstre hjørne av bordet.
2. Klikk deretter på krysstegnet for å velge hele tabellen.
3. Nå har du utløst "Tabellverktøy". Klikk på "Design"-fanen.
4. Klikk deretter på "Mer"-knappen i "Tabellstiler"-gruppen for å vise rullegardinmenyen.
5. Velg alternativet "Slett".
6. Nå er bordstilen fjernet. Det samme er alle bordkanter. For å legge til rammer i tabellen, sørg for at tabellen er valgt. Og klikk på rullegardinknappen ved siden av "Borders" -kommandoen.
7. Og velg "Alle grenser".

Her er resultatet:

Metode 2: Slett alle tabellstiler i ett dokument

Når vi har gjort enkelttabellen, kan ikke emnet batchbehandling gå glipp av. La oss først se hvordan du sletter alle tabellstiler i et dokument via VBA.

1. Til start med, trykk "Alt+ F11" for å vise VBA-editoren i Word.
2. Klikk deretter på "Normal"-prosjektet i venstre kolonne.
3. Klikk deretter på "Sett inn" på menylinjen.
4. Og velg "Modul" på rullegardinmenyen.
5. Åpne modulens kodeområde ved å dobbeltklikke på den.
6. Lim inn følgende makro der:

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. Klikk til slutt "Kjør".

Denne makroen sletter alle tabellstiler i et dokument, bruker "Tabell Normal"-stil på dem, og legger også til tabellkanter.

Metode 3: Slett alle tabellstiler i flere dokumenter

Nå i tilfelle du har et par dokumenter å håndtere, her er makroen for å fjerne alle tabellstiler i flere dokumenter.

1. For det første, ordne alle dokumenter i én mappe.
2. Gjenta trinnene i metode 2 for å installere og kjøre en makro.
3. Bare denne gangen, husk å erstatte med denne makroen:

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. Når du kjører makroen, vil det være "Bla gjennom"-vinduet. Velg mappen du lagrer dokumentet i trinn 1 og klikk "OK".

Overlat resten av arbeidet til makroen da.

Måter å gjenvinne Lost dokumenter

Av lost dokumenter, mener vi at dokumentene blir kompromittert pga Ordkorrupsjon eller menneskelige feil. Når du håndterer slike dokumenter, bør du alltid huske på at de kan hentes frem ved hjelp av et avansert reparasjonsverktøy.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert reparere xls og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med