Note: The other languages of the website are Google-translated. Back to English

Πώς να βρείτε και να αντικαταστήσετε πολλές λέξεις ταυτόχρονα σε ένα έγγραφο του 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-ημερών) αυτού του βοηθητικού προγράμματος, κάντε κλικ για να το κατεβάσετεκαι μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Συνιστώμενα εργαλεία παραγωγικότητας του Word

 

Kutools For Word - Περισσότερες από 100 προηγμένες λειτουργίες για το Word, εξοικονομήστε 50% χρόνο

  • Περίπλοκες και επαναλαμβανόμενες λειτουργίες μπορούν να γίνουν μία φορά επεξεργασία σε δευτερόλεπτα.
  • Εισαγάγετε πολλές εικόνες στους φακέλους στο έγγραφο του Word ταυτόχρονα.
  • Συγχώνευση και συνδυασμός πολλαπλών αρχείων Word σε όλους τους φακέλους σε ένα με την επιθυμητή σειρά.
  • Διαχωρίστε το τρέχον έγγραφο σε ξεχωριστά έγγραφα σύμφωνα με την επικεφαλίδα, το τμήμα αλλαγής ή άλλα κριτήρια.
  • Μετατροπή αρχείων μεταξύ Doc και Docx, Docx και PDF, συλλογή εργαλείων για κοινές μετατροπές και επιλογή και ούτω καθεξής ...
Σχόλια (21)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování. Jak toho dosáhnu;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
θα λειτουργήσει αυτό στο Office Excel 365
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχει τρόπος να γίνει ευαίσθητη αυτή η υπόθεση;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, αυτό λειτουργεί καλά με τις αγγλικές λέξεις. Τώρα κάνω ένα έγγραφο όπου μεταφράζω τα αγγλικά στα γκουτζαράτι. Έτσι, όταν εφαρμόζω αυτό, (Find English Words) και (Replace with Gujarati words), αλλάζει αλλά εμφανίζεται σαν "???". Δεν δείχνει τη λέξη Γκουτζαράτι αλλά μόνο ερωτηματικά; Κάποια περαιτέρω βοήθεια; Σας παρακαλούμε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Shailesh, αντιμετωπίζεις το ίδιο πρόβλημα. Βρήκες λύση σε αυτό. Προσπαθώ επίσης να καταλάβω πώς να αλλάξω από κινέζικα σε αγγλικά.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πώς να βρείτε και να επιλέξετε πολλές λέξεις ταυτόχρονα
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σας,
Μετά την εκτέλεση του κώδικα, θα εμφανιστεί ένα παράθυρο διαλόγου Kutools για Excel, εισαγάγετε τις λέξεις-κλειδιά που θα βρείτε και διαχωρίστε τις με κόμματα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, πώς μπορεί να αναθεωρηθεί αυτή η μακροεντολή για να λάβει περισσότερες λέξεις-κλειδιά; Έχω περίπου 170 λέξεις που θα ήθελα να βρω και να αντικαταστήσω
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου JM,
Μετά την εκτέλεση του κώδικα, θα εμφανιστεί ένα παράθυρο διαλόγου Kutools για Excel, εισαγάγετε τις λέξεις-κλειδιά που θα βρείτε και διαχωρίστε τις με κόμματα.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια! Αρχικά, συγχαρητήρια για τη δουλειά σας: αυτή η μακροεντολή είναι πολύ χρήσιμη και ενδιαφέρουσα! Θα ήθελα, ωστόσο, να με βοηθήσετε σε ένα πράγμα. Είμαι διορθωτής και θα ήθελα οι αντικαταστάσεις να είναι επιγραμμισμένες σε πράσινο ή κόκκινο χρώμα. Πως μπορώ να το κάνω? Υπάρχει κάποια γραμμή κώδικα που θα μπορούσα να χρησιμοποιήσω;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια, Η δυνατότητα εύρεσης και αντικατάστασης παρτίδας του Kutools για Word μπορεί να λύσει τέλεια το πρόβλημά σας, μπορείτε να δοκιμάσετε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Αφού πατήσετε Αντικατάσταση, απλώς πηγαίνει στην Προεπισκόπηση και δεν κάνει τίποτα περαιτέρω.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια Ajs, Όλες οι απαιτούμενες λέξεις έχουν αντικατασταθεί με επιτυχία αμέσως αφού πατήσετε το κουμπί Αντικατάσταση. Μεταβαίνει στην καρτέλα Προεπισκόπηση για να σας βοηθήσει να μάθετε πόσες λέξεις έχουν αντικατασταθεί με επιτυχία. Μετά από αυτό, κλείστε το παράθυρο διαλόγου.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Τι γίνεται αν προσπαθώ να αντικαταστήσω κόμματα;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο κωδικός VBA δεν μπορεί να βοηθήσει στην αντικατάσταση των κόμματων. Μπορείτε να εφαρμόσετε Kutools για να επιτύχετε.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Στην πρώτη οδηγία (Εύρεση και αντικατάσταση πολλών λέξεων ταυτόχρονα στο Word με κώδικα VBA), δεν βρίσκει περιπτώσεις όπου η λέξη προς αντικατάσταση πέφτει στη μέση μιας λέξης (Για παράδειγμα, .com μετά από ένα όνομα ιστότοπου) . Μπορεί να τροποποιηθεί για να γίνει αυτό;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ευχαριστούμε για το έργο, θα μπορούσατε να το κάνετε με τον τρόπο που μπορούμε επίσης να αντικαταστήσουμε τα γράμματα στις λέξεις. Για παράδειγμα, αν θέλω να αλλάξω το Dollar ως DoLLar δεν λειτουργεί.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Chào bạn, có cách nào th r r r r r đ đ đ đ đ đ đ đ đ đ đ đ đ đ đ đ đ đ đ đ đ đ đ đ đ đ cụm từ đích được không; rất cám ơn bạn.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Nguyễn Phúc Lâm,
Σας συνιστώ να εφαρμόσετε τη δυνατότητα Batch Find and Replace του Kutools for Word (η δεύτερη μέθοδος σε αυτήν την ανάρτηση) για να λύσετε αυτό το πρόβλημα.
Στο παράθυρο διαλόγου Εύρεση και αντικατάσταση, αφού δημιουργήσετε τις δύο στήλες που χρειάζεστε, μπορείτε να αποθηκεύσετε τις τρέχουσες ρυθμίσεις ως σενάριο για μελλοντική χρήση.
https://www.extendoffice.com/images/stories/comments/comment-picture-zxm/find_and_replace.png
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Cám ơn Crystal, Cách Này Có Thể Áp dụng Với Một S ố nh ỏ các c CHON THO, n ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ể ~ Vậy có cách nào khác không bạn; Cám ơn bạn đã trả lời
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Γεια σου Nguyễn Phúc Lâm,
Προσωρινά δεν μπορώ να αντιμετωπίσω αυτό το πρόβλημα με τον κώδικα VBA καθώς είναι λίγο περίπλοκο. Αυτή η δυνατότητα θα εξεταστεί για αναβάθμιση στην επόμενη έκδοση. Συγγνώμη για την ταλαιπωρία.
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL