Στο σημερινό άρθρο, θα σας παρουσιάσουμε 4 πραγματικούς τρόπους για να εξαιρέσετε αριθμούς στο έγγραφο του Word από στατιστικά στοιχεία καταμέτρησης λέξεων.
Γενικά, το Word μετρά όλους τους τύπους κειμένων, είτε πρόκειται για λέξεις ή αριθμούς. Αλλά, τώρα και μετά, είναι πιθανό να κάνουμε μια μέτρηση λέξεων εξαιρουμένων ορισμένων στοιχείων, όπως οι αριθμοί. Ως εκ τούτου, είμαστε στην ευχάριστη θέση να σας δείξουμε 4 μεθόδους για να ικανοποιήσετε μια τέτοια απαίτηση.
Πρώτα απ 'όλα, πρέπει να δημιουργήσετε ένα αντίγραφο ασφαλείας του εγγράφου προορισμού και να εκτελέσετε όλες τις παρακάτω διαδικασίες στο αντίγραφό σας.
Μέθοδος 1: Διαγραφή όλων των αριθμών
- Αρχικά, ανοίξτε το αρχείο αντιγραφής και κάντε κλικ στο αναπτυσσόμενο κουμπί στο "Εύρεση" στην καρτέλα "Αρχική σελίδα".
- Δεύτερον, επιλέξτε "Σύνθετη Εύρεση" για να ανοίξετε το παράθυρο διαλόγου "Εύρεση και αντικατάσταση".
- Στη συνέχεια, πληκτρολογήστε "^ #" στο πλαίσιο κειμένου "Εύρεση τι". Εάν δεν μπορείτε να θυμηθείτε αυτήν τη συμβολοσειρά, τοποθετήστε τον κέρσορα στο πλαίσιο κειμένου "Εύρεση τι" και κάντε κλικ στο "Περισσότερα" και, στη συνέχεια, κάντε κλικ στο κουμπί "Ειδικό".
- Στη συνέχεια, επιλέξτε "Οποιοδήποτε ψηφίο".
- Τώρα κάντε κλικ στο "Εύρεση σε" και επιλέξτε "Κύριο έγγραφο".
- Θα βρείτε όλους τους αριθμούς που είναι επιλεγμένοι.
- Πατήστε "Διαγραφή".
- Μόλις εξαφανιστούν οι αριθμοί, μπορείτε να παρατηρήσετε ότι το Word θεωρεί ορισμένα σημεία στίξης ως λέξεις τώρα. Επομένως, πρέπει επίσης να αφαιρέσετε όλα τα σημεία στίξης. Ανοίξτε ξανά το πλαίσιο "Εύρεση και αντικατάσταση". Αυτή τη φορά εισόδου "[,.;: '"" "/ \! \ * \? \\]"(Χωρίς εισαγωγικά) στο πλαίσιο κειμένου" Εύρεση τι ".
- Και θυμηθείτε να επιλέξετε το πλαίσιο "Χρήση μπαλαντέρ".
- Επαναλάβετε το βήμα 5 για να βρείτε όλα τα σημεία στίξης.
- Διαγράψτε τα.
- Τέλος, κάντε κλικ στο "Κριτική" και στη συνέχεια στο "Word Count" για να δείτε τον συνολικό αριθμό κειμένων.
Μέθοδος 2: Διαμόρφωση όλων των αριθμών ως κρυφών κειμένων
Το Word δεν περιλαμβάνει κρυμμένα κείμενα στην καταμέτρηση λέξεων, επομένως μπορείτε να επιλέξετε να ορίσετε αριθμούς σε κρυφή μορφοποίηση.
- Πρώτα απ 'όλα, επαναλάβετε τα πρώτα 6 βήματα στη μέθοδο.
- Αντί να διαγράψετε επιλεγμένους αριθμούς, πατήστε "Ctrl + D" για να ανοίξετε το πλαίσιο "Γραμματοσειρά".
- Επιλέξτε το πλαίσιο "Κρυφό" και κάντε κλικ στο "OK".
- Στη συνέχεια, επαναλάβετε από το βήμα 8 έως το 9 για να βρείτε όλα τα σημεία στίξης.
- Ομοίως, ακολουθήστε τα βήματα 2 και 3 για να μορφοποιήσετε τα σημεία στίξης ως κρυφά κείμενα.
- Τέλος, ελέγξτε τις συνολικές λέξεις.
Μέθοδος 3: Εκτέλεση Word μακροεντολής
Η ακόλουθη μακροεντολή θα κάνει αυτόματα τα παραπάνω βήματα και θα σας επιστρέψει ένα πλαίσιο μηνύματος, που θα περιέχει τον συνολικό αριθμό λέξεων εκτός των αριθμών.
- Αρχικά, πατήστε "Alt + F11" στο Word για να ανοίξετε το πρόγραμμα επεξεργασίας VBA.
- Στη συνέχεια κάντε κλικ στο "Normal" στην αριστερή στήλη.
- Στη συνέχεια, κάντε κλικ στην καρτέλα "Εισαγωγή" και επιλέξτε "Ενότητα".
- Κάντε διπλό κλικ στη λειτουργική μονάδα για να την ανοίξετε και επικολλήστε τους παρακάτω κωδικούς:
Sub ExcludeNumbersFromWordCount()
Dim objDoc As Document
Dim nWord As Integer
Set objDoc = ActiveDocument
With Selection
.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^#"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[,.;:’" & ChrW(8221) & ChrW(8221) & """/\!\*\?\\]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute
End With
Selection.Find.Execute Replace:=wdReplaceAll
End With
nWord = objDoc.Range.ComputeStatistics(wdStatisticWords)
MsgBox ("There are " & nWord & " words in this document.")
End Sub
- Κάντε κλικ στο "Εκτέλεση".
Θα λάβετε ένα πλαίσιο μηνύματος, που θα σας λέει πόσες λέξεις υπάρχουν στο έγγραφό σας, όπως παρακάτω:
Μέθοδος 4: Εξαίρεση αριθμών σε πίνακες από το Word Count
Ακολουθεί μια ιδιαίτερη ανάγκη εξαίρεσης αριθμών σε πίνακες από τον αριθμό λέξεων. Η λύση είναι να εκτελέσετε μια μακροεντολή.
- Εγκαταστήστε και εκτελέστε μια μακροεντολή όπως αναφέρεται παραπάνω στη μέθοδο 3.
- Στη συνέχεια, αντικαταστήστε αυτήν τη μακροεντολή με αυτήν:
Sub ExcludeNumbersInTablesFromWordCount()
Dim objDoc As Document, objNewDoc As Document
Dim nWord As Integer, nWordInNewDoc As Integer, nWordInNewDocWithoutNum As Integer, nNumber As Integer
Dim objTable As Table
Dim objRange As Range
Dim objParagraph As Paragraph
Set objDoc = ActiveDocument
Set objNewDoc = Documents.Add
nWord = objDoc.Range.ComputeStatistics(wdStatisticWords)
For Each objTable In objDoc.Tables
objTable.Range.Select
Selection.Copy
Set objRange = objNewDoc.Range
objRange.Collapse Direction:=wdCollapseEnd
objRange.PasteSpecial DataType:=wdPasteRTF
objRange.Collapse Direction:=wdCollapseEnd
objRange.Text = vbCr
Next objTable
objNewDoc.Activate
For Each objParagraph In ActiveDocument.Paragraphs
If objParagraph.Range.Style = "Caption" Then
objParagraph.Range.Delete
End If
Next objParagraph
nWordInNewDoc = objNewDoc.Range.ComputeStatistics(wdStatisticWords)
With Selection
.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "^#"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[,.;:’" & ChrW(8221) & ChrW(8221) & """/\!\*\?\\]"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
.Execute
End With
Selection.Find.Execute Replace:=wdReplaceAll
End With
nWordInNewDocWithoutNum = objNewDoc.Range.ComputeStatistics(wdStatisticWords)
nNumber = nWordInNewDoc - nWordInNewDocWithoutNum
objDoc.Activate
MsgBox ("There are " & nWord - nNumber & " words in this document, excluding numbers in tables.")
End Sub
Θα υπάρχει ένα πλαίσιο μηνυμάτων όπως αυτό:
Σκεφτείτε μπροστά
Δεδομένου ότι το Word δεν είναι αλάνθαστο, πρέπει να λάβετε προληπτικά μέτρα πριν όλα είναι πολύ αργά. Ο πιο χρήσιμος τρόπος είναι να δημιουργήσετε αντίγραφα ασφαλείας των εγγράφων σας και να τα δημιουργήσετε όσο το δυνατόν πιο εύκολα. Μπορεί να χρειαστούν μόνο λίγα λεπτά για να δημιουργήσετε αντίγραφα ασφαλείας ενός εγγράφου, αλλά ώρες ακόμη και ημέρες για να ανακτήσετε ένα. κατεστραμμένο docx. Σκεφτείτε λοιπόν για να εξοικονομήσετε χρόνο και χρήμα.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων Επιδιόρθωση Excel και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com