Note: The other languages of the website are Google-translated. Back to English

Πώς να επιλέξετε όλους τους πίνακες στο έγγραφο του Word;

Είναι εύκολο να επιλέξετε έναν πίνακα στο Word κάνοντας κλικ στο dot-select-table-σύμβολο κουμπί στην επάνω αριστερή γωνία του πίνακα όπως φαίνεται το παρακάτω στιγμιότυπο οθόνης. Μπορείτε επίσης να επιλέξετε έναν πίνακα με τη δυνατότητα Select Table. Ωστόσο, υπάρχει τρόπος να επιλέξετε γρήγορα όλους τους πίνακες ταυτόχρονα στο έγγραφο του Word; Οι μέθοδοι σε αυτό το άρθρο θα σας βοηθήσουν να το ξεπεράσετε. 


Επιλέξτε όλους τους πίνακες στο Word με κωδικό VBA

Επιλέξτε εύκολα όλους τους πίνακες στο Word με Kutools για Word


Επιλέξτε όλους τους πίνακες στο Word με κωδικό VBA

1. Τύπος άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογή παράθυρο.

2. Στο άνοιγμα Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησης, Στη συνέχεια, αντιγράψτε και επικολλήστε τον ακόλουθο κώδικα VBA στο παράθυρο Module.

Κωδικός VBA: Επιλέξτε όλους τους πίνακες στο τρέχον έγγραφο:

Sub selecttables()
Dim mytable As Table

For Each mytable In ActiveDocument.Tables
mytable.Range.Editors.Add wdEditorEveryone
Next
ActiveDocument.SelectAllEditableRanges (wdEditorEveryone)
ActiveDocument.DeleteAllEditableRanges (wdEditorEveryone)
End Sub

3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα

Στη συνέχεια, όλοι οι πίνακες επιλέγονται στο τρέχον έγγραφο αμέσως.


Επιλέξτε εύκολα όλους τους πίνακες στο Word με Kutools για Word

Σε σύγκριση με τη χρήση ενός κωδικού VBA για την επιλογή όλων των πινάκων σε ένα έγγραφο, το Kutools for Word's Επιλέξτε Πίνακες χρησιμότητα είναι αρκετά βολικό. Μπορείτε να χρησιμοποιήσετε αυτήν τη δυνατότητα για να επιλέξετε πίνακες σε μια επιλογή ή ολόκληρο το έγγραφο. Κάντε τα εξής:

Kutools για το Word : Με περισσότερα από 100 εύχρηστα πρόσθετα Word, δωρεάν δοκιμή χωρίς περιορισμό 60 ημέρες.

Πατήστε Kutools > πίνακες > Επιλέξτε Πίνακες. Δείτε το στιγμιότυπο οθόνης:

Note: Για την επιλογή πινάκων στην επιλογή, πρέπει πρώτα να επιλέξετε το εύρος και, στη συνέχεια, να εφαρμόσετε τη λειτουργία.

Στη συνέχεια, μπορείτε να δείτε τα αποτελέσματα ως εξής.

Επιλέξτε πίνακες στην επιλογή:

Επιλέξτε πίνακες σε ολόκληρο το έγγραφο:

Εάν θέλετε να δοκιμάσετε δωρεάν αυτό το βοηθητικό πρόγραμμα, μεταβείτε στη διεύθυνση δωρεάν λήψη του λογισμικού πρώτα και μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Επίδειξη: Επιλέξτε εύκολα όλους τους πίνακες στο Word με το Kutools για το Word



Συνιστώμενα εργαλεία παραγωγικότητας του Word

 

Kutools For Word - Περισσότερες από 100 προηγμένες λειτουργίες για το Word, εξοικονομήστε 50% χρόνο

  • Περίπλοκες και επαναλαμβανόμενες λειτουργίες μπορούν να γίνουν μία φορά επεξεργασία σε δευτερόλεπτα.
  • Εισαγάγετε πολλές εικόνες στους φακέλους στο έγγραφο του Word ταυτόχρονα.
  • Συγχώνευση και συνδυασμός πολλαπλών αρχείων Word σε όλους τους φακέλους σε ένα με την επιθυμητή σειρά.
  • Διαχωρίστε το τρέχον έγγραφο σε ξεχωριστά έγγραφα σύμφωνα με την επικεφαλίδα, το τμήμα αλλαγής ή άλλα κριτήρια.
  • Μετατροπή αρχείων μεταξύ Doc και Docx, Docx και PDF, συλλογή εργαλείων για κοινές μετατροπές και επιλογή και ούτω καθεξής ...
