Τρόπος δέσμης αποδοχής ή απόρριψης όλων των αλλαγών σε έγγραφα πολλαπλών λέξεων

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

Είναι εύκολο να αποδεχτείτε ή να απορρίψετε όλες τις αλλαγές σε ένα έγγραφο του Word. Απλώς πρέπει να κάνετε κλικ στην καρτέλα "Έλεγχος" και, στη συνέχεια, κάντε κλικ στο αναπτυσσόμενο κουμπί στην εντολή "Αποδοχή" ή "Απόρριψη". Στη συνέχεια επιλέξτε "Αποδοχή όλων των αλλαγών στο έγγραφο" ή "Απόρριψη όλων των αλλαγών στο έγγραφο".

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

Εισαγάγετε μια φόρμα χρήστη

1. Αρχικά, πατήστε "Alt + F11" για να ανοίξετε το πρόγραμμα επεξεργασίας VBA στο Word.
2. Δεύτερον, κάντε κλικ στο "Normal".
3. Στη συνέχεια, κάντε κλικ στο «Εισαγωγή» στη γραμμή μενού.
4. Επιλέξτε "UserForm" σε αυτό το μενού.
5. Κάντε κλικ στις λαβές γύρω από τη φόρμα για να το αλλάξετε σωστά.
6. Πατήστε "F4" για να εμφανιστεί το "παράθυρο ιδιοτήτων" στην αριστερή γωνία.
7. Στη συνέχεια, ονομάστε τη φόρμα ως "frmAcceptOrRejectChanges" και ορίστε τη λεζάντα ως "Αποδοχή / Απόρριψη αλλαγών". Εκτός αυτού, ορίστε το "ShowModal" ως "False".
8. Στη συνέχεια, κάντε κλικ στο "Εργαλειοθήκη" στη γραμμή μενού.
9. Χρησιμοποιήστε χειριστήρια στο πλαίσιο εργαλείων για να δημιουργήσετε 3 κουμπιά εντολών και μια ετικέτα και να τα τοποθετήσετε με τέτοια σειρά:
10. Τώρα κάντε κλικ στην ετικέτα για να ενεργοποιήσετε το παράθυρο ιδιοτήτων του. Ορίστε τη λεζάντα του ως "Θέλετε να:". Συνιστάται να ορίσετε το φόντο της ετικέτας ως διαφανές. Εκτός αυτού, μπορείτε να ορίσετε το χρώμα και το μέγεθος της γραμματοσειράς όπως θέλετε.
11. Στη συνέχεια κάντε κλικ στο κουμπί εντολής 1. Ονομάστε το ως "btnAccept". Ορίστε τη λεζάντα ως "Αποδοχή όλων των αλλαγών σε πολλά έγγραφα".
12. Στη συνέχεια, κάντε διπλό κλικ στο κουμπί εντολής 1 και εισαγάγετε τους ακόλουθους κωδικούς:

Private Sub btnAccept_Click()
  Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)

  With dlgFile
    dlgFile.AllowMultiSelect = True
    If .Show = -1 Then
      For nDocx = 1 To dlgFile.SelectedItems.Count
        Documents.Open dlgFile.SelectedItems(nDocx)
        Set objDocx = ActiveDocument

        objDocx.AcceptAllRevisions
        objDocx.Save
        objDocx.Close
      Next nDocx
    Else
      MsgBox ("You need to select documents first!")
      Exit Sub
    End If
  End With
  MsgBox ("You have accepted all revisions in selected documents.")
  Set objDocx = Nothing

End Sub

13. Τώρα επιστρέψτε στη φόρμα και κάντε κλικ στο κουμπί εντολής 2. Ονομάστε το ως "btnReject". Και ορίστε το κείμενο της λεζάντας ως "Απόρριψη όλων των αλλαγών σε πολλά έγγραφα".
14. Ομοίως, κάντε διπλό κλικ στο κουμπί εντολής 2 και εισαγάγετε αυτούς τους κωδικούς:

Private Sub btnReject_Click()
  Set dlgFile = Application.FileDialog(msoFileDialogFilePicker)  
    
  With dlgFile
    dlgFile.AllowMultiSelect = True
    If .Show = -1 Then
      For nDocx = 1 To dlgFile.SelectedItems.Count
        Documents.Open dlgFile.SelectedItems(nDocx)
        Set objDocx = ActiveDocument
              
        objDocx.RejectAllRevisions
        objDocx.Save
        objDocx.Close
      Next nDocx
    Else
      MsgBox ("You need to select documents first!")
      Exit Sub
    End If
  End With
  MsgBox ("You have rejected all revisions in selected documents.")
  Set objDocx = Nothing
End Sub

15. Και στη συνέχεια κάντε κλικ στο κουμπί εντολής 3. Ονομάστε το ως "btnClose" και ορίστε τη λεζάντα ως "Κλείσιμο".
16. Ομοίως, κάντε διπλό κλικ στο κουμπί εντολής 3 και πληκτρολογήστε κωδικούς:

Private Sub btnClose_Click()
  Unload Me
End Sub

17. Αποθηκεύστε όλους τους κωδικούς.

Εισαγάγετε μια ενότητα

1. Αρχικά, επαναλάβετε τα βήματα 2 και 3 παραπάνω.
2. Και αυτή τη φορά επιλέξτε "Module".
3. Κάντε διπλό κλικ για να εισαγάγετε τη νέα ενότητα και εισαγάγετε αυτήν τη μακροεντολή:

Sub ShowAcceptOrRejectForm()
  frmAcceptOrRejectRevisions.Show
End Sub

4. Αποθηκεύστε τη μακροεντολή. Μπορείτε να επιλέξετε να αντιστοιχίσετε ένα κουμπί για αυτήν τη μακροεντολή. Για λεπτομερή βήματα, μπορείτε να ακολουθήσετε αυτόν τον σύνδεσμο για αναφορά: Πώς να αφαιρέσετε τη μορφοποίηση των επικολλημένων κειμένων με μακροεντολή και VBA στο Word σας
5. Εκτελέστε τη μακροεντολή για να ρυθμίσετε τη φόρμα χρήστη. Κάντε κλικ στο "Αποδοχή όλων των αλλαγών σε πολλά έγγραφα" ή "Απόρριψη όλων των αλλαγών σε πολλά έγγραφα" και θα ενεργοποιήσετε το παράθυρο "Αναζήτηση". Επιλέξτε έγγραφα και κάντε κλικ στο "OK".

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

Χειριστείτε τη διαφθορά εγγράφων

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

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

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