Note: The other languages of the website are Google-translated. Back to English
Σύνδεση  \/ 
x
or
x
Εγγραφή  \/ 
x

or

Πώς να επιλέξετε όλους τους πίνακες στο έγγραφο του 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, συλλογή εργαλείων για κοινές μετατροπές και επιλογή και ούτω καθεξής ...

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alex · 4 years ago
    It seeems that this macros does not work in Word 2016
    • To post as a guest, your comment is unpublished.
      Suril · 4 years ago
      It works in Word 2016. What error are you getting?
      • To post as a guest, your comment is unpublished.
        Alex · 4 years ago
        I understand already.
        For correct work macros cursor must to be not in table when you call macros.
        Thank you.
  • To post as a guest, your comment is unpublished.
    Iqbal · 4 years ago
    There are multiple tables in a document (about 200). I want to select all these tables only and paste them in a new document in the table format. When I select the tables as per above procedure then during paste operation it pastes them as text and not as table. Can you please help me?
  • To post as a guest, your comment is unpublished.
    Suril · 4 years ago
    The following modified code selects all tables, except tables having only one row:
    Sub SelAllTbls()
    ActiveDocument.DeleteAllEditableRanges (-1)
    Dim Tbl As Table
    For Each Tbl In ActiveDocument.Tables
    If Tbl.Rows.Count > 1 Then
    Tbl.Range.Editors.Add (-1)
    End If
    Next
    ActiveDocument.SelectAllEditableRanges (-1)
    ActiveDocument.DeleteAllEditableRanges (-1)
    End Sub

    The following code select only the header rows:
    Sub selallHeaders()
    On Error Resume Next
    ActiveDocument.DeleteAllEditableRanges (-1)
    Dim Tbl As Table
    For Each Tbl In ActiveDocument.Tables
    Tbl.Rows(1).Range.Editors.Add (-1)
    Next
    ActiveDocument.SelectAllEditableRanges (-1)
    ActiveDocument.DeleteAllEditableRanges (-1)
    End Sub

    I have many more such codes that select last rows, all bullets, small / long paras, etc. Watch my following video:
    https://www.youtube.com/watch?v=p_ZhufliFw8
  • To post as a guest, your comment is unpublished.
    Vinoth Murali · 4 years ago
    Wonderful I got the solution by using the VBA code. Thank you so much
  • To post as a guest, your comment is unpublished.
    JPF · 5 years ago
    Nifty code at first but it definitely corrupted a bunch of tables in Word 2010. Screwed up my file pretty good and had to revert back to an earlier version. Be wary!
  • To post as a guest, your comment is unpublished.
    rodrigo · 6 years ago
    excellent macro and very easy
  • To post as a guest, your comment is unpublished.
    refaat · 7 years ago
    thank you so much
    he is good program but after few days stopped and require password and user name