Σε αυτό το άρθρο, θα θέλαμε να σας δείξουμε 5 εύκολους τρόπους για να αφαιρέσετε τις κουκκίδες και τους αριθμούς λίστας από το έγγραφο του Word.
Ένα έγγραφο μπορεί να περιέχει λίστες με κουκκίδες και αριθμούς. Μερικές φορές, ίσως χρειαστεί να διαμορφώσετε ξανά αυτές τις λίστες. Για παράδειγμα, ίσως χρειαστεί να ορίσετε τα περιεχόμενα της λίστας με έντονα, πλάγια ή κανονικά κείμενα, για να αναφέρετε μόνο μερικά. Στη συνέχεια, πρέπει πρώτα να αφαιρέσετε όλες τις κουκκίδες και να απαριθμήσετε τους αριθμούς.
Εδώ είναι 5 λύσεις σε διαφορετικές περιπτώσεις.
Μέθοδος 1: Ορίστε κουκκίδες ή αρίθμηση "Καμία"
- Πρώτα απ 'όλα, επιλέξτε ανεπιθύμητες κουκκίδες και αριθμημένες καταχωρήσεις.
- Στη συνέχεια, κάντε κλικ στο αναπτυσσόμενο κουμπί στο "Bullets" ή "Numbering".
- Κάντε κλικ στο "Κανένα".
Ελέγξτε το αποτέλεσμα:
Μέθοδος 2: Ορίστε το "Κανονικό" στυλ για κουκκίδες ή αριθμημένες καταχωρήσεις
- Αρχικά, επιλέξτε περιττές καταχωρήσεις.
- Δεύτερον, κάντε κλικ στην καρτέλα "Αρχική σελίδα" στην Κορδέλα.
- Στη συνέχεια, κάντε κλικ στο κουμπί "Περισσότερα" στην ομάδα "Στυλ".
- Στη συνέχεια επιλέξτε "Normal".
- Εναλλακτικά, μπορείτε να πατήσετε "Ctrl + Shift + N" στο βήμα 2.
Μέθοδος 3: Κατάργηση όλων των κουκκίδων σε ένα έγγραφο
- Πρώτα απ 'όλα, πατήστε "Alt + F11" για να ανοίξετε τον επεξεργαστή VBA στο Word.
- Στο πρόγραμμα επεξεργασίας, κάντε κλικ στο "Κανονικό" έργο.
- Στη συνέχεια, κάντε κλικ στην καρτέλα "Εισαγωγή" και επιλέξτε "Ενότητα".
- Κάντε διπλό κλικ στη νέα ενότητα για να αναδείξετε την περιοχή επεξεργασίας και επικολλήστε την ακόλουθη μακροεντολή εκεί:
Sub RemoveAllBulletsInADoc()
Dim objParagraph As Paragraph
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
For Each objParagraph In ActiveDocument.Paragraphs
If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Then
objParagraph.Range.ListFormat.RemoveNumbers
End If
Next objParagraph
Application.ScreenUpdating = True
Set objDoc = Nothing
End Sub
- Τέλος, κάντε κλικ στο "Εκτέλεση" ή πατήστε "F5".
Εδώ είναι το αποτέλεσμα:
Μέθοδος 4: Κατάργηση όλων των αριθμών λίστας σε ένα έγγραφο
- Αρχικά, επαναλάβετε τα βήματα στη μέθοδο 3 για να εγκαταστήσετε και να εκτελέσετε μια μακροεντολή.
- Μόνο εσείς χρειάζεστε αυτήν τη μακροεντολή αντί:
Sub RemoveAllListNumbersInADoc()
Dim objParagraph As Paragraph
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
For Each objParagraph In objDoc.Paragraphs
If objParagraph.Range.ListFormat.ListType = wdListSimpleNumbering Then
objParagraph.Range.ListFormat.RemoveNumbers
End If
Next objParagraph
Application.ScreenUpdating = True
Set objDoc = Nothing
End Sub
Μέθοδος 5: Κατάργηση όλων των κουκκίδων και αριθμών λίστας σε ένα έγγραφο
Τώρα σε περίπτωση που πρέπει να αφαιρέσετε τόσο κουκκίδες όσο και αριθμούς λιστών, μπορείτε να χρησιμοποιήσετε την ακόλουθη μακροεντολή:
Sub RemoveBulletsAndListBumbers()
Dim objParagraph As Paragraph
Dim objDoc As Document
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
For Each objParagraph In objDoc.Paragraphs
If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Or wdListSimpleNumbering Then
objParagraph.Range.ListFormat.RemoveNumbers
End If
Next objParagraph
Application.ScreenUpdating = True
Set objDoc = Nothing
End Sub
Επιλέξτε ένα αξιόπιστο εργαλείο επιδιόρθωσης
Δεδομένου ότι το Word είναι ευαίσθητο σε σφάλματα, υπάρχουν πολλά εργαλεία επισκευής που έχουν σχεδιαστεί διορθώστε το Word. Ωστόσο, πρέπει να δώσετε αρκετή προσοχή ενώ επιλέγετε ένα τέτοιο βοηθητικό πρόγραμμα, ειδικά σε περιόδους έκτακτης ανάγκης. Να θυμάστε ότι το αναξιόπιστο εργαλείο μπορεί να προκαλέσει περαιτέρω ζημιά στα δεδομένα σας.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων διορθώστε το xls και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com