Σε αυτήν την ανάρτηση, εστιάζουμε στην παρουσίαση 2 γρήγορων τρόπων για να βρείτε πολλά στοιχεία σε ένα έγγραφο του Word ταυτόχρονα.
Όποιος είναι εξοικειωμένος με το Word πρέπει να γνωρίζει πολύ καλά την επιλογή «Εύρεση και αντικατάσταση». Λειτουργεί καλά όταν το κείμενο εύρεσης είναι μια διαδοχική συμβολοσειρά. Αλλά, δυστυχώς, γίνεται πολύπλοκο όταν θέλουμε να αναζητήσουμε πολλές ξεχωριστές λέξεις ταυτόχρονα. Και εκεί έξω, η ζήτηση είναι έντονη για τη δημιουργία μιας λίστας λέξεων ή φράσεων σε ένα έγγραφο με μία κίνηση. Για παράδειγμα, εάν είστε συντάκτης, μπορεί να υπάρχουν μερικές λέξεις που δεν πρέπει ποτέ να εμφανίζονται σε κανένα έγγραφο. Εάν ναι, θα χρειαστείτε λύσεις για να επισημάνετε την εμφάνιση ορισμένων συγκεκριμένων λέξεων.
Εδώ είναι 2 διαθέσιμες λύσεις:
Μέθοδος 1: Εισαγωγή λέξεων στο λεξικό εξαίρεσης
Προσθέστε μια δέσμη λέξεων ή φράσεων στο λεξικό εξαίρεσης στο Word και, στη συνέχεια, θα εμφανιστεί μια κόκκινη γραμμή κυμάτων κάτω από τις αντιστοιχισμένες λέξεις για να τις επισημάνετε.
Λεπτομερή βήματα για την προσθήκη λέξεων στο λεξικό εξαίρεσης βρίσκονται σε αυτό το άρθρο: 4 Χρήσιμες συμβουλές για ορθογραφία και έλεγχο γραμματικής
Μέθοδος 2: Χρησιμοποιήστε το Word Macro
- Πρώτα απ 'όλα, τοποθετήστε όλες τις λέξεις που θέλετε να αναζητήσετε σε ένα έγγραφο. Κάθε λέξη ή φράση θα πρέπει να καταλαμβάνει μία παράγραφο. Εδώ ας το ονομάσουμε "έγγραφο λίστας". Αποθηκεύστε το έγγραφο.
- Δεύτερον, κάντε κλικ στην καρτέλα "Προγραμματιστής".
- Στη συνέχεια, κάντε κλικ στο "Visual Basic" για να ανοίξετε το πρόγραμμα επεξεργασίας VBA. Ο εναλλακτικός τρόπος είναι να πατήσετε "Alt+ F11".
- Στη συνέχεια κάντε κλικ στο «Κανονικό» και μετά στην καρτέλα «Εισαγωγή».
- Και επιλέξτε "Module" στο μενού.
- Κάντε διπλό κλικ στη νέα μονάδα για να εμφανίσετε την περιοχή επεξεργασίας και επικολλήστε την ακόλουθη μακροεντολή εκεί:
Sub FindMultiItemsInDoc()
Dim objListDoc As Document
Dim objTargetDoc As Document
Dim objParaRange As Range, objFoundRange As Range
Dim objParagraph As Paragraph
Dim strFileName As String
strFileName = InputBox("Enter the full name of the list document here:")
Set objTargetDoc = ActiveDocument
Set objListDoc = Documents.Open(strFileName)
objTargetDoc.Activate
For Each objParagraph In objListDoc.Paragraphs
Set objParaRange = objParagraph.Range
objParaRange.End = objParaRange.End - 1
With Selection
.HomeKey Unit:=wdStory
' Find target items.
With Selection.Find
.ClearFormatting
.Text = objParaRange
.MatchWholeWord = True
.MatchCase = False
.Execute
End With
' Highlight the found items.
Do While .Find.Found
Set objFoundRange = Selection.Range
objFoundRange.HighlightColorIndex = wdBrightGreen
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With
Next objParagraph
End Sub
- Τέλος, κάντε κλικ στο "Εκτέλεση".
- Τώρα υπάρχει ένα κουτί. Εισαγάγετε τη διαδρομή και το όνομα του εγγράφου της λίστας που μόλις αποθηκεύσατε. Στη συνέχεια, κάντε κλικ στο "OK".
Το επόμενο πράγμα που βλέπετε είναι ότι όλες οι λέξεις βρίσκονται σε επισήμανση.
Ασφαλίστε τα έγγραφα του Word σας
Ένα από τα πιο δημοφιλή μέτρα για να αποτρέψετε την καταστροφή των εγγράφων του Word σας είναι η δημιουργία αντιγράφων ασφαλείας. Αυτά μπορούν να σας προσφέρουν ηρεμία όταν έχετε... κατεστραμμένο docx. Επομένως, αφιερώστε χρόνο για να δημιουργήσετε αντίγραφα ασφαλείας των σημαντικών αρχείων σας τώρα.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων κατεστραμμένο xlsx και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com