Στο σημερινό άρθρο, είμαστε στην ευχάριστη θέση να σας ενημερώσουμε για τον τρόπο εύρεσης και αντικατάστασης περιεχομένου σε πολλά έγγραφα του Word.
Γενικά, οι περισσότεροι χρήστες του Word είναι αρκετά εξοικειωμένοι με τη λειτουργία «Εύρεση και αντικατάσταση» του λογισμικού. Μας βοηθά με την μαζική επεξεργασία ολόκληρου του εγγράφου, κάτι που μας εξοικονομεί πολύ χρόνο. Έχετε σκεφτεί λοιπόν να χρησιμοποιήσετε αυτήν την επιλογή σε πολλά έγγραφα, όπως όλα τα αρχεία σε έναν συγκεκριμένο φάκελο;
Εφόσον υπάρχει πάντα η ανάγκη αναζήτησης και αντικατάστασης περιεχομένων σε μια δέσμη αρχείων, θα ήταν ωραίο να πραγματοποιηθεί η λειτουργία. Και ο τρόπος μας είναι να χρησιμοποιήσουμε τη μακροεντολή. Διαβάστε παρακάτω για να μάθετε περισσότερες λεπτομέρειες.
Βήματα για την εγκατάσταση και την εκτέλεση της μακροεντολής
- Πρώτα απ 'όλα, τοποθετήστε όλα τα αρχεία σε έναν φάκελο και ανοίξτε το Word.
- Στη συνέχεια, κάντε κλικ στην καρτέλα "Προγραμματιστής".
- Στη συνέχεια κάντε κλικ στο "Visual Basic". Ή απλώς πατήστε "Alt+ F11" για να ενεργοποιήσετε το πρόγραμμα επεξεργασίας VBA.
- Στη συνέχεια, κάντε κλικ στο "Κανονικό" έργο.
- Στη συνέχεια κάντε κλικ στην καρτέλα «Εισαγωγή» και μετά επιλέξτε «Ενότητα».
- Τώρα έχετε εισαγάγει με επιτυχία μια νέα ενότητα. Κάντε διπλό κλικ πάνω του για να ανοίξει ο χώρος κωδικοποίησης.
- Επικολλήστε τους παρακάτω κωδικούς:
Sub FindAndReplaceInFolder()
Dim objDoc As Document
Dim strFile As String
Dim strFolder As String
Dim strFindText As String
Dim strReplaceText As String
' Pop up input boxes for user to enter folder path, the finding and replacing texts.
strFolder = InputBox("Enter folder path here:")
strFile = Dir(strFolder & "\" & "*.docx", vbNormal)
strFindText = InputBox("Enter finding text here:")
strReplaceText = InputBox("Enter replacing text here:")
' Open each file in the folder to search and replace texts. Save and close the file after the action.
While strFile <> ""
Set objDoc = Documents.Open(FileName:=strFolder & "\" & strFile)
With objDoc
With Selection
.HomeKey Unit:=wdStory
With Selection.Find
.text = strFindText
.Replacement.text = strReplaceText
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End With
objDoc.Save
objDoc.Close
strFile = Dir()
End With
Wend
End Sub
- Τέλος, κάντε κλικ στο "Εκτέλεση".
- Τώρα θα εμφανιστεί ένα πλαίσιο εισαγωγής. Εισαγάγετε τη διαδρομή φακέλου όπου αποθηκεύετε έγγραφα.
- Στη συνέχεια, κάντε κλικ στο "OK" και υπάρχει το δεύτερο πλαίσιο. Εισαγάγετε τα κείμενα που θέλετε να βρείτε.
- Συνεχίστε να κάνετε κλικ στο "OK" για να ανοίξετε το τρίτο πλαίσιο εισαγωγής, στο οποίο εισάγετε τα κείμενα που αντικαθιστούν και κάντε κλικ στο κουμπί "OK" εκεί. Η μακροεντολή θα αντικαταστήσει αυτόματα όλα τα περιεχόμενα και θα αποθηκεύσει την αλλαγή.
Όπως βλέπετε, αυτή η μακροεντολή σάς παρέχει 3 πλαίσια εισαγωγής όπου μπορείτε να εισάγετε τη διαδρομή φακέλου, την εύρεση και την αντικατάσταση κειμένων. Έτσι, μπορείτε να αντιστοιχίσετε ένα κουμπί για αυτήν τη μακροεντολή και να την προσθέσετε στη "Γραμμή εργαλείων γρήγορης πρόσβασης" για επαναχρησιμοποίηση.
Όσο για τον τρόπο αντιστοίχισης ενός κουμπιού σε μια μακροεντολή, μπορείτε να διαβάσετε αυτό το άρθρο: Πώς να αφαιρέσετε τη μορφοποίηση των επικολλημένων κειμένων με μακροεντολή και VBA στο Word σας
Προστασία πολύτιμων δεδομένων
Ενδέχεται να προκύψουν σφάλματα και προβλήματα στο Word. Κατά συνέπεια, πολύτιμα έγγραφα μπορεί να καταστραφούν. Κατά τη συνάντηση με doc ζημιά, συνιστάται να αποκτήσετε ένα επαγγελματικό εργαλείο ανάκτησης για να ανακτήσετε τα δεδομένα.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων xls ζημιά και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com