Στο σημερινό άρθρο, θα σας παρουσιάσουμε 2 γρήγορες και αποτελεσματικές μεθόδους για να μετρήσετε τον αριθμό των κουκκίδων στο έγγραφο του Word.
Κατά καιρούς, χρησιμοποιούσαμε λίστες με κουκκίδες ή αριθμούς στα έγγραφά μας για να οργανώσουμε αντικείμενα. Γενικά, ένα σημείο κουκκίδας ή ένας αριθμός οδηγεί σε ένα μεμονωμένο στοιχείο, είτε πρόκειται για λέξη είτε για φράση ή πρόταση. Τώρα, εάν έχετε μια αριθμημένη λίστα, δεν θα είναι πρόβλημα να υπολογίσετε τον συνολικό αριθμό στοιχείων. Ωστόσο, τι γίνεται αν υπάρχουν λίστες με κουκκίδες στο έγγραφο του Word σας; Η απλή μέτρησή τους ένα προς ένα δεν ακούγεται καλό.
Επομένως, σε περίπτωση που κάποιοι από εσάς ίσως χρειαστεί να συνοψίσετε τον αριθμό κουκκίδας, ακολουθούν 2 τρόποι για να επιλύσετε.
Μέθοδος 1: Μετατροπή λίστας με κουκκίδες σε αριθμημένη λίστα
- Αρχικά, επιλέξτε τη λίστα που θέλετε να λάβετε τον αριθμό κουκκίδας.
- Στη συνέχεια, κάντε κλικ στην επιλογή "Αρίθμηση" στην ομάδα "Παράγραφος" στην καρτέλα "Αρχική σελίδα". Η λίστα με κουκκίδες θα αλλάξει σε αριθμημένη.
Ή μπορείτε επίσης να κάνετε δεξί κλικ στην επιλογή και να μετακινήσετε τον κέρσορα πάνω από την επιλογή "Αρίθμηση" και, στη συνέχεια, τοποθετήστε το δείκτη του ποντικιού σε ένα από τα στυλ αρίθμησης στο μενού επέκτασης. Αυτό σας επιτρέπει να λάβετε τον αριθμό των κουκκίδων χωρίς να μετατρέψετε πραγματικά τη λίστα κουκκίδων σε αριθμημένη.
Παρεμπιπτόντως, εάν πρέπει να μετρήσετε κουκκίδες ολόκληρου του εγγράφου, πρέπει να τοποθετήσετε τον κέρσορα μόνο σε μια λίστα με κουκκίδες και, στη συνέχεια, ακολουθήστε τα παραπάνω βήματα. Θα βρείτε όλες τις λίστες με κουκκίδες στο αρχείο που έχουν μετατραπεί σε αριθμημένες λίστες με αριθμούς στη σειρά, όπως παρακάτω:
Μέθοδος 2: Χρήση μακροεντολής
- Αρχικά, εάν θέλετε να λάβετε τις κουκκίδες μιας συγκεκριμένης λίστας, επιλέξτε την. Διαφορετικά, για την καταμέτρηση των κουκκίδων σε ολόκληρο το έγγραφο, θα πρέπει να πατήσετε "Ctrl + A" για να το επιλέξετε.
- Στη συνέχεια, κάντε κλικ στην καρτέλα "Προγραμματιστής".
- Στη συνέχεια, κάντε κλικ στο "Visual Basic" για να ανοίξετε το πρόγραμμα επεξεργασίας VBA. Ο συνδυασμός συντόμευσης είναι "Alt + F11".
- Τώρα κάντε κλικ στο «Κανονικό» και μετά στο «Εισαγωγή».
- Επιλέξτε "Ενότητα" στη συνέχεια.
- Κάντε διπλό κλικ στη νέα ενότητα και επικολλήστε αυτούς τους κωδικούς στην περιοχή επεξεργασίας:
Sub GetNumberOfBullets()
Dim objRange As Range
Dim objParagraph As Paragraph
Dim nNumber As Integer
' Initialization
Set objRange = Selection.Range
nNumber = 0
For Each objParagraph In objRange.Paragraphs
If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Then
nNumber = nNumber + 1
End If
Next objParagraph
' Pop up a message box to show the total number of bullets.
MsgBox ("Bullet number:" & nNumber)
End Sub
- Τέλος, κάντε κλικ στο "Εκτέλεση".
Θα εμφανιστεί ένα πλαίσιο μηνύματος που θα εμφανίζει το αποτέλεσμα.
Διαχειριστείτε καλά το αρχείο σας
Αντιμετωπίζουμε μεγάλο αριθμό εγγράφων του Word κατά τη διάρκεια της εργασιακής εμπειρίας, προτείνεται να τα χειριστούμε προσεκτικά, γιατί οποιαδήποτε ατυχία μπορεί να οδηγήσει σε διαφθορά. Και σε περίπτωση που προκληθεί ζημιά στο αρχείο, θα χρειαστείτε ένα Εργαλείο ανάκτησης εγγράφων του Word για να σας βοηθήσουμε να φροντίσετε το πρόβλημα.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων xls εργαλείο επισκευής ζημιών δεδομένων και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com