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

Πώς να βρείτε και να αντικαταστήσετε κείμενο σε έγγραφο Word από το Excel;

Στο έγγραφο του Word, μπορούμε να εφαρμόσουμε τη συνάρτηση Εύρεση και αντικατάσταση για γρήγορη εύρεση και αντικατάσταση ενός κειμένου. Ωστόσο, εάν υπάρχουν πολλά κείμενα που πρέπει να βρεθούν και να αντικατασταθούν, εισαγάγετε το κείμενο ένα προς ένα στη λειτουργία Εύρεση και αντικατάσταση θα είναι χρονοβόρα. Σε αυτήν την περίπτωση, μπορείτε να εισαγάγετε τα κείμενα εύρεσης και αντικατάστασης στη λίστα κελιών και με τη βοήθεια του κώδικα VBA στο Excel να ολοκληρώσετε αυτή τη δουλειά με ευκολία. Σε αυτό το άρθρο, θα παρουσιάσω επίσης μια χρήσιμη δυνατότητα για ομαδική εύρεση και αντικατάσταση κειμένων σε πολλά έγγραφα του Word.

Βρείτε και αντικαταστήστε πολλά κείμενα σε ένα έγγραφο του Word από το Excel με κώδικα VBA

Βρείτε και αντικαταστήστε πολλά κείμενα σε πολλά έγγραφα του Word από το Excel με κώδικα VBA

Βρείτε και αντικαταστήστε πολλά κείμενα σε πολλά έγγραφα του Word με μια ισχυρή δυνατότητα


Βρείτε και αντικαταστήστε πολλά κείμενα σε ένα έγγραφο του Word από το Excel με κώδικα VBA

Εάν θέλετε να βρείτε και να αντικαταστήσετε ορισμένα κείμενα σε ένα μόνο αρχείο Word, ο παρακάτω κώδικας VBA μπορεί να σας κάνει τη χάρη.

1. Στο φύλλο εργασίας του Excel, δημιουργήστε μια στήλη που περιέχει τα κείμενα που θέλετε να βρείτε και να αντικαταστήσετε και μια άλλη στήλη με κείμενα προς αντικατάσταση όπως φαίνεται παρακάτω στιγμιότυπο οθόνης. Και μετά πατήστε Alt + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στη συνέχεια, κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο παράθυρο.

Κώδικας VBA: Βρείτε και αντικαταστήστε πολλά κείμενα σε ένα αρχείο Word

Sub replace_texts_range_of_cells()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFileDlg As FileDialog
On Error GoTo ExitSub
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = False
xFileDlg.Filters.Add "Word Document", "*.docx; *.doc; *.docm"
xFileDlg.FilterIndex = 2
If xFileDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges):", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
Set xDoc = xWordApp.Documents.Open(xFileDlg.SelectedItems.Item(1))
For I = 1 To xRng.Areas.Item(1).Cells.Count
  With xDoc.Application.Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = xRng.Areas.Item(1).Cells.Item(I).Value
    .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
Next
ExitSub:
  Set xRng = Nothing
  Set xFileDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. Μετά την επικόλληση του κώδικα, εξακολουθεί να βρίσκεται στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Εργαλεία > αναφορές, δείτε το στιγμιότυπο οθόνης:

4. Στο αναδυόμενο Αναφορές - VBAProject πλαίσιο διαλόγου, επιλέξτε το Βιβλιοθήκη αντικειμένων του Microsoft Word 16.0 από το πλαίσιο λίστας, δείτε στιγμιότυπο οθόνης:

5. Κλίκ OK κουμπί για να κλείσετε το παράθυρο διαλόγου και τώρα, πατήστε F5 κλειδί για να εκτελέσετε αυτόν τον κώδικα, στο αναδυόμενο παράθυρο Αναζήτηση, επιλέξτε το Αρχείο Word που θέλετε να αντικαταστήσετε τα κείμενα, δείτε στιγμιότυπο οθόνης:

6. Στη συνέχεια, κάντε κλικ στο κουμπί OK, στο παρακάτω πλαίσιο διαλόγου, πατήστε Ctrl πλήκτρο για να επιλέξετε το αρχικό κείμενο και τα νέα κελιά κειμένου ξεχωριστά που θέλετε να χρησιμοποιήσετε, δείτε στιγμιότυπο οθόνης:

7. Και μετά, κάντε κλικ στο OK τώρα, τα κείμενα βρίσκονται και αντικαθίστανται με τα νέα κείμενα στο καθορισμένο έγγραφό σας και το αρχείο ανοίγει επίσης, θα πρέπει να το αποθηκεύσετε για να διατηρήσετε τις αλλαγές.


