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

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

Μερικές φορές, χρειάζεται να αλλάξουμε ορισμένα κείμενα σε ένα έγγραφο του Word σε εκθέτες ή υποδείκτες, ειδικά όταν υπάρχουν πολλαπλές εμφανίσεις του ίδιου κειμένου. Υπό αυτές τις συνθήκες, η μαζική αντικατάσταση είναι αυτό που χρειαζόμαστε περισσότερο. Για αυτόν τον λόγο, σας προσφέρουμε 2 γρήγορες μεθόδους για να ολοκληρώσετε την εργασία.

Μέθοδος 1: Χρησιμοποιήστε τη δυνατότητα "Εύρεση και αντικατάσταση"

Στα επόμενα περιεχόμενα, θα χρησιμοποιήσουμε το δείγμα «DataNumen Word Repair v2.5 "ως επίδειξη μας. Στόχος μας είναι να αντικαταστήσουμε το "v2.5" ως συνδρομητή.

1. Πρώτα απ 'όλα, κάντε κλικ στην καρτέλα "Αρχική".
2. Στη συνέχεια κάντε κλικ στο "Αντικατάσταση" για να ανοίξετε το παράθυρο διαλόγου "Εύρεση και αντικατάσταση".
3. Εισαγάγετε πρώτα το "v2.5" στο πλαίσιο κειμένου "Εύρεση τι". Μην ξεχάσετε να εισαγάγετε ένα κενό διάστημα πριν από το κείμενο.
4. Στη συνέχεια, πληκτρολογήστε "v2.5" στο πλαίσιο κειμένου "Αντικατάσταση με". Δεν υπάρχει χώρος πριν από το κείμενο αυτή τη φορά.
5. Στη συνέχεια, κάντε κλικ στο κουμπί "Περισσότερα" για να επεκτείνετε περισσότερες επιλογές.
6. Τώρα κάντε κλικ στο "Μορφή" και επιλέξτε "Γραμματοσειρά".
7. Στο παράθυρο διαλόγου "Εύρεση γραμματοσειράς", επιλέξτε το πλαίσιο "Υπερκείμενη" ή "Συνδρομή".
8. Στη συνέχεια, κάντε κλικ στο "OK".
9. Τέλος, κάντε κλικ στο κουμπί "Αντικατάσταση όλων".

Μπορείτε να ελέγξετε το αποτέλεσμα εδώ:

Μέθοδος 2: Αντικατάσταση παρτίδας με εκτέλεση μακροεντολών Word

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

Sub ReplaceTheTextAsSubscript()
  Dim strSelectText As String
  Dim strReplaceText As String
 
  strSelectText = InputBox("Enter the text you want to search", "Select text", "For example: v2.5")
  strReplaceText = InputBox("Enter the text you want to replace with", "Replace text", "For example:v2.5")
 
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find.Replacement.Font
    .Superscript = False
    .Subscript = True
  End With
  With Selection.Find
    .Text = strSelectText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

6. Κάντε κλικ στο "Εκτέλεση".
7. Πρώτα υπάρχει το πλαίσιο "Επιλογή κειμένου". Εισαγάγετε το κείμενο εύρεσης και κάντε κλικ στο "OK". Σε αυτήν την περίπτωση, πληκτρολογήστε "v2.5".
8. Στη συνέχεια υπάρχει το πλαίσιο "Αντικατάσταση κειμένου". Εισαγάγετε το κείμενο αντικατάστασης και κάντε κλικ στο "OK". Πληκτρολογήστε "v2.5".

Εάν πρέπει να αλλάξετε κείμενα σε υπερκείμενο, μπορείτε να χρησιμοποιήσετε αυτήν τη μακροεντολή:

Sub ReplaceTheTextAsSuperscript()
  Dim strSelectText As String
  Dim strReplaceText As String
 
  strSelectText = InputBox("Enter the text you want to search", "Select text", "For example: v2.5")
  strReplaceText = InputBox("Enter the text you want to replace with", "Replace text", "For example:v2.5")
 
  Selection.Find.ClearFormatting
  Selection.Find.Replacement.ClearFormatting
  With Selection.Find.Replacement.Font
    .Superscript = True
    .Subscript = False
  End With
  With Selection.Find
    .Text = strSelectText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Επιδιόρθωση σφαλμάτων εγγράφου

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

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

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