Σχόλια (10)
Δεν υπάρχουν ακόμη βαθμολογίες. Γίνε ο πρώτος που θα αξιολογήσετε!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
ευχαριστώ πολύ είναι καλό πρόγραμμα αλλά μετά από λίγες μέρες σταμάτησε και απαιτεί κωδικό πρόσβασης και όνομα χρήστη
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
εξαιρετική μακροεντολή και πολύ εύκολη
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Εξαιρετικός κώδικας στην αρχή, αλλά σίγουρα κατέστρεψε ένα σωρό πίνακες στο Word 2010. Χάλασε το αρχείο μου αρκετά καλά και έπρεπε να επιστρέψω σε προηγούμενη έκδοση. Να είστε προσεκτικοί!
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Θαυμάσια πήρα τη λύση χρησιμοποιώντας τον κώδικα VBA. Σε ευχαριστώ πάρα πολύ
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Ο παρακάτω τροποποιημένος κώδικας επιλέγει όλους τους πίνακες, εκτός από τους πίνακες που έχουν μόνο μία σειρά: Sub SelAllTbls() ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl ως πίνακας για κάθε Tbl στο ActiveDocument.Tables If Tbl.Rows.Count > 1 Τότε Tbl.Range. Editors.Add (-1) End If Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Ο παρακάτω κώδικας επιλέγει μόνο τις σειρές κεφαλίδων: Sub selallHeaders() On Error Resume Next ActiveDocument.DeleteRangAllEdit (1) Dim Tbl ως πίνακας για κάθε Tbl σε ActiveDocument.Tables Tbl.Rows(1).Range.Editors.Add (-1) Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Έχω πολλούς ακόμη τέτοιους κωδικούς που επιλέγουν τις τελευταίες σειρές, όλες τις κουκκίδες, τις μικρές / μεγάλες παραγράφους κ.λπ. Δείτε το παρακάτω βίντεο: https://www.youtube.com/watch?v=p_ZhufliFw8
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Υπάρχουν πολλοί πίνακες σε ένα έγγραφο (περίπου 200). Θέλω να επιλέξω όλους αυτούς τους πίνακες μόνο και να τους επικολλήσω σε ένα νέο έγγραφο σε μορφή πίνακα. Όταν επιλέγω τους πίνακες σύμφωνα με την παραπάνω διαδικασία, τότε κατά τη λειτουργία επικόλλησης τους επικολλά ως κείμενο και όχι ως πίνακα. Μπορείτε παρακαλώ να με βοηθήσετε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Φαίνεται ότι αυτή η μακροεντολή δεν λειτουργεί στο Word 2016
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Λειτουργεί στο Word 2016. Τι σφάλμα λαμβάνετε;
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
καταλαβαίνω ήδη. Για σωστή εργασία μακροεντολών, ο κέρσορας πρέπει να μην βρίσκεται στον πίνακα όταν καλείτε μακροεντολές. Σας ευχαριστώ.
Αυτό το σχόλιο ελαχιστοποιήθηκε από τον συντονιστή του ιστότοπου
Πολύ ωραία μέθοδος. Σας ευχαριστώ
Δεν υπάρχουν σχόλια δημοσιεύτηκε ακόμα
Αφήστε τα σχόλιά σας
Δημοσίευση ως επισκέπτης
×
Αξιολογήστε αυτήν την ανάρτηση:
0   Χαρακτήρες
Προτεινόμενες τοποθεσίες

Ακολουθησε μας

Πνευματικά δικαιώματα © 2009 - www.extendoffice.com. | Ολα τα δικαιώματα διατηρούνται. Τροφοδοτείται από ExtendOffice. | Sitemap
Το Microsoft και το λογότυπο του Office είναι εμπορικά σήματα ή σήματα κατατεθέντα της Microsoft Corporation στις Ηνωμένες Πολιτείες ή / και σε άλλες χώρες.
Προστατεύεται από το Sectigo SSL