Στο σημερινό άρθρο, υπάρχουν 3 γρήγοροι τρόποι για να λαμβάνετε στατιστικά στοιχεία καταμέτρησης λέξεων που σχετίζονται με πλαίσια κειμένου, υποσημειώσεις και σημειώσεις τέλους στο έγγραφό σας.
Δεν είναι δύσκολο να βρείτε τον συνολικό αριθμό των λέξεων σε ένα έγγραφο. Αλλά αν θέλετε να λάβετε τον αριθμό των λέξεων διαφορετικών ειδών κειμένων, τότε θα απαιτηθούν περισσότερες λειτουργίες. Ακολουθούν 3 μέθοδοι. Διαβάστε παρακάτω για να δείτε τι μπορείτε να χρησιμοποιήσετε. 
Μέθοδος 1: Μετρήστε λέξεις συμπεριλαμβανομένων κειμένων από πλαίσια κειμένου, υποσημειώσεις και σημειώσεις τέλους
Από προεπιλογή, το Word μετράει όλες τις λέξεις που εμφανίζονται στο έγγραφο, συμπεριλαμβανομένων κειμένων σε πλαίσια κειμένου και λέξεων από υποσημειώσεις και σημειώσεις τέλους.
- Πρώτα απ 'όλα, μεταβείτε στη γραμμή κατάστασης και κάντε κλικ στην επιλογή "Λέξεις" για να ανοίξετε το πλαίσιο "Αριθμός λέξεων".
- Εκεί θα δείτε όλα τα είδη στατιστικών. Βεβαιωθείτε ότι έχετε επιλέξει το πλαίσιο "Συμπερίληψη πλαισίων κειμένου, υποσημειώσεων και σημειώσεων τέλους".
- Στη συνέχεια κάντε κλικ στο «Κλείσιμο».
- Εάν δεν μπορείτε να βρείτε την εντολή "Λέξεις" στη γραμμή κατάστασης, κάντε δεξί κλικ εκεί.
- Στη συνέχεια, ελέγξτε το "Αριθμός λέξεων".
Μέθοδος 2: Εξαίρεση κειμένων από πλαίσια κειμένου, υποσημειώσεις και σημειώσεις τέλους από καταμέτρηση λέξεων
Αυτό είναι αντίθετο με τη μέθοδο 1. Επομένως, πρέπει απλώς να καταργήσετε την επιλογή του πλαισίου «Συμπερίληψη πλαισίων κειμένου, υποσημειώσεων και σημειώσεων τέλους».
Μέθοδος 3: Εκτελέστε τη μακροεντολή του Word για να λάβετε ξεχωριστό αριθμό λέξεων από πλαίσια κειμένου, υποσημειώσεις και σημειώσεις τέλους
- Αρχικά, ενεργοποιήστε το πλαίσιο "Αριθμός λέξεων" χρησιμοποιώντας τον τρόπο στη μέθοδο 1 και βεβαιωθείτε ότι το πλαίσιο επιλογής είναι επιλεγμένο.
- Στη συνέχεια, πατήστε "Alt+ F11" για να ανοίξετε το πρόγραμμα επεξεργασίας VBA.
- Στη συνέχεια, εισαγάγετε μια νέα ενότητα στο έργο "Κανονικό" κάνοντας πρώτα κλικ στο "Κανονικό".
- Και κάντε κλικ στο «Εισαγωγή» στη συνέχεια.
- Επιλέξτε «Ενότητα» στη συνέχεια.
- Κάντε διπλό κλικ στη μονάδα για να ανοίξετε την περιοχή κωδικοποίησης και να επικολλήσετε τους ακόλουθους κωδικούς εκεί:
Sub SeparateCountNumberOfTextboxFootnoteEndnote()
Dim lTextboxWords As Long
Dim lTextboxChars As Long
Dim lDocumntWords As Long
Dim lDocumntChars As Long
Dim objTextboxShape As Shape
Dim objTemp As Dialog
Dim bDone As Boolean
Dim objRange As Range
Dim lFootnoteWords As Long
Dim lFootnoteChars As Long
Dim lEndnoteWords As Long
Dim lEndnoteChars As Long
Application.ScreenUpdating = False
Do
bDone = True
For Each objTextboxShape In ActiveDocument.Shapes
If objTextboxShape.Type = msoGroup Then
objTextboxShape.Ungroup
bDone = False
End If
Next objTextboxShape
Loop Until bDone
' Count the words and characters in the whole document.
Selection.HomeKey Unit:=wdStory
Set objTemp = Dialogs(wdDialogToolsWordCount)
objTemp.Update
objTemp.Execute
lDocumntWords = objTemp.Words
lDocumntChars = objTemp.Characters
With ActiveDocument
' Count the words and characters in all textboxes.
lTextboxWords = 0
lTextboxChars = 0
If ActiveDocument.Shapes.Count > 0 Then
For Each objTextboxShape In .Shapes
objTextboxShape.Select
objTemp.Execute
lTextboxWords = lTextboxWords + objTemp.Words
lTextboxChars = lTextboxChars + objTemp.Characters
Next objTextboxShape
Else
MsgBox ("There is no text box in this document")
End If
' Count the words and characters in all footnotes.
lFootnoteWords = 0
lFootnoteChars = 0
If ActiveDocument.Footnotes.Count > 0 Then
For Each objRange In .StoryRanges
If objRange.StoryType = wdFootnotesStory Then
objRange.Select
objTemp.Execute
lFootnoteWords = lFootnoteWords + objTemp.Words
lFootnoteChars = lFootnoteChars + objTemp.Characters
End If
Next objRange
Else
MsgBox ("There is no footnote in this document")
End If
' Count the words and characters in all endnotes.
lEndnoteWords = 0
lEndnoteChars = 0
If ActiveDocument.Endnotes.Count > 0 Then
For Each objRange In .StoryRanges
If objRange.StoryType = wdEndnotesStory Then
objRange.Select
objTemp.Execute
lEndnoteWords = lEndnoteWords + objTemp.Words
lEndnoteChars = lEndnoteChars + objTemp.Characters
End If
Next objRange
Else
MsgBox ("There is no Endnote in this document")
End If
End With
Application.ScreenUpdating = True
MsgBox (" In this document there are totally" & vbCr _
& Str(lDocumntWords) & " word(s) and" & Str(lDocumntChars) & " characters" & vbCr & vbCr _
& "Including:" & vbCr _
& Str(ActiveDocument.Shapes.Count) & " textboxes contain(s)" & vbCr _
& Str(lTextboxWords) & " word(s)," & Str(lTextboxChars) & " characters" & vbCr & vbCr _
& Str(ActiveDocument.Footnotes.Count) & " footnotes contain(s)" & vbCr _
& Str(lFootnoteWords) & " word(s)," & Str(lFootnoteChars) & " characters" & vbCr & vbCr _
& Str(ActiveDocument.Endnotes.Count) & " Endnotes contain(s)" & vbCr _
& Str(lEndnoteWords) & " word(s)," & Str(lEndnoteChars) & " characters")
End Sub
- Τέλος, κάντε κλικ στο κουμπί "Εκτέλεση".
Εάν δεν υπάρχει πλαίσιο κειμένου, υποσημείωση ή σημείωση τέλους, θα λάβετε ένα πλαίσιο μηνύματος ως εξής:
Απλώς κάντε κλικ στο "OK" για να προχωρήσετε. Στη συνέχεια, θα δείτε ένα άλλο πλαίσιο, όπου θα παρατίθενται όλες οι λεπτομέρειες του αριθμού των λέξεων.
Αποκτήστε ένα εργαλείο ανάκτησης
Δεδομένου ότι το Word μπορεί να καταρρεύσει ξαφνικά, συνιστάται να αποκτήσετε ένα προηγμένο προϊόν επισκευής για να κάνετε τη δουλειά επισκευής. Ένα τέτοιο εργαλείο μπορεί να είναι μια μεγάλη εξοικονόμηση κατεστραμμένο Word. Επομένως, αδράξτε χρόνο για να αποκτήσετε ένα το συντομότερο δυνατό.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων διορθώστε το xls και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com