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

Πώς να βρείτε και να αντικαταστήσετε πολλές λέξεις ταυτόχρονα σε ένα έγγραφο του 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 για Word.

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

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

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

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

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

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

Μεταμορφώστε τις εργασίες σας στο Word με το Kutools. 👉 Λήψη με δοκιμή 30 ημερών τώρα 🚀.

 
Comments (23)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
The VBA script you provide here seems to work only for Latin characters; is there some workaround to get special characters to work.
I work with Sanskrit, which used the Devanagari script, similar to Hindi. (1) The VBA does not accept the Devanagai font nor does it find the Latin characters with diacriticals. For example: It fails miserably if I search for mūlādhāra (मूलाधार). It doesn't seem to recognize the ū or ā, for example, and the Devanagari is a complete loss.

Moreover, does the script recognize spaces between words? If not, how do I get them in there?

Thank you!
This comment was minimized by the moderator on the site
Chào bạn, có cách nào thay thế RẤT NHIỀU cụm từ bằng RẤT NHIỀU cụm từ khác (nhập từng cụm từ rất mất thời gian) bằng cách m lập một file trong đó có 2 cột, 1 cột là cụm từ nguồn và cột 2 là cụm từ đích được không? rất cám ơn bạn.
This comment was minimized by the moderator on the site
Hi Nguyễn Phúc Lâm,
I recommand you apply the Batch Find and Replace feature of Kutools for Word (the second method in this post) to solve this problem.
In the Find and Replace dialog box, after creating the two columns you need, you can save the current settings as a scenaria for future use.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
This comment was minimized by the moderator on the site
Cám ơn Crystal, cách này có thể áp dụng với một số lượng nhỏ các cụm từ, nếu với số lượng các cụm từ lớn (hơn 1000, hơn 10000.. cụm từ) thì rất khó để có thể nhập thủ công. Vậy có cách nào khác không bạn? Cám ơn bạn đã trả lời
This comment was minimized by the moderator on the site
Hi Nguyễn Phúc Lâm,
Temporarily unable to deal with this problem with VBA code as it is a bit complex. This feature will be considered for upgrade in the next release. Sorry for the inconvenience.
This comment was minimized by the moderator on the site
Thanks for the project, Could you make it the way we can also replace letters in words. For example if i want to change Dollar as DoLLar it does not function.
This comment was minimized by the moderator on the site
In the first instruction (Find And Replace Multiple Words At The Same Time In Word With VBA Code), it does not find instances where the word to be replaced falls in the middle of a word (For example, .com following a website name). Can this be modified to do so?
This comment was minimized by the moderator on the site
What if I'm trying to replace commas?
This comment was minimized by the moderator on the site
The VBA code can't help to replace commas. You can apply Kutools to achieve.
This comment was minimized by the moderator on the site
After hitting Replace it just goes to Preview and doesn't do anything further.
This comment was minimized by the moderator on the site
Hi Ajs,All required words have been successfully replaced at once after hitting the Replace button. It goes to the Preview tab to help you know how many words have been successfully replaced. After that, close the dialog box.
This comment was minimized by the moderator on the site
Hi! First, congratulations for your work: this macro is very useful and interesting! I would like, neverthless, you help me with one thing. I am a proofreader and would like the replacements would highlithed in green or red color. How can I do this? Is there a code line I could use?
This comment was minimized by the moderator on the site
Hi, The Batch Find and Replace feature of Kutools for Word can perfectly solve your problem, you can have a try.
This comment was minimized by the moderator on the site
Hi how can this macro be revised to take more key words? I have about 170 words that I wold like to find and replace
This comment was minimized by the moderator on the site
Hi JM,
After running the code, a Kutools for Excel dialog box will pop up, please enter the keywords you will find and separate them with commas.
This comment was minimized by the moderator on the site
How to find and select multiple words at the same time
This comment was minimized by the moderator on the site
Hi,
After running the code, a Kutools for Excel dialog box will pop up, please enter the keywords you will find and separate them with commas.
This comment was minimized by the moderator on the site
Hi, This works well with English Words. Now I am doing a document where I translate English to Gujarati. So, when I apply this, (Find English Words) and (Replace with Gujarati words), it does change but it appears like "???". Doesn't show the Gujarati word but just question marks? Any further help? Please.
This comment was minimized by the moderator on the site
I'm have a similar problem with Sanskrit, not only the Devanagari script but also the English/Latin diacriticals on the special characters like ā, ū, ṛ, ṁ, ṃ, etc. Any suggestions for a workable fix?
This comment was minimized by the moderator on the site
Hello Shailesh, facing the same issue. Did you find a solution to it. Am also trying to figure out how to change from Chinese to English.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations