3 användbara metoder för att radera alla tabellformat i ditt Word-dokument

I den här artikeln kommer vi att fokusera på att visa dig 3 användbara metoder för att radera alla tabellformat i ditt Word-dokument.

Då och då, om en Word-tabell tillämpas med en oönskad stil eller det minskar den visuella effekten av hela dokumentet, måste du rensa dess stil. Låt oss nu visa dig hur du utför en sådan uppgift.

Metod 1: Rensa stilen för ett ordstabell

1. Först och främst, flytta markören över måltabellen tills du ser krysset i tabellens övre vänstra hörn.
2. Klicka sedan på korsmärket för att välja hela tabellen.
3. Nu har du utlöst “Tabellverktyg”. Klicka på fliken "Design".
4. Klicka sedan på knappen "Mer" i gruppen "Tabellformat" för att visa rullgardinsmenyn.
5. Välj alternativet "Rensa".
6. Nu har bordstilen tagits bort. Så är alla bordsgränser. För att lägga till gränser i tabellen, se till att tabellen är vald. Och klicka på rullgardinsmenyn bredvid kommandot "Borders".
7. Och välj "Alla gränser".

Här är resultatet:

Metod 2: Gruppera alla tabellformat i ett dokument

När vi har gjort enstaka tabell kan inte ämnet batchbearbetning missas. Låt oss först se hur man rensar alla tabellstilar i ett dokument via VBA.

1. Till att börja med, tryck på "Alt+F11" för att visa VBA-editorn i Word.
2. Klicka sedan på "Normal" -projektet i den vänstra kolumnen.
3. Klicka sedan på "Infoga" i menyraden.
4. Och välj ”Modul” på rullgardinsmenyn.
5. Öppna modulens kodutrymme genom att dubbelklicka på det.
6. Klistra in följande makro där:

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. Klicka slutligen på "Kör".

Detta makro rensar alla tabellformat i ett dokument, tillämpar "Table Normal" -stil på dem och lägger också till tabellgränser.

Metod 3: Gruppera alla tabellformat i flera dokument

Nu om du har ett par dokument att hantera, här är makrot för att rensa alla tabellstilar i flera dokument.

1. För det första ordna alla dokument i en mapp.
2. Upprepa stegen i metod 2 för att installera och köra ett makro.
3. Bara den här gången, kom ihåg att ersätta med detta 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ör makrot kommer fönstret "Bläddra" att visas. Välj den mapp du lagrar dokument i steg 1 och klicka på “OK”.

Lämna resten av arbetet till makrot då.

Sätt att återställa förlorade dokument

Med förlorade dokument menar vi att dokumenten har blivit komprometterade på grund av Ordkorruption eller mänskliga fel. När du hanterar sådana dokument bör du alltid komma ihåg att de kan hämtas med hjälp av något avancerat reparationsverktyg.

Författarintroduktion:

Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive reparera xls och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com