3 Χρήσιμες μέθοδοι για τη μαζική εκκαθάριση όλων των στυλ πίνακα στο έγγραφο του Word

Σε αυτό το άρθρο, θα επικεντρωθούμε στην επίδειξη 3 χρήσιμων μεθόδων για τη διαγραφή όλων των στυλ πίνακα στο έγγραφο του Word.

Κάθε τόσο, εάν ένας πίνακας Word εφαρμόζεται με ανεπιθύμητο στυλ ή μειώνει το οπτικό εφέ ολόκληρου του εγγράφου, πρέπει να διαγράψετε το στυλ του. Τώρα ας σας δείξουμε πώς να πετύχετε ένα τέτοιο έργο.

Μέθοδος 1: Εκκαθάριση του στυλ ενός πίνακα του Word

1. Πρώτα και κύρια, μετακινήστε τον κέρσορα πάνω από τον πίνακα-στόχο μέχρι να δείτε το σύμβολο του σταυρού στην επάνω αριστερή γωνία του πίνακα.
2. Στη συνέχεια κάντε κλικ στο σταυρό για να επιλέξετε ολόκληρο τον πίνακα.
3. Τώρα έχετε ενεργοποιήσει τα "Επιτραπέζια Εργαλεία". Κάντε κλικ στην καρτέλα "Σχεδίαση".
4. Στη συνέχεια, κάντε κλικ στο κουμπί "Περισσότερα" στην ομάδα "Στυλ πίνακα" για να εμφανιστεί το αναπτυσσόμενο μενού.
5. Ορίστε την επιλογή "Εκκαθάριση".
6. Τώρα το στυλ του πίνακα αφαιρείται. Το ίδιο ισχύει και για τα όρια του πίνακα. Για να προσθέσετε περιγράμματα στον πίνακα, βεβαιωθείτε ότι είναι επιλεγμένος ο πίνακας Και κάντε κλικ στο αναπτυσσόμενο κουμπί δίπλα στην εντολή "Σύνορα".
7. Και επιλέξτε "Όλα τα σύνορα".

Εδώ είναι το αποτέλεσμα:

Μέθοδος 2: Μαζική διαγραφή όλων των στυλ πίνακα σε ένα έγγραφο

Μόλις ολοκληρώσουμε τον ενιαίο πίνακα, το θέμα της επεξεργασίας παρτίδας δεν μπορεί να χαθεί. Αρχικά, ας δούμε πώς να διαγράψετε όλα τα στυλ πίνακα σε ένα έγγραφο μέσω VBA.

1. Για να ξεκινήσετε, πατήστε "Alt+F11" για να εμφανιστεί ο επεξεργαστής VBA στο Word.
2. Στη συνέχεια κάντε κλικ στο "Κανονικό" έργο στην αριστερή στήλη.
3. Στη συνέχεια, κάντε κλικ στο "Εισαγωγή" στη γραμμή μενού.
4. Και επιλέξτε "Module" στο αναπτυσσόμενο μενού.
5. Ανοίξτε το χώρο κωδικοποίησης της μονάδας κάνοντας διπλό κλικ πάνω του.
6. Τώρα επικολλήστε την ακόλουθη μακροεντολή εκεί:

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. Τέλος, κάντε κλικ στο "Εκτέλεση".

Αυτή η μακροεντολή διαγράφει όλα τα στυλ πίνακα σε ένα έγγραφο, εφαρμόζει στυλ "Table Normal" και προσθέτει περιγράμματα πίνακα.

Μέθοδος 3: Μαζική εκκαθάριση όλων των στυλ πίνακα σε πολλά έγγραφα

Τώρα σε περίπτωση που έχετε δύο έγγραφα για να χειριστείτε, εδώ είναι η μακροεντολή για την εκκαθάριση όλων των στυλ πίνακα σε πολλά έγγραφα.

1. Αρχικά, τακτοποιήστε όλα τα έγγραφα σε έναν φάκελο.
2. Τα βήματα επανάληψης στη μέθοδο 2 για εγκατάσταση και εκτέλεση μακροεντολής.
3. Μόνο αυτή τη φορά, θυμηθείτε να αντικαταστήσετε με αυτήν τη μακροεντολή:

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. Εκτελώντας τη μακροεντολή, θα υπάρχει το παράθυρο "Αναζήτηση". Επιλέξτε το φάκελο που αποθηκεύετε το έγγραφο στο βήμα 1 και κάντε κλικ στο "OK".

Αφήστε λοιπόν την υπόλοιπη δουλειά στη μακροεντολή.

Τρόποι για την ανάκτηση χαμένων εγγράφων

Με τον όρο χαμένα έγγραφα, εννοούμε ότι τα έγγραφα παραβιάζονται λόγω Λέξη διαφθορά ή ανθρώπινα λάθη. Ενώ ασχολείστε με τέτοια έγγραφα, θα πρέπει πάντα να έχετε κατά νου ότι μπορούν να ανακτηθούν με τη βοήθεια κάποιου προηγμένου εργαλείου επισκευής.

Εισαγωγή συγγραφέα:

Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή xls και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com