Στο σημερινό άρθρο, θα θέλαμε να σας παρουσιάσουμε 2 μεθόδους για τη μέτρηση των συνολικών λέξεων μιας γλώσσας σε ένα πολυγλωσσικό έγγραφο Word.
Μερικές φορές, κάποιοι από εσάς ενδέχεται να έχουν το αίτημα να επεξεργαστούν ένα πολυγλωσσικό έγγραφο του Word. Ως αποτέλεσμα, θα υπάρξουν φορές που θέλετε να κάνετε καταμέτρηση λέξεων για μια συγκεκριμένη γλώσσα, αλλά μόνο για να βρείτε το Word που δεν μπορεί να εκτελέσει αυτήν την εργασία.
Στη συνέχεια, είναι άσκοπος να σας παρέχουμε 2 χρήσιμες λύσεις για την αντιμετώπιση ενός τέτοιου ζητήματος.
Μέθοδος 1: Χρησιμοποιήστε την επιλογή "Advanced Find"
- Πρώτα απ 'όλα, κάντε κλικ στο ανάποδο τρίγωνο κουμπί πίσω από το "Εύρεση" στην ομάδα "Επεξεργασία" στην καρτέλα "Αρχική σελίδα".
- Τώρα στο παράθυρο διαλόγου "Εύρεση και αντικατάσταση", κάντε κλικ στο κουμπί "Περισσότερα".
- Και επιλέξτε το πλαίσιο "Εύρεση ολόκληρων λέξεων".
- Στη συνέχεια, κάντε κλικ στο κουμπί "Μορφοποίηση".
- Στη συνέχεια επιλέξτε "Γλώσσα".
- Στο παράθυρο διαλόγου "Εύρεση γλώσσας", βρείτε και επιλέξτε τη γλώσσα-στόχο και κάντε κλικ στο "OK".
- Τώρα επιστρέψτε στο πλαίσιο "Εύρεση και αντικατάσταση", κάντε κλικ στο "Εύρεση σε" και επιλέξτε "Κύριο έγγραφο".
- Στη συνέχεια επιλέγονται όλες οι αγγλικές λέξεις και πηγαίνετε για να ελέγξετε τον αριθμό των λέξεων στην κάτω αριστερή γωνία της οθόνης. Μπορούμε να δούμε ότι ο αριθμός είναι 93.
Μέθοδος 2: Εκτέλεση Word μακροεντολής
- Για να ξεκινήσετε, κάντε κλικ στην καρτέλα "Προγραμματιστής".
- Στη συνέχεια, κάντε κλικ στο "Visual Basic" για να ενεργοποιήσετε το πρόγραμμα επεξεργασίας VBA. Σε περίπτωση που δεν έχετε ενεργοποιήσει ακόμη την καρτέλα "Προγραμματιστής", πατήστε "Alt + F11".
- Στη συνέχεια κάντε κλικ στο "Normal" και μετά κάντε κλικ στο "Insert".
- Επιλέξτε «Ενότητα».
- Και κάντε διπλό κλικ στη νέα ενότητα για να ανοίξετε τον χώρο κωδικοποίησης.
- Στη συνέχεια επικολλήστε τους ακόλουθους κωδικούς εκεί:
Sub CountTotalWordsOfOneLanguage()
Dim objRange As Range
Dim nWords As Long
' Initialization
Set objRange = ActiveDocument.Range
nWords = 0
' Find all English words and do word count.
With objRange.Find
.LanguageID = wdFrench
Do While .Execute
nWords = nWords + objRange.ComputeStatistics(wdStatisticWords)
Loop
End With
MsgBox nWords
End Sub
- Τέλος, κάντε κλικ στο κουμπί "Εκτέλεση".
Θα εμφανιστεί ένα πλαίσιο μηνυμάτων. Ο αριθμός αναφέρεται στις συνολικές λέξεις των γαλλικών κειμένων σε αυτό το έγγραφο.
Σημείωση:
Στη γραμμή κώδικα ".LanguageID = wdΓαλλικά", ο "wd ΓαλλικάΣημαίνει γαλλική γλώσσα. Για να προσαρμόσετε τους κωδικούς για πιο συγκεκριμένη χρήση, μπορείτε να αντικαταστήσετε το αναγνωριστικό γλώσσας με την ακριβή γλώσσα που θέλετε. Και για το πιο αναγνωριστικό γλώσσας, μπορείτε να επισκεφθείτε: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)
Διαχειριστείτε σωστά αρχεία κατεστραμμένου Word
Τώρα και μετά, το Word θα κλείσει ή θα παγώσει λόγω όλων των ειδών σφαλμάτων ή λαθών. Ας πούμε, εάν δεν δημιουργείτε αντίγραφα ασφαλείας των αρχείων σε τακτική βάση, υπάρχει μεγάλη πιθανότητα να χάσετε όλα τα πολύτιμα δεδομένα. Και οι 2 λύσεις που απομένουν είναι είτε να χρησιμοποιήσουν την ενσωματωμένη συνάρτηση του Word είτε να αποκτήσουν ένα πρόγραμμα στο επισκευή έγγρΔεδομένου του γεγονότος ότι το πρώτο δεν φαίνεται να λειτουργεί τόσο καλά τις περισσότερες φορές, συνιστάται να επιλέξετε ένα εργαλείο τρίτου κατασκευαστή.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων Επιδιόρθωση Excel και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com