Σε αυτό το άρθρο, θα υπάρχουν 3 μέθοδοι για να μετρήσετε τον αριθμό των λέξεων για ενότητες στο έγγραφο του Word.
Είναι εύκολο να λάβετε τον συνολικό αριθμό λέξεων ενός εγγράφου. Αλλά δεν υπάρχει καμία λειτουργία στο Word που να μας λέει τον αριθμό των λέξεων μιας ενότητας. Και δεδομένου ότι προτιμούμε να βάλουμε περιεχόμενο του ίδιου θέματος σε μία ενότητα, όπως η οργάνωση ενός κεφαλαίου κατά τη σύνταξη ενός βιβλίου, είναι απαραίτητο να βρούμε λύσεις για να λάβουμε τον αριθμό των ενοτήτων. 
Ακολουθούν 3 προσεγγίσεις που απαιτούν την εκτέλεση μακροεντολής.
Μέθοδος 1: Μετρήστε τον αριθμό των λέξεων για την τρέχουσα ενότητα
- Αρχικά, τοποθετήστε τον κέρσορα μέσα σε μια ενότητα-στόχο.
- Στη συνέχεια, πρέπει να ανοίξετε το πρόγραμμα επεξεργασίας VBA στο Word. Κάντε κλικ στην επιλογή "Προγραμματιστής" και στη συνέχεια στην εντολή "Visual Basic". Σε περίπτωση που δεν μπορείτε να βρείτε το "Προγραμματιστής" στην Κορδέλα, στη συνέχεια πατήστε "Alt + F11".
- Στη συνέχεια κάντε κλικ στο "Κανονικό" έργο στην αριστερή στήλη.
- Στη συνέχεια, κάντε κλικ στην καρτέλα "Εισαγωγή".
- Σε αυτό το αναπτυσσόμενο μενού, επιλέξτε "Ενότητα".
- Ανοίξτε τη νέα ενότητα με διπλό κλικ.
- Τώρα στην ανοιχτή ενότητα, επικολλήστε τους παρακάτω κώδικες:
Sub CountWordsOfCurrentSection()
MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
& " words in current section.")
End Sub
- Τέλος, κάντε κλικ στο "Εκτέλεση" ή πατήστε "F5" για να εκτελέσετε κωδικούς.
Θα λάβετε ένα πλαίσιο μηνύματος, που θα δείχνει τον συνολικό αριθμό της τρέχουσας ενότητας, όπως παρακάτω:
Μέθοδος 2: Μετρήστε τον αριθμό των λέξεων για μια συγκεκριμένη ενότητα
Ας υποθέσουμε ότι εργάζεστε σε ένα βιβλίο και ορίζετε κάθε κεφάλαιο ως ξεχωριστή ενότητα. Στη συνέχεια, για να μάθετε πόσες λέξεις έχετε γράψει σε ένα κεφάλαιο, μπορείτε να χρησιμοποιήσετε αυτήν τη μέθοδο.
- Ακολουθήστε τα παραπάνω βήματα για να εγκαταστήσετε και να εκτελέσετε μια μακροεντολή.
- Απλώς αντικαταστήστε τη μακροεντολή με αυτήν:
Sub CountWordsOfSpecificSection()
Dim strSecNum As String
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
strSecNum = InputBox("Enter a section number here:", "Enter Section Number")
MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
& " words in section " & strSecNum & ".")
Application.ScreenUpdating = True
End Sub
- Και το τρέχει, θα υπάρχει ένα πλαίσιο εισαγωγής. Στο πλαίσιο "Εισαγωγή αριθμού ενότητας", εισαγάγετε τον αριθμό ενότητας και κάντε κλικ στο "OK" για να προχωρήσετε.
Το αποτέλεσμα εμφανίζεται σε ένα πλαίσιο μηνυμάτων.
Μέθοδος 3: Μετρήστε τον αριθμό των λέξεων για όλες τις ενότητες σε ένα έγγραφο
Όπως προτείνει ο υπότιτλος, με αυτόν τον τρόπο θα έχετε τον συνολικό αριθμό λέξεων κάθε ενότητας σε ένα έγγραφο και θα τις αναφέρετε σε ένα πλαίσιο μηνυμάτων.
- Πρώτα απ 'όλα, ανοίξτε το έγγραφο προορισμού.
- Ωστόσο, πρέπει να επαναλάβετε τα βήματα στη μέθοδο 1 για να εγκαταστήσετε και να εκτελέσετε τη μακροεντολή.
- Και αυτή τη φορά, αλλάξτε με αυτήν τη μακροεντολή:
Sub CountWordsOfEachSectionInDoc()
Dim objDoc As Document
Dim nNumberOfSection As Long
Dim strText As String
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
nNumberOfSection = objDoc.Sections.Count
For nNumberOfSection = 1 To nNumberOfSection
strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
.Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
& vbNewLine
Next nNumberOfSection
MsgBox strText
Application.ScreenUpdating = True
End Sub
Εδώ είναι το πιθανό αποτέλεσμα:
Αποθήκευση πολύτιμων δεδομένων
Ενώ ασχολείστε με όλα τα είδη εγγράφων, πρέπει να έχετε κατά νου την ασφάλειά τους. Επειδή δεν μπορείτε ποτέ να πείτε πότε θα συμβεί η επόμενη απώλεια δεδομένων, συνιστάται η δημιουργία αντιγράφων ασφαλείας σημαντικών αρχείων. Εκτός αυτού, είναι πάντα καλό να αποκτήσετε ένα εργαλείο που μπορεί ανάκτηση εγγράφου, εάν υπάρχει.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων επισκευή xls και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com