Πώς να αφαιρέσετε κενές γραμμές και στήλες από πίνακες στο Word;
Πώς μπορείτε να αφαιρέσετε όλες τις κενές σειρές και στήλες από πίνακες στο Word; Αυτό το σεμινάριο θα σας δείξει διάφορους τρόπους για να αφαιρέσετε κενές γραμμές και στήλες από πίνακες στο έγγραφο του Word.
Καταργήστε με μη αυτόματο τρόπο όλες τις κενές γραμμές και στήλες από τους πίνακες
Καταργήστε όλες τις κενές σειρές και στήλες από πίνακες χρησιμοποιώντας τον κώδικα VBA
Καταργήστε όλες τις κενές σειρές και στήλες από πίνακες με ένα κλικ
Καταργήστε με μη αυτόματο τρόπο όλες τις κενές γραμμές και στήλες από τους πίνακες
Το Microsoft Office Word δεν παρέχει έναν βολικό τρόπο για την αφαίρεση κενών γραμμών και στηλών και πρέπει να τις καταργήσετε επιλέγοντας χειροκίνητα κάθε κενή σειρά και στήλη και στη συνέχεια διαγράψτε τις μία προς μία.
Βήμα 1: Επιλέξτε την κενή γραμμή ή την κενή στήλη που θέλετε να διαγράψετε. Δείτε το στιγμιότυπο οθόνης:
Βήμα 3: Κάτω Τραπέζι Εργαλεία, κάντε κλικ στο σχέδιο Αυτί;
Βήμα 4: Στο Σειρές & στήλες ομάδα, πατήστε Διαγραφή σειρών ή Διαγραφή στηλών.
Καταργήστε όλες τις κενές σειρές και στήλες από πίνακες χρησιμοποιώντας τον κώδικα VBA
Η λειτουργία μακροεντολών του Word παρέχει έναν πολύ πιο βολικό τρόπο για την αφαίρεση όλων των κενών γραμμών και στηλών από πίνακες στο έγγραφο. Μπορείτε να καταργήσετε όλες τις κενές σειρές και στήλες ως εξής.
Βήμα 1: Πατήστε «Alt-F11» για να ανοίξετε το παράθυρο της Microsoft Visual Basic for Application.
Βήμα 2: Κάντε κλικ στο κουμπί Μονάδα μέτρησης σχετικά με την Κύριο θέμα καρτέλα, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στο παράθυρο Module.
Βήμα 3: Στη συνέχεια κάντε κλικ τρέξιμο για να εφαρμόσετε το VBA.
Ο κώδικας VBA για την κατάργηση όλων των κενών γραμμών και στηλών από πίνακες:
Sub DeleteEmptyTablerowsandcolumns ()
Application.ScreenUpdating = False
Dim Tbl As Table, cel As Cell, i As Long, n As Long, Fempty As Boolean
Με το ActiveDocument
Για κάθε Tbl In. Πίνακες
n = Tbl.Colunns.Count
Για i = n έως 1 Βήμα -1
fEmpty = Σωστό
Για κάθε cel In Tbl. Στήλες (i). Κελιά
Εάν Len (cel.Range.Text)> 2 τότε
fEmpty = Λάθος
Έξοδος για
End If
Επόμενο σελ
Εάν fEmpty = True then Tbl.Columns (i). Διαγραφή
Επόμενο i
Επόμενο Tbl
Τέλος με
Με το ActiveDocument
Για κάθε Tbl In. Πίνακες
n = Tbl.Rows.Count
Για i = n έως 1 Βήμα -1
fEmpty = Σωστό
Για κάθε cel In Tbl.Rows (i). Cells
Εάν Len (cel.Range.Text)> 2 τότε
fEmpty = Λάθος
Έξοδος για
End If
Επόμενο σελ
Εάν fEmpty = True then Tbl.Rows (i). Διαγραφή
Επόμενο i
Επόμενο Tbl
Τέλος με
Ορισμός cel = Τίποτα: Ορισμός Tbl = Τίποτα
Application.ScreenUpdating = True
Sub End
Καταργήστε όλες τις κενές σειρές και στήλες από πίνακες με ένα κλικ
Το Kutools for Word σας παρέχει τον πιο βολικό τρόπο για να αφαιρέσετε όλες τις κενές σειρές και στήλες από πίνακες σε έγγραφο. Απλά πρέπει να κάνετε κλικ μία φορά και Kutools για το Word's Delete Rows/Columns Το βοηθητικό πρόγραμμα θα αφαιρέσει όλες τις κενές γραμμές και στήλες από όλους ή επιλεγμένους πίνακες για εσάς γρήγορα.
Kutools για το Word, με περισσότερα από εύχρηστες λειτουργίες, διευκολύνει τις εργασίες σας. | ||
Μετά την εγκατάσταση Kutools για Word, κάντε τα παρακάτω:(Δωρεάν λήψη Kutools για το Word Now!)
1. κλικ Kutools Plus > Delete Rows/Columns σχετικά με την Table τζάμι.
2. Στη συνέχεια, εμφανίζεται ένα παράθυρο διαλόγου, επιλέξτε το εύρος από το οποίο θέλετε να αφαιρέσετε τους πίνακες στην ενότητα "Αναζήτηση σε" και, στη συνέχεια, ελέγξτε Σειρά επιλογή και Κενή σειρά επιλογή ή επιλέξτε Στήλη επιλογή και Κενή σειρά επιλογή όπως χρειάζεστε. Εάν θέλετε να διαγράψετε όλες τις κενές γραμμές και στήλες, πρέπει να εφαρμόσετε αυτήν τη λειτουργία δύο φορές.
Τώρα εμφανίζεται ένα παράθυρο διαλόγου για να σας υπενθυμίσει πόσα τραπέζια έχουν αντιμετωπιστεί, κάντε κλικ στο OK για να κλείσει και οι κενές γραμμές και στήλες έχουν αφαιρεθεί από τους πίνακες.
Επίδειξη: Κατάργηση κενών γραμμών και στηλών από πίνακες στη λέξη
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Συνοψίστε τα έγγραφα / Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...) / Μαζική μετατροπή σε PDF / Εξαγωγή σελίδων ως εικόνες / Εκτύπωση πολλών αρχείων ταυτόχρονα...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Όλες οι κεφαλίδες / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...
➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Διαγώνιος γραμμικός πίνακας / Λεζάντα εξίσωσης / Λεζάντα εικόνας / Λεζάντα πίνακα / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...
🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες / πίνακες / σχήματα / επικεφαλίδες παραγράφους / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία / αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / εναλλαγή μεταξύ των παραθύρων εγγράφων / 11 Εργαλεία μετατροπής...