Στη σημερινή ανάρτηση, είμαστε στην ευχάριστη θέση να μοιραστούμε μαζί σας 2 αποτελεσματικές μεθόδους για να εξαιρέσετε κείμενα πινάκων από τα στατιστικά στοιχεία καταμέτρησης λέξεων.
Οι πίνακες χρησιμοποιούνται γενικά για τη συγκράτηση δεδομένων. Και οι πίνακες είναι ο καλύτερος φίλος μας στην απεικόνιση πόντων ενώ εργάζεστε σε ένα έγγραφο. Τότε μπορεί να γίνει λίγο αμήχανο όταν πρόκειται για καταμέτρηση λέξεων. Κάποια στιγμή, πρέπει απλώς να λάβουμε τον αριθμό των λέξεων των κύριων κειμένων και όχι όλα τα δεδομένα σε πίνακες. Ωστόσο, είναι γνωστό σε όλους ότι το Word μετρά όλες τις λέξεις στο έγγραφό σας από προεπιλογή. Για αυτόν τον λόγο, καταλήξαμε σε αποτελεσματικά μέσα. Διαβάστε παρακάτω για να μάθετε περισσότερα.
Μέθοδος 1: Επιλέξτε πίνακες με μη αυτόματο τρόπο και κάντε τα μαθηματικά μόνοι σας
Εάν πρόκειται για ένα σύντομο έγγραφο με μόνο έναν ή δύο πίνακες, δεν χρειάζεται να επιλέξετε πίνακες ένα προς ένα κρατώντας πατημένο το πλήκτρο "Ctrl" Σε αυτήν την προσέγγιση, ο συνολικός αριθμός σε επιλεγμένους πίνακες θα είναι ορατός στη γραμμή κατάστασης, όπως παρακάτω:
Όπως βλέπετε, υπάρχουν 2 αριθμοί. Η πρώτη αναφέρεται στον αριθμό των λέξεων σε επιλεγμένους πίνακες, ενώ η δεύτερη είναι ο συνολικός αριθμός λέξεων στο έγγραφό σας. Απλώς χρησιμοποιήστε τον δεύτερο αριθμό για να μείον τον πρώτο για να λάβετε το αποτέλεσμα.
Μέθοδος 2: Εκτέλεση κωδικών VBA
Όπως αναφέρθηκε παραπάνω, η μέθοδος 1 θα είναι κουραστική αν έχετε μεγάλο αριθμό πινάκων στο έγγραφο. Η μη αυτόματη επιλογή τους δεν είναι σίγουρα ο ιδανικός τρόπος. Αντ 'αυτού, σας προτείνουμε μια μακροεντολή που θα μετρά όλες τις λέξεις, αλλά θα τις εξαιρεί σε πίνακες και υπότιτλους.
- Πρώτα απ 'όλα, πατήστε "Alt + F11" για να καλέσετε τον επεξεργαστή VBA στο Word.
- Στη συνέχεια, κάντε κλικ στο "Normal".
- Στη συνέχεια κάντε κλικ στην καρτέλα "Εισαγωγή".
- Και επιλέξτε "Ενότητα" στο αναπτυσσόμενο μενού της καρτέλας "Εισαγωγή".
- Κάντε διπλό κλικ στη νέα ενότητα για να ανοίξετε την περιοχή κωδικοποίησης στη δεξιά πλευρά.
- Τώρα επικολλήστε την ακόλουθη μακροεντολή εκεί:
Sub ExcludeTableAndCaptionWordsFromWordCount()
Dim objTable As Table
Dim objParagraph As Paragraph
Dim objDoc As Document
Dim nTableWords As Integer, nDocWords As Integer, nWordCount As Integer, nCaptionWords As Integer
Set objDoc = ActiveDocument
nTableWords = 0
nCaptionWords = 0
nDocWords = ActiveDocument.ComputeStatistics(wdStatisticWords)
With objDoc
For Each objTable In .Tables
nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords)
Next objTable
End With
With objDoc
For Each objParagraph In .Paragraphs
If objParagraph.Range.Style = "Caption" Then
nCaptionWords = nCaptionWords + objParagraph.Range.ComputeStatistics(wdStatisticWords)
End If
Next objParagraph
End With
nWordCount = nDocWords - nTableWords - nCaptionWords
MsgBox ("There are " & nWordCount & " main text words in this document." & vbCr & "The following items are excluded from word count: " & vbCr & "Total words in tables: " & nTableWords & vbCr & "Total caption words: " & nCaptionWords)
End Sub
- Τέλος, κάντε κλικ στο "Εκτέλεση".
Η εκτέλεση της μακροεντολής θα εμφανίσει ένα πλαίσιο μηνύματος, που δείχνει το αποτέλεσμα της μέτρησης.
Αντιμετωπίστε ζημιές στο Word
Βασιζόμαστε τόσο πολύ σε λογισμικό όπως το Word για την επεξεργασία της εργασίας σε καθημερινή βάση. Ως αποτέλεσμα, δεν μπορούσαμε να σκεφτούμε γυμνά τη συντριπτική συνέπεια της ύπαρξης Λέξη διαφθορά. Μπορείτε να αισθάνεστε απελπισμένοι εκτός εάν έχετε ένα επαρκές εργαλείο επισκευής εγγράφων.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων xls διορθώστε και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com