Μετάβαση στο κύριο περιεχόμενο

Πώς να αποδεχτείτε τις αλλαγές κομματιού μορφής μόνο στο έγγραφο του Word;

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

Αποδεχτείτε μόνο αλλαγές μορφών κομματιού στο Word με κώδικα VBA

Αποδοχή μόνο μορφοποίησης αλλαγών κομματιού στο Word με λειτουργία Show Markup


Αποδεχτείτε μόνο αλλαγές μορφών κομματιού στο Word με κώδικα VBA

Ο ακόλουθος κώδικας VBA μπορεί να σας βοηθήσει να αποδεχτείτε τις αλλαγές του κομματιού μορφοποίησης μόνο στο έγγραφο του Word, κάντε το ως εξής:

1. Κρατήστε πατημένο το ALT + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Και μετά, κάντε κλικ στο Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στην κενή κενή ενότητα:

Κωδικός VBA: Αποδοχή αλλαγών κομματιού μορφής μόνο στο έγγραφο του Word

Sub AcceptFormatChanges()
    Dim xRev As Revision
    For Each xRev In ActiveDocument.Revisions
        If Left(xRev.FormatDescription, 10) = "Formatted:" Then
            xRev.Accept
        End If
    Next
End Sub

3. Και στη συνέχεια πατήστε F5 κλειδί για την εκτέλεση αυτού του κώδικα και μόνο οι αλλαγές στο κομμάτι μορφοποίησης έχουν γίνει αποδεκτές στο ενεργό έγγραφο του Word αμέσως. Δείτε το στιγμιότυπο οθόνης:

Το doc δέχεται μορφοποίηση 1


Αποδοχή μόνο μορφοποίησης αλλαγών κομματιού στο Word με λειτουργία Show Markup

Στο έγγραφο του Word, μπορείτε επίσης να εφαρμόσετε το Εμφάνιση σήμανσης λειτουργία για να ολοκληρώσετε αυτήν την εργασία, κάντε τα ακόλουθα βήματα:

1. Στο αρχείο λειτουργίας αλλαγής κομματιού, κάντε κλικ στο Βαθμολογία Κριτικής > Εμφάνιση σήμανσηςκαι, στη συνέχεια, αποεπιλέξτε το Σχόλια και Εισαγωγές και Διαγραφές επιλογές και αφήστε το μορφοποίηση επιλέχθηκε η επιλογή, δείτε το στιγμιότυπο οθόνης:

Το doc δέχεται μορφοποίηση 2

2. Και τώρα, μπορείτε απλώς να δείτε τη μορφοποίηση που παρακολουθείται αλλαγές, στη συνέχεια, συνεχίστε κάνοντας κλικ Βαθμολογία Κριτικής > Αποδέχομαι > Αποδοχή όλων των αλλαγών που εμφανίζονται όπως φαίνεται το παρακάτω στιγμιότυπο οθόνης:

Το doc δέχεται μορφοποίηση 3

3. Και όλες οι αλλαγές του κομματιού μορφοποίησης έχουν γίνει αποδεκτές, τώρα, πρέπει να επιστρέψετε στο Σχόλιο, Εισαγωγές και Διαγραφές επιλογές ελέγχοντας τις από το Εμφάνιση σήμανσης αναπτυσσόμενη λίστα, δείτε το στιγμιότυπο οθόνης:

Το doc δέχεται μορφοποίηση 4

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

Το doc δέχεται μορφοποίηση 1

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!

🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου  /  Ξαναγράψτε το κείμενο  /  Συνοψίστε τα έγγραφα  /  Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word

📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων  /  Συγχώνευση εγγράφων  /  Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...)  /  Μαζική μετατροπή σε PDF  /  Εξαγωγή σελίδων ως εικόνες  /  Εκτύπωση πολλών αρχείων ταυτόχρονα...

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

🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι  /  Διακοπές ενότητας  /  Όλες οι κεφαλίδες  /  Κουτιά κειμένου  /  Υπερ-συνδέσεις  / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...

Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές  /  Πλαίσια ελέγχου  /  Κουμπιά ραδιοφώνου  /  QR Code  /  barcode  /  Διαγώνιος γραμμικός πίνακας  /  Λεζάντα εξίσωσης  /  Λεζάντα εικόνας  /  Λεζάντα πίνακα  /  Πολλαπλές εικόνες  / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...

🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες  /  πίνακες  /  σχήματα  /  επικεφαλίδες παραγράφους  / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...

Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία  /  αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου  /  εναλλαγή μεταξύ των παραθύρων εγγράφων  /  11 Εργαλεία μετατροπής...

???? Θέλετε να δοκιμάσετε αυτές τις δυνατότητες; Το Kutools για το Word προσφέρει α Δωρεάν δοκιμαστική περίοδο 60, χωρίς περιορισμούς! 🚀
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Vous êtes mon héros. En français, le code serait le suivant:

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If Left(xRev.FormatDescription, 12) = "Mis en forme" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Dans toutes les langues :

Sub AcceptFormatChanges()
Dim xRev As Revision
For Each xRev In ActiveDocument.Revisions
If xRev.FormatDescription <> "" Then
xRev.Accept
End If
Next
End Sub
This comment was minimized by the moderator on the site
Merci, en effet, la dernière méthode fonctionne aussi en néerlandais
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations