Αυτό το άρθρο θα σας δείξει πώς να καταργήσετε τη μορφοποίηση του επικολλημένου κειμένου με μακροεντολή και VBA στη λέξη σας.
Συμβαίνει πολύ όταν αντιγράφετε ένα κείμενο στο διαδίκτυο και διαπιστώνετε ότι το κείμενο είναι σε πλούσια μορφή. Για παράδειγμα, υπάρχουν επαναλαμβανόμενες λέξεις, κενές γραμμές, χαρακτήρες καρτελών κ.λπ. Ωστόσο, τέτοια μορφοποίηση μπορεί να είναι αρκετά ενοχλητική, ειδικά σε περιπτώσεις που δεν χρειάζεστε. Φυσικά, θα αφαιρέσατε τη μορφοποίηση με μη αυτόματο τρόπο το καθένα. Ωστόσο, τι γίνεται αν το κείμενο είναι πολύ μεγάλο; Τότε η παραπάνω μέθοδος θα είναι λιγότερο αποτελεσματική.
Στην πραγματικότητα, υπάρχει ένας τρόπος για να χρησιμοποιήσετε τη μακροεντολή για να αφαιρέσετε μια ολόκληρη τη μορφοποίηση κειμένου μία για πάντα. Εδώ είναι περισσότερα:
Βήματα για την εγγραφή μιας μακροεντολής στο Word
- Αρχικά, ανοίξτε το Word σας.
- Και βεβαιωθείτε ότι έχετε προσθέσει πρώτα την καρτέλα "Προγραμματιστής" στην Κορδέλα. Για λεπτομερείς οδηγίες για την προσθήκη του «Προγραμματιστή», διαβάστε το άρθρο: Πώς να εισαγάγετε μουσική υπόκρουση στο έγγραφο του Word
- Μόλις η καρτέλα "Προγραμματιστής" είναι διαθέσιμη, κάντε κλικ σε αυτήν.
- Στη συνέχεια, κάντε κλικ στο "Εγγραφή μακροεντολής" στην ομάδα "Κωδικός".
- Τώρα θα εμφανιστεί ένα παράθυρο διαλόγου "Εγγραφή μακροεντολής". Αρχικά, πληκτρολογήστε το όνομα της μακροεντολής, όπως "copytext" εδώ.
- Στη συνέχεια, στο τμήμα "Εκχώρηση μακροεντολής σε", επιλέξτε είτε "Κουμπί" είτε "Πληκτρολόγιο". Εδώ θα πάμε "Button".
- Στη συνέχεια, κάντε κλικ στο "OK".
- Και τώρα θα δείτε το παράθυρο "Επιλογές λέξεων". Κάντε κλικ στην επιλογή "Προσαρμογή κορδέλας".
- Στη συνέχεια, βρείτε μια θέση για τη μακροεντολή στη δεξιά πλευρά. Εδώ θα κάνουμε κλικ στο «Νέα ομάδα» για να ορίσουμε ένα νέο για τη μακροεντολή.
- Noe συνεχίστε να επιλέγετε "Μακροεντολές" από την αναπτυσσόμενη λίστα "Επιλογή εντολών από".
- Στη συνέχεια, κάντε κλικ στη μακροεντολή που μόλις δημιουργήσατε.
- Στη συνέχεια, κάντε κλικ στο "Προσθήκη" στο μέσο του παραθύρου.
- Τώρα η μακροεντολή θα τοποθετηθεί στη νέα ομάδα. Απλώς κάντε δεξί κλικ στη μακροεντολή.
- Και επιλέξτε "Μετονομασία".
- Στο πλαίσιο διαλόγου "Μετονομασία", επιλέξτε ένα σύμβολο για τη μακροεντολή σας.
- Στη συνέχεια, πληκτρολογήστε το εμφανιζόμενο όνομα.
- Κάντε κλικ στο "OK".
- Τώρα επιστρέψτε στο παράθυρο "Επιλογές Word" και κάντε κλικ στο "OK" εκεί. Η μακροεντολή ξεκινά την εγγραφή από τώρα.
Επικόλληση κειμένου ως μη μορφοποιημένου κειμένου
- Πρώτον, αντιγράψτε ένα μέρος ενός μεγάλου κειμένου.
- Στη συνέχεια, κάντε κλικ στην καρτέλα "Αρχική σελίδα".
- Κάντε κλικ στο "Επικόλληση".
- Στη συνέχεια, επιλέξτε "Ειδική επικόλληση".
- Και επιλέξτε "Μη μορφοποιημένο κείμενο" στο παράθυρο διαλόγου "Επικόλληση ειδικού".
- Στη συνέχεια, κάντε κλικ στο "OK". Μπορείτε να λάβετε ένα κείμενο με μορφοποίηση όπως παρακάτω:
Καταργήστε τις επαναλαμβανόμενες λέξεις
- Στη συνέχεια, ξεκινήστε την εκκαθάριση της μορφοποίησης αριστερά. Πατήστε "Ctrl+ H" για να ανοίξετε το παράθυρο διαλόγου "Εύρεση και αντικατάσταση".
- Και πληκτρολογήστε "Βέλος" στο πλαίσιο κειμένου "Εύρεση τι".
- Στη συνέχεια, κάντε κλικ στο "Αντικατάσταση όλων".
Κατάργηση χαρακτήρων καρτέλας
- Αρχικά, πατήστε "Ctrl + H" για να ανοίξετε το παράθυρο διαλόγου "Εύρεση και αντικατάσταση".
- Στη συνέχεια, πληκτρολογήστε "^ t" στο πλαίσιο κειμένου "Εύρεση τι".
- Στη συνέχεια κάντε κλικ στο "Αντικατάσταση όλων" για να καταργήσετε όλους τους χαρακτήρες καρτελών.
Αφαιρέστε επιπλέον κενά
- Ακόμα πατήστε "Ctrl + H" για να ανοίξετε το παράθυρο διαλόγου "Εύρεση και αντικατάσταση".
- Στο πλαίσιο κειμένου "Εύρεση τι", πατήστε το κενό πλήκτρο δύο φορές.
- Στη συνέχεια, κάντε κλικ στο κουμπί "Αντικατάσταση όλων".
Αφαιρέστε τις κενές γραμμές και τα επιπλέον κενά μαζί
Μερικές φορές, όταν χρησιμοποιείτε τη λειτουργία "Εύρεση και αντικατάσταση" για να καταργήσετε τη μορφοποίηση, πρέπει να προσαρμόσετε λίγο για να ικανοποιήσετε τις δικές σας ανάγκες. Για παράδειγμα, εάν αποτύχετε να αφαιρέσετε όλα τα επιπλέον κενά κατά την εφαρμογή των παραπάνω βημάτων, μπορείτε να χρησιμοποιήσετε τα παρακάτω βήματα για να τα διαγράψετε μαζί με κενές γραμμές.
- Παρομοίως, πατήστε "Ctrl + H" για να ανοίξετε το παράθυρο διαλόγου "Εύρεση και αντικατάσταση".
- Στη συνέχεια στο πλαίσιο κειμένου "Εύρεση τι", πατήστε πρώτα ένα κενό πλήκτρο.
- Στη συνέχεια, πληκτρολογήστε "^ p".
- Στο πλαίσιο κειμένου "Αντικατάσταση με", πληκτρολογήστε "^ p".
- Κάντε κλικ στο "Αντικατάσταση όλων".
- Ανοίξτε ξανά το παράθυρο διαλόγου "Εύρεση και αντικατάσταση".
- Και στο πλαίσιο κειμένου "Εύρεση τι", πληκτρολογήστε πρώτα "^ p".
- Στη συνέχεια, πατήστε το κενό πλήκτρο μία φορά.
- Στη συνέχεια, πληκτρολογήστε "^ p" στο πλαίσιο κειμένου "Αντικατάσταση με".
- Τέλος, κάντε κλικ στο κουμπί "Αντικατάσταση όλων".
Αφαιρέστε τις αριστερές γραμμές εάν είναι απαραίτητο
Ωστόσο, εάν απομένουν κενές γραμμές, δοκιμάστε να ακολουθήσετε τα βήματα:
- Πατήστε "Ctrl + H" για να ανοίξετε το παράθυρο διαλόγου "Εύρεση και αντικατάσταση".
- επόμενος τύπος "^ p ^ p" στο πλαίσιο κειμένου "Εύρεση τι".
- Και πληκτρολογήστε "^ p" στο πλαίσιο κειμένου "Αντικατάσταση με".
- Τέλος, κάντε κλικ στο κουμπί "Αντικατάσταση όλων".
Μέχρι τώρα, ενδέχεται να έχετε αποτέλεσμα όπως παρακάτω:
Σας προτείνουμε να ακολουθήσετε την παραπάνω παραγγελία για να καταργήσετε τη μορφοποίηση κειμένου, ώστε να μπορείτε γενικά να διαγράψετε τη μορφοποίηση. Και όπως έχουμε αναφέρει, μερικές φορές πρέπει να διαγράψετε άλλα είδη μορφοποίησης, τότε θα πρέπει να χρησιμοποιήσετε τη λειτουργία "Εύρεση και αντικατάσταση" μόνοι σας. Για περισσότερους τρόπους κατάργησης της μορφοποίησης, μπορείτε να επισκεφθείτε αυτό το άρθρο: 3 τρόποι άμεσης κατάργησης ανεπιθύμητων στοιχείων από τα έγγραφα του Word
Μπορείτε να δείτε το παρακάτω βίντεο για να δείτε την επίδειξη:
Διακοπή εγγραφής μακροεντολής
- Μόλις ολοκληρώσετε την κατάργηση της μορφοποίησης κειμένου, κάντε κλικ στην καρτέλα "Προγραμματιστής".
- Στη συνέχεια, κάντε κλικ στο "Διακοπή εγγραφής". Τώρα η μακροεντολή θα αποθηκευτεί.
Πώς να εκτελέσετε μια μακροεντολή
- Αντιγράψτε το κείμενο με μορφοποίηση στο διαδίκτυο, ας πούμε.
- Ανοίξτε το Word στη συνέχεια.
- Στη συνέχεια, κάντε κλικ στην καρτέλα "Προγραμματιστής".
- Κάντε κλικ στο εικονίδιο μακροεντολής και θα δείτε το κείμενο στο έγγραφο χωρίς επιπλέον μορφοποίηση.
Σημείωση: Για τους αρχάριους, μπορείτε απλώς να κάνετε τα παραπάνω βήματα για να δημιουργήσετε και να εκτελέσετε μια μακροεντολή. Η εκτέλεση μιας μακροεντολής θα σας βοηθήσει να απαλλαγείτε από την ενοχλητική μορφοποίηση γενικά, η οποία είναι αρκετή.
Οι κωδικοί VBA για τον ειδικό
Πρώτα υπάρχει ο τρόπος προβολής των κωδικών VBA.
- Πρώτα κάντε κλικ στην καρτέλα "Προγραμματιστής".
- Στη συνέχεια, κάντε κλικ στο "Visual Basic" στην ομάδα "Κωδικός".
- Στο πρόγραμμα επεξεργασίας "Microsoft Visual Basic for Applications", κάντε πρώτα κλικ στο "Normal" στην αριστερή πλευρά.
- Στη συνέχεια, κάντε κλικ στο "Modules".
- Στη συνέχεια κάντε διπλό κλικ στο "NewMacros" και θα μπορείτε να δείτε τον κώδικα στη δεξιά πλευρά.
Σε αυτήν την περίπτωση, οι κωδικοί είναι οι παρακάτω:
Υπο-κείμενο ()
»
Μακροεντολή copytext
»
»
Selection.PasteSpecial Link: = False, DataType: = wdPasteText, Τοποθέτηση: = _
wdInLine, DisplayAsIcon: = Λάθος
Επιλογή.Φόρτωμα
Επιλογές.Αναφορά.Ανατοχ
Με την επιλογή Selection.Find
. Κείμενο = "Βέλος"
.Replacement.Text = ""
. Forward = True
.Wrap = wdFindContinue
.Format = Λάθος
.MatchCase = Λάθος
.MatchWholeWord = Λάθος
.MatchWildcards = Λάθος
.MatchSoundsLike = Λάθος
.MatchAllWordForms = Λάθος
Τέλος με
Επιλογή.Φίλτρο.Αντικαταστήστε: = wdReplaceAll
Επιλογή.Φόρτωμα
Επιλογές.Αναφορά.Ανατοχ
Με την επιλογή Selection.Find
. Κείμενο = "^ t"
.Replacement.Text = ""
. Forward = True
.Wrap = wdFindContinue
.Format = Λάθος
.MatchCase = Λάθος
.MatchWholeWord = Λάθος
.MatchWildcards = Λάθος
.MatchSoundsLike = Λάθος
.MatchAllWordForms = Λάθος
Τέλος με
Επιλογή.Φίλτρο.Αντικαταστήστε: = wdReplaceAll
Επιλογή.Φίλτρο.Αντικαταστήστε: = wdReplaceAll
Επιλογή.Φόρτωμα
Επιλογές.Αναφορά.Ανατοχ
Με την επιλογή Selection.Find
. Κείμενο = ""
.Replacement.Text = ""
. Forward = True
.Wrap = wdFindContinue
.Format = Λάθος
.MatchCase = Λάθος
.MatchWholeWord = Λάθος
.MatchWildcards = Λάθος
.MatchSoundsLike = Λάθος
.MatchAllWordForms = Λάθος
Τέλος με
Επιλογή.Φίλτρο.Αντικαταστήστε: = wdReplaceAll
Επιλογή.Φόρτωμα
Επιλογές.Αναφορά.Ανατοχ
Με την επιλογή Selection.Find
. Κείμενο = "^ p"
.Replacement.Text = "^ p"
. Forward = True
.Wrap = wdFindContinue
.Format = Λάθος
.MatchCase = Λάθος
.MatchWholeWord = Λάθος
.MatchWildcards = Λάθος
.MatchSoundsLike = Λάθος
.MatchAllWordForms = Λάθος
Τέλος με
Επιλογή.Φίλτρο.Αντικαταστήστε: = wdReplaceAll
Επιλογή.Φόρτωμα
Επιλογές.Αναφορά.Ανατοχ
Με την επιλογή Selection.Find
. Κείμενο = "^ p"
.Replacement.Text = "^ p"
. Forward = True
.Wrap = wdFindContinue
.Format = Λάθος
.MatchCase = Λάθος
.MatchWholeWord = Λάθος
.MatchWildcards = Λάθος
.MatchSoundsLike = Λάθος
.MatchAllWordForms = Λάθος
Τέλος με
Επιλογή.Φίλτρο.Αντικαταστήστε: = wdReplaceAll
Επιλογή.Φόρτωμα
Επιλογές.Αναφορά.Ανατοχ
Με την επιλογή Selection.Find
. Κείμενο = "^ p ^ p"
.Replacement.Text = "^ p"
. Forward = True
.Wrap = wdFindContinue
.Format = Λάθος
.MatchCase = Λάθος
.MatchWholeWord = Λάθος
.MatchWildcards = Λάθος
.MatchSoundsLike = Λάθος
.MatchAllWordForms = Λάθος
Τέλος με
Επιλογή.Φίλτρο.Αντικαταστήστε: = wdReplaceAll
Επιλογή.Φόρτωμα
Επιλογές.Αναφορά.Ανατοχ
Με την επιλογή Selection.Find
. Κείμενο = "^ p ^ p"
.Replacement.Text = "^ p"
. Forward = True
.Wrap = wdFindContinue
.Format = Λάθος
.MatchCase = Λάθος
.MatchWholeWord = Λάθος
.MatchWildcards = Λάθος
.MatchSoundsLike = Λάθος
.MatchAllWordForms = Λάθος
Τέλος με
Επιλογή.Φίλτρο.Αντικαταστήστε: = wdReplaceAll
Sub End
Μιλώντας για ειδικούς και προχωρημένους χρήστες που είναι εξοικειωμένοι με το VBA, μπορείτε να προσαρμόσετε πλήρως τους κωδικούς για να ικανοποιήσετε τις απαιτήσεις σας, οι οποίοι θα είναι πιο βολικοί και ακριβείς.
Ασφαλίστε τα αρχεία σας
Οι χρήστες του Word παγκοσμίως τείνουν να το χρησιμοποιούν καλύτερα. Είναι μια μεγάλη και επικίνδυνη ιδέα, καθώς αυξάνει τον κίνδυνο κατάρρευσης του Word με λανθασμένες λειτουργίες. Επομένως, πρέπει πάντα να βρίσκετε τρόπους για να ασφαλίσετε τα αρχεία σας. Μεταξύ των διαθέσιμων επιλογών, να αποκτήσετε ένα επισκευή εγγράφων το εργαλείο δεν ακούγεται εκ των προτέρων.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων υπερέχετε την ανάκτηση και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com