3 γρήγορες μέθοδοι για την εύρεση κειμένου μόνο στους πίνακες του Word

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

Χρησιμοποιώντας το "Εύρεση και αντικατάσταση", μια ενσωματωμένη λειτουργία στο Word, μπορείτε να αναζητήσετε και να βρείτε ένα συγκεκριμένο κείμενο σε ένα μακρύ έγγραφο. Όπως βλέπετε, αυτό βασίζεται σε ολόκληρο το έγγραφο. Τι θα λέγαμε ότι περιορίζουμε το εύρος αναζήτησης μόνο στους πίνακες του Word; Διαβάστε παρακάτω για να δείτε λεπτομέρειες.

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

1. Πρώτα απ 'όλα, επιλέξτε με μη αυτόματο τρόπο έναν ή περισσότερους πίνακες στο έγγραφο.
2. Στη συνέχεια, κάντε κλικ στο αναπτυσσόμενο κουμπί δίπλα στην εντολή "Εύρεση" στην καρτέλα "Αρχική σελίδα".
3. Επιλέξτε "Advanced Find" για να ανοίξετε το παράθυρο διαλόγου "Εύρεση και αντικατάσταση".
4. Εισαγάγετε κείμενο εύρεσης στο πλαίσιο κειμένου "Εύρεση τι".
5. Κάντε κλικ στην καρτέλα "Εύρεση σε" και επιλέξτε "Τρέχουσα επιλογή".  

Το Word θα βρει κείμενο μόνο στην επιλογή σας.

Μέθοδος 2: Εύρεση κειμένου σε πίνακα

Εκτός από τον συνηθισμένο τρόπο, μπορείτε να επιλέξετε να εκτελέσετε μακροεντολές για να κάνετε πιο προσαρμοσμένες εργασίες.

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

Sub FindInATable()
  Dim strText As String
 
  strText = InputBox("Enter finding text here: ")
 
  Application.ScreenUpdating = False
  If Selection.Information(wdWithInTable) = True Then
    With Selection.Tables(1).Range
      With .Find
        .ClearFormatting
        .Text = strText
        .Forward = True
        .Wrap = wdFindStop
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute
      End With
      Do While .Find.Found
        .Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
        On Error GoTo handler
        .Collapse wdCollapseEnd
        .Find.Execute
      Loop
    End With
  Else
    MsgBox ("Put cursor inside a table first.")
    Exit Sub
  End If
  handler: Exit Sub
  Application.ScreenUpdating = True
End Sub

7. Τέλος, κάντε κλικ στο "Εκτέλεση". Εισαγάγετε ένα κείμενο μέσα στο πλαίσιο εισαγωγής και κάντε κλικ στο "OK" για να συνεχίσετε.

Μέθοδος 3: Εύρεση κειμένου σε όλους τους πίνακες σε ένα έγγραφο

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

Sub FindTextsInAllTables()
  Dim strText As String
 
  strText = InputBox("Enter finding text here: ")
 
  Application.ScreenUpdating = False
  With Selection
    .HomeKey Unit:=wdStory
    With Selection.Find
      .ClearFormatting
      .Text = strText
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Do While .Find.Found = True
      If .Information(wdWithInTable) = True Then
        .Cells(1).Shading.BackgroundPatternColorIndex = wdBrightGreen
      End If
      .Collapse wdCollapseEnd
      .Find.Execute
    Loop
  End With
  Application.ScreenUpdating = True
End Sub

3. Ομοίως, πληκτρολογήστε κείμενο αναζήτησης μέσα στο πλαίσιο εισαγωγής. Και κάντε κλικ στο "OK" για να συνεχίσετε.

Διάσωση των δεδομένων σας εγκαίρως

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

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

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