Βρείτε και αντικαταστήστε πολλά κείμενα σε πολλά έγγραφα του Word από το Excel με κώδικα VBA

Εδώ, δημιουργώ επίσης έναν κώδικα VBA για την εύρεση και την αντικατάσταση πολλαπλών κειμένων σε πολλά έγγραφα του Word, κάντε ως εξής:

1. Ανοίξτε το αρχείο Excel που περιέχει δύο στήλες τιμών για αντικατάσταση και αντικατάσταση με το παρακάτω στιγμιότυπο οθόνης και, στη συνέχεια, πατήστε Alt + F11 ταυτόχρονα για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.

2. Στη συνέχεια, κάντε κλικ στο κουμπί Κύριο θέμα > Μονάδα μέτρησης, αντιγράψτε και επικολλήστε τον παρακάτω κώδικα VBA στο παράθυρο.

Κώδικας VBA: Εύρεση και αντικατάσταση πολλαπλών κειμένων σε πολλά αρχεία Word

Sub FindReplaceAcrossMultipleWordDocuments()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFolderDlg As FileDialog
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
On Error GoTo ExitSub
Set xFolderDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFolderDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xFSO = New Scripting.FileSystemObject
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
For Each xFile In xFSO.GetFolder(xFolderDlg.SelectedItems(1)).Files
  If VBA.InStr(xFile.Type, "Microsoft Word") > 0 Then
    Set xDoc = xWordApp.Documents.Open(xFile.Path)
    For I = 1 To xRng.Areas.Item(1).Cells.Count
      With xDoc.Application.Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = xRng.Areas.Item(1).Cells.Item(I).Value
        .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
      End With
      xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
    Next
    xDoc.Close wdSaveChanges
  End If
Next
xWordApp.Quit
MsgBox "The Find and Replace has been completed", vbInformation + vbOKOnly, "Kutools for Excel"
ExitSub:
  Set xRng = Nothing
  Set xFolderDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. Ακόμα στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Εργαλεία > αναφορές, Στην Αναφορές - VBAProject πλαίσιο διαλόγου, επιλέξτε το Βιβλιοθήκη αντικειμένων του Microsoft Word 16.0 και Χρόνος εκτέλεσης δέσμης ενεργειών Microsoft επιλογές από το πλαίσιο λίστας, δείτε στιγμιότυπο οθόνης:

4. Αφού ελέγξετε τις δύο επιλογές, και κάντε κλικ OK για να κλείσετε το παράθυρο διαλόγου και, στη συνέχεια, συνεχίστε να πατάτε το F5 κλειδί για την εκτέλεση αυτού του κώδικα, στο άνοιγμα Αναζήτηση παράθυρο, επιλέξτε έναν φάκελο που περιέχει τα έγγραφα του Word που θέλετε να εκτελέσετε την εύρεση και αντικατάσταση, δείτε στιγμιότυπο οθόνης:

5. Κλίκ OK κουμπί, στο αναδυόμενο παράθυρο διαλόγου, πατήστε Ctrl πλήκτρο για να επιλέξετε ξεχωριστά το αρχικό κείμενο και τις νέες στήλες κειμένου που θέλετε να χρησιμοποιήσετε, δείτε στιγμιότυπο οθόνης:

6. Τέλος, κάντε κλικ στο κουμπί OK, και τα αρχικά κείμενα αντικαθίστανται με τα νέα σε αυτά τα αρχεία διατριβής, μετά την ολοκλήρωση, θα εμφανιστεί ένα παράθυρο διαλόγου όπως φαίνεται παρακάτω στιγμιότυπο οθόνης:

7. Κλίκ OK για να κλείσετε το παράθυρο διαλόγου. Και μπορείτε να μεταβείτε στα αρχεία για να ελέγξετε τα αποτελέσματα μετατροπής.


Βρείτε και αντικαταστήστε πολλά κείμενα σε πολλά έγγραφα του Word με μια ισχυρή δυνατότητα

Σε αυτήν την ενότητα, θα μιλήσω για τον τρόπο ομαδικής εύρεσης και αντικατάστασης κειμένων σε πολλά έγγραφα του Word από το Word αντί από το Excel. Με ένα ισχυρό εργαλείο -Kutools για το Word, μπορείτε γρήγορα να βρείτε και να αντικαταστήσετε τα συγκεκριμένα κείμενα και να τα αντικαταστήσετε με νέα κείμενα σε κύριο αρχείο, κεφαλίδα, υποσέλιδο, σχόλια κ.λπ. και να επισημάνετε τα αποτελέσματα όπως χρειάζεστε.

