3 Nützliche Methoden zum Stapeln aller Tabellenstile in Ihrem Word-Dokument

In diesem Artikel konzentrieren wir uns darauf, Ihnen drei nützliche Methoden zum Stapeln aller Tabellenstile in Ihrem Word-Dokument zu demonstrieren.

Wenn eine Word-Tabelle mit einem unerwünschten Stil angewendet wird oder der visuelle Effekt des gesamten Dokuments verringert wird, müssen Sie gelegentlich den Stil löschen. Lassen Sie uns Ihnen nun zeigen, wie Sie eine solche Aufgabe erfüllen können.

Methode 1: Löschen Sie den Stil einer Ein-Wort-Tabelle

1. Als Erstes sollten Sie den Cursor über die Zieltabelle bewegen, bis Sie das Kreuzsymbol in der oberen linken Ecke der Tabelle sehen.
2. Klicken Sie anschließend auf das Kreuzzeichen, um die gesamte Tabelle auszuwählen.
3. Jetzt haben Sie die "Table Tools" ausgelöst. Klicken Sie auf die Registerkarte "Design".
4. Klicken Sie dann in der Gruppe "Tabellenstile" auf die Schaltfläche "Mehr", um das Dropdown-Menü anzuzeigen.
5. Wählen Sie die Option "Löschen".
6. Jetzt wird der Tabellenstil entfernt. So sind alle Tabellenränder. Stellen Sie zum Hinzufügen von Rahmen zur Tabelle sicher, dass die Tabelle ausgewählt ist. Klicken Sie auf die Dropdown-Schaltfläche neben dem Befehl "Rahmen".
7. Und wählen Sie "Alle Grenzen".

Hier ist das Ergebnis:

Methode 2: Alle Tabellenstile in einem Dokument stapelweise löschen

Sobald wir die einzelne Tabelle erstellt haben, kann das Thema Stapelverarbeitung nicht übersehen werden. Lassen Sie uns zunächst sehen, wie Sie alle Tabellenstile in einem Dokument über VBA löschen.

1. Drücken Sie zunächst „Alt+F11“, um den VBA-Editor in Word anzuzeigen.
2. Klicken Sie anschließend in der linken Spalte auf das Projekt „Normal“.
3. Klicken Sie dann in der Menüleiste auf "Einfügen".
4. Und wählen Sie "Modul" im Dropdown-Menü.
5. Öffnen Sie den Codierungsbereich des Moduls, indem Sie darauf doppelklicken.
6. Fügen Sie nun dort das folgende Makro ein:

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. Klicken Sie abschließend auf "Ausführen".

Dieses Makro löscht alle Tabellenstile in einem Dokument, wendet den Stil "Tabellennormal" auf sie an und fügt auch Tabellenränder hinzu.

Methode 3: Alle Tabellenstile in mehreren Dokumenten stapelweise löschen

Falls Sie nun ein paar Dokumente bearbeiten müssen, finden Sie hier das Makro zum Löschen aller Tabellenstile in mehreren Dokumenten.

1. Ordnen Sie zunächst alle Dokumente in einem Ordner an.
2. Die Wiederholungsschritte in Methode 2 zum Installieren und Ausführen eines Makros.
3. Denken Sie nur dieses Mal daran, durch dieses Makro zu ersetzen:

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. Wenn Sie das Makro ausführen, wird das Fenster "Durchsuchen" angezeigt. Wählen Sie in Schritt 1 den Ordner aus, in dem Sie das Dokument speichern, und klicken Sie auf „OK“.

Überlassen Sie den Rest der Arbeit dem Makro.

Möglichkeiten zur Wiedererlangung verlorener Dokumente

Unter verlorenen Dokumenten verstehen wir, dass die Dokumente aufgrund folgender Gründe beschädigt wurden: Wortkorruption oder menschliche Fehler. Wenn Sie mit solchen Dokumenten arbeiten, sollten Sie immer bedenken, dass sie mit Hilfe eines fortschrittlichen Reparaturwerkzeugs abgerufen werden können.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich xls reparieren und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX