Πώς να βρείτε και να αντικαταστήσετε πολλές λέξεις ταυτόχρονα σε ένα έγγραφο του Word;
Το Word παρέχει μια λειτουργία Εύρεση και αντικατάστασης για να βρείτε όλες τις εμφανίσεις μιας λέξης ή φράσης και να τις αντικαταστήσετε με μια νέα λέξη ταυτόχρονα. Αλλά αν θέλετε να βρείτε και να αντικαταστήσετε διαφορετικές λέξεις ταυτόχρονα, αυτή η ενσωματωμένη λειτουργία δεν μπορεί να βοηθήσει. Σε αυτό το άρθρο, μιλάμε για μια μέθοδο VBA για την εύρεση και αντικατάσταση πολλών διαφορετικών λέξεων ταυτόχρονα στο έγγραφο του Word.
Βρείτε και αντικαταστήστε πολλές λέξεις ταυτόχρονα στο Word με κωδικό VBA
Βρείτε και αντικαταστήστε εύκολα πολλές λέξεις ταυτόχρονα στο Word με μια καταπληκτική δυνατότητα
Βρείτε και αντικαταστήστε πολλές λέξεις ταυτόχρονα στο Word με κωδικό VBA
Κάντε τα εξής για να βρείτε και να αντικαταστήσετε πολλές λέξεις ταυτόχρονα σε ένα έγγραφο του Word.
1. Ανοίξτε το έγγραφο του Word που θέλετε να βρείτε και αντικαταστήστε πολλές λέξεις ταυτόχρονα και, στη συνέχεια, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης. Στη συνέχεια, αντιγράψτε κάτω από τον κώδικα VBA στο παράθυρο Module.
Κωδικός VBA: Βρείτε και αντικαταστήστε πολλές λέξεις ταυτόχρονα στο Word
Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
Dim xFind As String
Dim xReplace As String
Dim xFindArr, xReplaceArr
Dim I As Long
Application.ScreenUpdating = False
xFind = InputBox("Enter items to be found here,seperated by comma: ", "Kutools for Word")
xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")
xFindArr = Split(xFind, ",")
xReplaceArr = Split(xReplace, ",")
If UBound(xFindArr) <> UBound(xReplaceArr) Then
MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
Exit Sub
End If
For I = 0 To UBound(xFindArr)
Selection.HomeKey Unit:=wdStory
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = xFindArr(I)
.Replacement.Text = xReplaceArr(I)
.Format = False
.MatchWholeWord = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next
Application.ScreenUpdating = True
End Sub
3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα.
4. Στην πρώτη Kutools για το Word πλαίσιο διαλόγου, εισαγάγετε τις πολλές λέξεις που θα βρείτε και αντικαταστήστε το στο πλαίσιο κειμένου και διαχωρίστε τις με κόμμα και, στη συνέχεια, κάντε κλικ στο OK κουμπί. Δείτε το στιγμιότυπο οθόνης:
5. Στο δεύτερο Kutools για το Word πλαίσιο διαλόγου, εισαγάγετε τις νέες λέξεις με τις οποίες θα αντικαταστήσετε (αυτές οι λέξεις πρέπει επίσης να διαχωριστούν με κόμματα) και, στη συνέχεια, κάντε κλικ στο OK κουμπί.
Σημείωση: Σε αυτήν την περίπτωση, όλα «ΚΤΕ» σε αυτό το έγγραφο θα αντικατασταθεί με "Νέος", και «KTO» και «KTW» θα αντικατασταθεί με "Δοκιμή" και "Φινίρισμα". Αλλάξτε τις ανάλογα με τις ανάγκες σας.
Βρείτε και αντικαταστήστε εύκολα πολλές λέξεις ταυτόχρονα στο Word με μια καταπληκτική δυνατότητα
Η Μαζική εύρεση και αντικατάσταση χαρακτηριστικό του Kutools για το Word μπορεί να βοηθήσει εύκολα στην εύρεση και αντικατάσταση διαφορετικών κειμένων σε ένα έγγραφο ή σε πολλά έγγραφα ταυτόχρονα.
Προτού εφαρμόσετε αυτήν τη λειτουργία, αφιερώστε λίγα λεπτά για να κατεβάστε και εγκαταστήστε το πρώτα.
1. Εκκινήστε την εφαρμογή Microsoft Word, κάντε κλικ στο Kutools Plus > Μαζική εύρεση και αντικατάσταση.
2. Στο Μαζική εύρεση και αντικατάσταση παράθυρο, παρακαλώ διαμορφώστε τα εξής.
- 2.1 κάντε κλικ στο κουμπί> Προσθήκη αρχείου or Προσθήκη φακέλου για να προσθέσετε ένα ή περισσότερα έγγραφα στα οποία θα βρείτε και να αντικαταστήσετε πολλές λέξεις.
- 2.2 Κάντε κλικ στο Πρόσθεσε γραμμή κουμπί για να εισαγάγετε τα πεδία εύρεσης και αντικατάστασης. Εάν θέλετε να βρείτε και να αντικαταστήσετε τρία διαφορετικά κείμενα ταυτόχρονα, δημιουργήστε τρεις σειρές.
- 2.3 Σε κάθε σειρά, εισαγάγετε τις υπάρχουσες λέξεις που θα αντικαταστήσετε με μια νέα στο Εύρεση και στη συνέχεια εισαγάγετε τις νέες λέξεις στο Αντικαταστήστε στήλη.
- 2.4 Προσδιορίστε το Τύπος αναζήτησης για κάθε σειρά.
- 2.5 Στο Βρείτε μέσα στήλη, επιλέξτε πού θα εφαρμόσετε την εύρεση και αντικατάσταση. Περιλαμβάνει Κύριο έγγραφο, επικεφαλίδα και Υποσέλιδο σε ΑΥΤΗΝ την ΕΝΟΤΗΤΑ. Μπορείτε να επιλέξετε ένα από αυτά, δύο από αυτά ή όλα ανάλογα με τις ανάγκες σας.
- 2.6. Κάντε κλικ στο κουμπί Αντικαταστήστε για να ξεκινήσει η λειτουργία. Δείτε το στιγμιότυπο οθόνης:
Στη συνέχεια, οι συγκεκριμένες λέξεις αντικαθίστανται σε επιλεγμένα έγγραφα ταυτόχρονα.
Συμβουλή: Μπορείτε να επισημάνετε το αποτέλεσμα με το χρώμα φόντου καθορίζοντας συγκεκριμένο χρώμα στο Επισημάνετε στήλη για μια σειρά.
Εάν θέλετε να έχετε μια δωρεάν δοκιμή (60-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Συνοψίστε τα έγγραφα / Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...) / Μαζική μετατροπή σε PDF / Εξαγωγή σελίδων ως εικόνες / Εκτύπωση πολλών αρχείων ταυτόχρονα...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Όλες οι κεφαλίδες / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...
➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Διαγώνιος γραμμικός πίνακας / Λεζάντα εξίσωσης / Λεζάντα εικόνας / Λεζάντα πίνακα / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...
🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες / πίνακες / σχήματα / επικεφαλίδες παραγράφους / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία / αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / εναλλαγή μεταξύ των παραθύρων εγγράφων / 11 Εργαλεία μετατροπής...