1. Ανοίξτε ένα αρχείο Word και, στη συνέχεια, κάντε κλικ Kutools Plus > Μαζική εύρεση και αντικατάσταση, δείτε το στιγμιότυπο οθόνης:

2. Στο άνοιγμα Μαζική εύρεση και αντικατάσταση πλαίσιο διαλόγου, κάντε τις ακόλουθες λειτουργίες:

  • Πατήστε Πρόσθεση κουμπί για να προσθέσετε τα αρχεία του Word όπου θέλετε να βρείτε και να αντικαταστήσετε κείμενα.
  • Στο αριστερό παράθυρο, κάντε κλικ στο Πρόσθεσε γραμμή από την επάνω κορδέλα?
  • Στο πεδίο που εισήχθη, εισαγάγετε το αρχικό κείμενο και το νέο κείμενο στο Εύρεση και Αντικαταστήστε στήλες ξεχωριστά που θέλετε να βρείτε και να αντικαταστήσετε. Επίσης, μπορείτε να καθορίσετε ένα χρώμα για την επισήμανση των κειμένων που αντικαταστάθηκαν όπως χρειάζεστε.

3. Αφού δημιουργήσετε τα κριτήρια αναζήτησης, κάντε κλικ Αντικαταστήστε για να μεταβείτε στο Αποτέλεσμα προεπισκόπησης καρτέλα για να δείτε τα αποτελέσματα εύρεσης και αντικατάστασης. Δείτε στιγμιότυπο οθόνης:

4. Στη συνέχεια, κάντε κλικ στο κουμπί Κλεισιμο κουμπί και εμφανίζεται ένα πλαίσιο προτροπής για να σας υπενθυμίσει εάν θέλετε να αποθηκεύσετε αυτό το σενάριο, κάντε κλικ Ναι για να το αποθηκεύσετε και κάντε κλικ στο Οχι για να το αγνοήσετε, δείτε το στιγμιότυπο οθόνης:

Συμβουλές: Αυτή η δυνατότητα μπορεί επίσης να βοηθήσει στην επίτευξη των ακόλουθων λειτουργιών:
  • Εύρεση και αντικατάσταση ειδικών χαρακτήρων σε πολλά έγγραφα του Word.
  • Εύρεση και αντικατάσταση πολλαπλών συμβολοσειρών με συγκεκριμένη μορφοποίηση σε πολλά έγγραφα του Word.
  • Βρείτε και αντικαταστήστε πολλές συμβολοσειρές σε πολλά αρχεία txt/htm/html.

Κάντε κλικ για να μάθετε πιο λεπτομερείς πληροφορίες για αυτήν τη δυνατότητα…

Τα καλύτερα εργαλεία παραγωγικότητας γραφείου

Δημοφιλή χαρακτηριστικά: Εύρεση, επισήμανση ή αναγνώριση διπλότυπων   |  Διαγραφή κενών γραμμών   |  Συνδυάστε στήλες ή κελιά χωρίς απώλεια δεδομένων   |   Γύρος χωρίς φόρμουλα ...
Σούπερ Αναζήτηση: VLookup πολλαπλών κριτηρίων    VLookup πολλαπλών τιμών  |   VLookup σε πολλά φύλλα   |   Ασαφής αναζήτηση ....
Σύνθετη αναπτυσσόμενη λίστα: Γρήγορη δημιουργία αναπτυσσόμενης λίστας   |  Εξαρτημένη αναπτυσσόμενη λίστα   |  Πολλαπλή αναπτυσσόμενη λίστα ....
Διαχειριστής στήλης: Προσθέστε έναν συγκεκριμένο αριθμό στηλών  |  Μετακίνηση στηλών  |  Εναλλαγή κατάστασης ορατότητας κρυφών στηλών  |  Συγκρίνετε εύρη και στήλες ...
Επιλεγμένα Χαρακτηριστικά: Εστίαση πλέγματος   |  Προβολή σχεδίου   |   Μεγάλη Formula Bar    Διαχείριση βιβλίου εργασίας & φύλλου   |  Βιβλιοθήκη πόρων (Αυτόματο κείμενο)   |  Επιλογή ημερομηνίας   |  Συνδυάστε φύλλα εργασίας   |  Κρυπτογράφηση/Αποκρυπτογράφηση κελιών    Αποστολή email ανά λίστα   |  Σούπερ φίλτρο   |   Ειδικό φίλτρο (φίλτρο με έντονη γραφή/πλάγια γραφή/διαγραφή...) ...
Κορυφαία 15 σύνολα εργαλείων12 Κείμενο Εργαλεία (Προσθήκη κειμένου, Κατάργηση χαρακτήρων, ...)   |   50 + Διάγραμμα Τύποι (Gantt διάγραμμα, ...)   |   40+ Πρακτικό ΜΑΘΗΜΑΤΙΚΟΙ τυποι (Υπολογίστε την ηλικία με βάση τα γενέθλια, ...)   |   19 Εισαγωγή Εργαλεία (Εισαγωγή κωδικού QR, Εισαγωγή εικόνας από το μονοπάτι, ...)   |   12 Μετατροπή Εργαλεία (Αριθμοί σε λέξεις, Μετατροπή Συναλλάγματος, ...)   |   7 Συγχώνευση & διαχωρισμός Εργαλεία (Σύνθετες σειρές συνδυασμού, Διαίρεση κελιών, ...)   |   ... κι αλλα

