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

Gjenoppretting av Word-dokument, Word-løsninger Juli 26, 2017

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.Slett alle tabellstiler i Word-dokumentet

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".Velg Tabell->Klikk "Design"->Klikk "Tøm"
  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".Klikk på rullegardinknappen ved siden av "Borders" Kommando->Velg "All Borders"

Her er resultatet:Effekten av å tømme tabellstil og legge til kantlinjer

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.Klikk "Normal" -> Klikk "Sett inn" -> Klikk "Modul"
  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 Every objTable In objDoc.Tables objTable.Style = "Table Normal" objTable.Borders.Enable = True Next objTable Sett objDoc = Ingenting End Sub
  1. Klikk til slutt "Kjør".Lim inn makro-> Klikk "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 Sett dlgFile = Application.FileDialog(msoFileDialogFolderPicker) With dlgFile If .Show "\" Else MsgBox "Velg en mappe først." Exit Sub End If End With strFile = Dir(StrFolder & "*.docx", vbNormal) While strFile <> "" Set objDoc = Documents.Open(FileName:=StrFolder & strFile) Set objDoc = ActiveDocument For Every objTable In objDoc. Tabeller objTable.Style = "Tabell Normal" objTable.Borders.Enable = True Neste objTable objDoc.Save objDoc.Close strFile = Dir() Wend End Sub
  1. Når du kjører makroen, vil det være "Bla gjennom"-vinduet. Velg mappen du lagrer dokumentet i trinn 1 og klikk "OK".Velg mappen-> 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

Kommentarer er stengt.