3 Handige methoden om batchgewijs alle tabelstijlen in uw Word-document te wissen

In dit artikel zullen we ons concentreren op het demonstreren van 3 handige methoden om batchgewijs alle tabelstijlen in uw Word-document te wissen.

Af en toe, als een Word-tabel wordt toegepast met een ongewenste stijl of als het visuele effect van het hele document vermindert, moet u de stijl ervan wissen. Laten we u nu laten zien hoe u een dergelijke taak kunt volbrengen.

Methode 1: Wis de stijl van een woordtabel

1. Beweeg allereerst de cursor over de betreffende tabel totdat u een kruisje in de linkerbovenhoek van de tabel ziet.
2. Klik vervolgens op het kruisteken om de hele tafel te selecteren.
3. Nu heb je de "Hulpmiddelen voor tabellen" geactiveerd. Klik op het tabblad "Design".
4. Klik vervolgens op de knop "Meer" in de groep "Tabelstijlen" om het vervolgkeuzemenu weer te geven.
5. Kies de optie "Wissen".
6. Nu is de tabelstijl verwijderd. Zo zijn alle tafelranden. Zorg ervoor dat de tabel is geselecteerd om randen aan de tabel toe te voegen. En klik op de vervolgkeuzeknop naast het commando "Randen".
7. En kies "Alle randen".

Hier is het resultaat:

Methode 2: Batch alle tabelstijlen in één document wissen

Als we eenmaal de enkele tabel hebben gedaan, kan het onderwerp van batchverwerking niet ontbreken. Laten we eerst eens kijken hoe we alle tabelstijlen in een document via VBA kunnen wissen.

1. Om te beginnen drukt u op "Alt+F11" om de VBA-editor in Word te openen.
2. Klik vervolgens op het “Normaal” project in de linkerkolom.
3. Klik vervolgens op "Invoegen" in de menubalk.
4. En kies "Module" in het drop-down menu.
5. Open de coderingsruimte van de module door erop te dubbelklikken.
6. Plak daar nu de volgende macro:

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 ten slotte op "Uitvoeren".

Deze macro wist alle tabelstijlen in een document, past de stijl "Tabel normaal" hierop toe en voegt ook tabelranden toe.

Methode 3: Batch alle tabelstijlen in meerdere documenten wissen

Als u nu een paar documenten heeft om mee om te gaan, is hier de macro om alle tabelstijlen in meerdere documenten te wissen.

1. Plaats eerst alle documenten in één map.
2. Herhaal de stappen in methode 2 om een ​​macro te installeren en uit te voeren.
3. Vergeet alleen deze keer niet om deze macro te vervangen:

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. Als u de macro uitvoert, verschijnt het venster "Bladeren". Selecteer de map waarin u het document in stap 1 opslaat en klik op "OK".

Laat de rest van het werk dan aan de macro over.

Manieren om verloren documenten terug te vinden

Met verloren documenten bedoelen we documenten die in gevaar zijn gekomen doordat... Woord corruptie of menselijke fouten. Houd er bij het omgaan met dergelijke documenten altijd rekening mee dat ze kunnen worden opgehaald met behulp van een of ander geavanceerd reparatieprogramma.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder reparatie xls en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com