Αυξήστε τις δεξιότητές σας στο Excel με τα Kutools για Excel και απολαύστε την αποτελεσματικότητα όπως ποτέ πριν. Το Kutools για Excel προσφέρει πάνω από 300 προηγμένες δυνατότητες για την ενίσχυση της παραγωγικότητας και την εξοικονόμηση χρόνου.  Κάντε κλικ εδώ για να αποκτήσετε τη δυνατότητα που χρειάζεστε περισσότερο...

kte καρτέλα 201905


Το Office Tab φέρνει τη διεπαφή με καρτέλες στο Office και κάνει την εργασία σας πολύ πιο εύκολη

  • Ενεργοποίηση επεξεργασίας και ανάγνωσης καρτελών σε Word, Excel, PowerPoint, Publisher, Access, Visio και Project.
  • Ανοίξτε και δημιουργήστε πολλά έγγραφα σε νέες καρτέλες του ίδιου παραθύρου και όχι σε νέα παράθυρα.
  • Αυξάνει την παραγωγικότητά σας κατά 50% και μειώνει εκατοντάδες κλικ του ποντικιού για εσάς κάθε μέρα!
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
This works great, thank you! Is there a way to make the replacement text carry hyperlinks over? ie - if you have a hyperlinked replacement in the excel sheet, it is still hyperlinked in the Word doc?

Thanks!
This comment was minimized by the moderator on the site
Is there a way too modify this too find text and create hyperlink on the text from another column where i have the links already created? It worked correctly as a find and replace for me. Thanks
This comment was minimized by the moderator on the site
Hi,

I am wondering how this can be modified to also find and replace text in footnotes?

Thanks!
This comment was minimized by the moderator on the site
Hello, Nate,
If you want to find and replace the text in footnotes at the same time, maybe the Kutools for Word's Batch Find and Replace feature can help you.
You just need to check Main document and Footnotes from the Find in section, see below image:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/2023-comment/doc-find-replace-word.png
This comment was minimized by the moderator on the site
It doesn't work.

Compile error: User-defined type not defined
This comment was minimized by the moderator on the site
Hello, Param
The code works well.
Maybe, you didn't check Microsoft Word 16.0 Object Library from the References – VBAProject dialog box.
It means that you may miss the Step 3 and Step 4 of this article.
Please try again, if you still have any other problem, please comment here.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/2023-comment/doc-find-replace-word-file-excel.png
This comment was minimized by the moderator on the site
Sorry for the overdue reply. I have replied before, but my reply dissapeared somehow. You're right, the code does work well. But it replaced nothing when I tried it on a file with more than 80,000 lines.
This comment was minimized by the moderator on the site
Hello, Param
I have tested the code, it works well in my Word docuent which contains 140,000 lines.
Do you mind to upload your attachment here for testing?
Or you can apply our Kutools for Word's Batch Find and Replace feature, it can help you with ease.
Thank you!
This comment was minimized by the moderator on the site
Greetings,
the first code :
VBA code: Find and replace multiple texts in one Word file

thows error : compile error user defined type not defined
https://i.imgur.com/FZPBy4I.png
This comment was minimized by the moderator on the site
Hello, Erik
The code works well.
Maybe, you didn't check Microsoft Word 16.0 Object Library from the References – VBAProject dialog box.
It means that you may miss the Step 3 and Step 4 of this article.
Please try again, if you still have any other problem, please comment here.

https://www.extendoffice.com/images/stories/comments/comment-skyyang/2023-comment/doc-find-replace-word-file-excel.png
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations