Πώς να αναζητήσετε και να αντικαταστήσετε πολλά αρχεία στο Word;

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

Βρείτε και αντικαταστήστε κείμενα σε πολλά έγγραφα του Word ταυτόχρονα με κώδικα VBA
Εύκολη εύρεση και αντικατάσταση διαφορετικών κειμένων σε πολλά έγγραφα ταυτόχρονα με το Kutools for Word

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

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

1. Τύπος Alt + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης, στη συνέχεια αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στο Μονάδα μέτρησης παράθυρο.

   Sub CommandButton1_Click()
   'Updated by Extendoffice 20180625
   Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
   Dim xFindStr As String
   Dim xReplaceStr As String
   Dim xDoc As Document
   On Error Resume Next
   Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
   With xFileDialog
       .Filters.Clear
       .Filters.Add "All WORD File ", "*.docx", 1
       .AllowMultiSelect = True
       i = 1
       If .Show = -1 Then
           For Each stiSelectedItem In .SelectedItems
               GetStr(i) = stiSelectedItem
               i = i + 1
           Next
           i = i - 1
       End If
       Application.ScreenUpdating = False
       xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
       xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
       For j = 1 To i Step 1
           Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
           Windows(GetStr(j)).Activate
           Selection.Find.ClearFormatting
           Selection.Find.Replacement.ClearFormatting
           With Selection.Find
               .Text = xFindStr  'Find What
               .Replacement.Text = xReplaceStr  'Replace With
               .Forward = True
               .Wrap = wdFindAsk
               .Format = False
               .MatchCase = False
               .MatchWholeWord = False
               .MatchByte = True
               .MatchWildcards = False
               .MatchSoundsLike = False
               .MatchAllWordForms = False
           End With
           Selection.Find.Execute Replace:=wdReplaceAll
           Application.Run macroname:="NEWMACROS"
           ActiveDocument.Save
           ActiveWindow.Close
       Next
       Application.ScreenUpdating = True
   End With
   MsgBox "Operation end, please view", vbInformation
   End Sub

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

   

5. Κατά την πρώτη Kutools για το Word παράθυρο διαλόγου, πληκτρολογήστε το κείμενο που θέλετε να βρείτε στο βρείτε αυτό και κάντε κλικ στο κουμπί OK.

   

6. Στο δεύτερο Kutools για το Word παράθυρο διαλόγου, πληκτρολογήστε το κείμενο με το οποίο θέλετε να το αντικαταστήσετε και κάντε κλικ OK.

   

7. Πατήστε OK στον τελικό Το Microsoft Word παράθυρο διαλόγου για να ολοκληρώσετε τη διαδικασία.

   

Σε αυτήν την περίπτωση, όλες οι εμφανίσεις του "Word" στα επιλεγμένα έγγραφα αντικαθίστανται ταυτόχρονα με το "Excel".

Εύκολη εύρεση και αντικατάσταση διαφορετικών κειμένων σε πολλά έγγραφα ταυτόχρονα με το Kutools for Word

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

1. Κάντε κλικ Kutools Plus > Μαζική εύρεση και αντικατάσταση για να ενεργοποιήσετε τη λειτουργία.

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

• 2.1) Κάντε κλικ στο Προσθήκη Row κάτω από το κουμπί Εύρεση και αντικατάσταση αυτί;
• 2.2) Στα πεδία γραμμής που δημιουργήθηκαν:

• 2.3) Επαναλάβετε τα βήματα 2.1 και 2.2 για να προσθέσετε περισσότερα κείμενα που θα βρείτε και θα αντικαταστήσετε.
• 2.4) Κάντε κλικ στο  στο κουμπί Τύπος αρχείου ενότητα για να προσθέσετε τα έγγραφα του Word στα οποία θα βρείτε και να αντικαταστήσετε κείμενα.
• 2.5) Κάντε κλικ στο Αντικαταστήστε or Εύρεση κουμπί. Δείτε το στιγμιότυπο οθόνης:

3. Κλείστε το Μαζική εύρεση και αντικατάσταση Στο παράθυρο διαλόγου

Κάντε κλικ εδώ για περισσότερες πληροφορίες σχετικά με το Μαζική εύρεση και αντικατάσταση χαρακτηριστικό.

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

Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!

🤖 Χαρακτηριστικά Kutools AI: Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Έγγραφο Q&A / Λάβετε γρήγορες απαντήσεις / Μετάφραση εγγράφων / Πολωνικό έγγραφο (Μορφή διατήρησης)...

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

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

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

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

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

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

???? Θέλετε να δοκιμάσετε αυτές τις δυνατότητες; Κατεβάστε το Kutools για το Word τώρα! 🚀

Δωρεάν κατέβασμα     Άμεση αγορά     Μάθετε περισσότερα σχετικά με τα Kutools για Word

 

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

Kutools για το Word - 100+ εργαλεία για το Word

• 🤖 Χαρακτηριστικά Kutools AI: Δημιουργία, Ξαναγράφω, Συνοψίστε, μεταφράζω Έγγραφα / Λάβετε γρήγορες απαντήσεις / Πολωνικό έγγραφο (Μορφή διατήρησης)
• 📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Μαζική μετατροπή σε PDF
• ✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση / Αλλαγή μεγέθους όλων των εικόνων
• 🧹 Καθαρισμός χωρίς κόπο: Κατάργηση επιπλέον χώρων / Κατάργηση διακοπών ενότητας
• ➕ Δημιουργικά ένθετα: Εισαγάγετε Χίλια Διαχωριστικά / Εισαγωγή πλαισίων ελέγχου / Δημιουργήστε κωδικούς QR

Δωρεάν κατέβασμα Άμεση αγορά Μάθετε περισσότερα για το Kutools