4 Χρήσιμες μέθοδοι για την εύρεση και αντικατάσταση κειμένου σε μέρος ενός εγγράφου του Word

Σε αυτό το έγγραφο, είμαστε στην ευχάριστη θέση να σας δείξουμε 4 χρήσιμες μεθόδους για την εύρεση και αντικατάσταση κειμένου σε μέρος ενός εγγράφου του Word.

Κανονικά, όταν κάνουμε το "Εύρεση και αντικατάσταση" στο Word, το αποτέλεσμα είναι παγκοσμίως. Έτσι, σήμερα θέλουμε να σας προσφέρουμε τρόπους εύρεσης και αντικατάστασης κειμένου σε μέρος ενός εγγράφου, όπως σε μια επιλογή, σε μία σελίδα ή σε μια συγκεκριμένη ενότητα.

Μέθοδος 1: Χρησιμοποιήστε τη δυνατότητα "Εύρεση και αντικατάσταση" σε μια επιλογή

1. Αρχικά, επιλέξτε tarλήψη κειμένου.
2. Δεύτερον, πατήστε "Ctrl + H" για να ανοίξετε το πλαίσιο "Εύρεση και αντικατάσταση".
3. Στη συνέχεια, εισαγάγετε το κείμενο εύρεσης στο πλαίσιο κειμένου "Εύρεση τι" και το κείμενο αντικατάστασης στο πλαίσιο "Αντικατάσταση με".
4. Στη συνέχεια, κάντε κλικ στο κουμπί "Αντικατάσταση όλων".
5. Θα εμφανιστεί ένα πλαίσιο, ρωτώντας εάν θέλετε να συνεχίσετε την αναζήτηση στο υπόλοιπο έγγραφο. Βεβαιωθείτε ότι κάνετε κλικ στο «Όχι».

Μέθοδος 2: Εκτέλεση κωδικών VBA για εύρεση και αντικατάσταση κειμένου σε μια επιλογή

1. Πρώτα απ 'όλα, επιλέξτε μια σειρά περιεχομένου εγγράφου.
2. Στη συνέχεια, ενεργοποιήστε το πρόγραμμα επεξεργασίας VBA πατώντας "Alt + F11".
3. Στη συνέχεια, κάντε κλικ στο "Normal" και κάντε κλικ στο "Insert".
4. Επιλέξτε "Module" στο μενού.
5. Τώρα ανοίξτε τη λειτουργική μονάδα με διπλό κλικ.
6. Αντιγράψτε και επικολλήστε τους ακόλουθους κωδικούς εκεί:

Sub FindAndReplaceInSelection()
  Dim strFindText As String
  Dim strReplaceText As String
 
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

7. Επόμενη επιτυχία "F5".
8. Θα εμφανιστούν δύο κουτιά εισόδου. Εισαγάγετε το εύρημα και αντικαταστήστε το κείμενο αντίστοιχα σε δύο πλαίσια.
9. Κάντε κλικ στο "OK" για να συνεχίσετε.

Θα επιτύχετε το ίδιο ακριβώς αποτέλεσμα με τη μέθοδο 1.

Μέθοδος 3: Εκτελέστε μακροεντολή Word για να βρείτε και να αντικαταστήσετε κείμενο σε μια καθορισμένη σελίδα

Η ακόλουθη μακροεντολή σάς δίνει τη δυνατότητα να βρείτε και να αντικαταστήσετε κείμενο σε μια συγκεκριμένη σελίδα.

1. Αρχικά, εγκαταστήστε και εκτελέστε μια μακροεντολή ακολουθώντας τα βήματα στη μέθοδο 2.
2. Στη συνέχεια, αντικαταστήστε αυτήν τη μακροεντολή με αυτήν:

Sub FindAndReplaceInSpecificPage()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strPageNum As String
  Dim nPageNum As Integer
 
  strPageNum = InputBox("Enter a page number: ")
  nPageNum = Int(strPageNum)
 
  Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
  ActiveDocument.Bookmarks("\page").Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. Μετά την εκτέλεση αυτών των κωδικών, θα υπάρχουν 3 κουτιά εισόδου. Εισαγάγετε έναν αριθμό σελίδας στο πρώτο πλαίσιο και εισαγάγετε το κείμενο εύρεσης στο δεύτερο και πληκτρολογήστε αντικατάσταση κειμένου στο τρίτο.
4. Θυμηθείτε να κάνετε κλικ στο "OK" για να συνεχίσετε.

Μέθοδος 4: Εκτελέστε μακροεντολή Word για να βρείτε και να αντικαταστήσετε κείμενο σε μια ενότητα

1. Ομοίως, ακολουθήστε τα ίδια βήματα στη μέθοδο 2 για να εγκαταστήσετε και να εκτελέσετε μια μακροεντολή.
2. Χρησιμοποιήστε αυτήν τη μακροεντολή μόνο αυτήν τη φορά:

Sub FindAndReplaceInSection()
  Dim strFindText As String
  Dim strReplaceText As String
  Dim strSectionNum As String
  Dim nSectionNum As Integer
 
  strSectionNum = InputBox("Enter a section number: ")
  nSectionNum = Int(strSectionNum)
 
  Selection.GoTo What:=wdGoToSection, Which:=wdGoToFirst, Count:=1, Name:=nSectionNum
  ActiveDocument.Sections(nSectionNum).Range.Select
  strFindText = InputBox("Enter finding text here:")
  strReplaceText = InputBox("Enter replacing text here:")

  With Selection.Find
    .Text = strFindText
    .Replacement.Text = strReplaceText
    .Forward = True
    .Wrap = wdFindStop
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  Selection.Find.Execute Replace:=wdReplaceAll
End Sub

3. Θυμηθείτε να εισαγάγετε τον αριθμό ενότητας στο πρώτο πλαίσιο. Και εισάγετε την εύρεση και αντικατάσταση κειμένων στα ακόλουθα δύο πλαίσια.
4. Ακόμα, κάντε κλικ στο "OK" για να συνεχίσετε.

Αντιμετωπίστε προβλήματα με το Word

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

Εισαγωγή συγγραφέα:

Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων Επιδιόρθωση Excel pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com