3 Nyttige metoder til batch-sletning af alle tabelformater i dit Word-dokument

I denne artikel vil vi fokusere på at demonstrere dig 3 nyttige metoder til batch-rydning af alle tabelformater i dit Word-dokument.

Hver gang imellem, hvis en Word-tabel anvendes med en uønsket stil, eller det reducerer den visuelle effekt af hele dokumentet, skal du rydde dens stil. Lad os nu vise dig, hvordan du udfører en sådan opgave.

Metode 1: Ryd typografien for et ordtabel

1. Først og fremmest skal du flytte markøren hen over måltabellen, indtil du ser krydset i øverste venstre hjørne af tabellen.
2. Klik derefter på krydstegnet for at vælge hele tabellen.
3. Nu har du udløst “Table Tools”. Klik på fanen "Design".
4. Klik derefter på knappen "Mere" i gruppen "Tabelformater" for at få vist rullemenuen.
5. Vælg indstillingen "Ryd".
6. Nu er bordstilen fjernet. Så er alle bordgrænser. For at tilføje grænser til tabellen skal du sørge for, at tabellen er valgt. Og klik på rullemenuen ud for kommandoen "Borders".
7. Og vælg "Alle grænser".

Her er resultatet:

Metode 2: Ryd alle tabelformater i et dokument

Når vi har udført den enkelte tabel, kan emnet batchbearbejdning ikke gå glip af. Lad os først se, hvordan du rydder alle tabelformater i et dokument via VBA.

1. Til at starte med skal du trykke på “Alt+F11” for at åbne VBA-editoren i Word.
2. Klik derefter på “Normal” -projektet i venstre kolonne.
3. Klik derefter på "Indsæt" i menulinjen.
4. Og vælg "Modul" i rullemenuen.
5. Åbn modulets kodeplads ved at dobbeltklikke på det.
6. Indsæt nu 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. Klik til sidst på "Kør".

Denne makro rydder alle tabelformater i et dokument, anvender "Table Normal" -stil på dem og tilføjer også tabelgrænser.

Metode 3: Batch Ryd alle tabelformater i flere dokumenter

I tilfælde af at du har et par dokumenter at håndtere, er her makroen, der rydder alle tabelformater i flere dokumenter.

1. Først skal du arrangere alle dokumenter i en mappe.
2. Gentag trinene i metode 2 for at installere og køre en makro.
3. Kun denne gang, husk at erstatte med denne makro:

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 kører makroen, vil der være "Gennemse" -vinduet. Vælg den mappe, du gemmer dokumentet i trin 1, og klik på “OK”.

Lad resten af ​​arbejdet være tilbage til makroen.

Måder at genvinde mistede dokumenter

Med mistede dokumenter mener vi, at dokumenterne er blevet kompromitteret pga. Ordkorruption eller menneskelige fejl. Når du beskæftiger dig med sådanne dokumenter, skal du altid huske på, at de kan hentes ved hjælp af et avanceret reparationsværktøj.

Forfatter Introduktion:

Vera Chen er en datagendannelsesekspert i DataNumen, Inc., som er verdens førende inden for datagendannelsesteknologier, herunder reparation xls og pdf produkter til reparation af software. For mere information besøg www.datanumen.com