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

Cum se selectează toate tabelele din documentul Word?

Este ușor să selectați un tabel în Word făcând clic pe simbol-select-tabel-punct din colțul din stânga sus al tabelului, așa cum se arată în imaginea de mai jos. De asemenea, puteți selecta un tabel cu funcția Selectare tabel. Cu toate acestea, există vreo modalitate de a selecta rapid toate tabelele simultan în documentul Word? Metodele din acest articol vă vor ajuta să treceți prin el. 


Selectați toate tabelele din Word cu cod VBA

Selectați cu ușurință toate tabelele din Word cu Kutools pentru Word


Selectați toate tabelele din Word cu cod VBA

1. presa Alt + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicație fereastră.

2. În deschidere Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module, Apoi copiați și lipiți următorul cod VBA în fereastra Module;

Cod VBA: Selectați toate tabelele din documentul curent:

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. apasă pe F5 tasta pentru a rula codul

Apoi toate tabelele sunt selectate imediat în documentul curent.


Selectați cu ușurință toate tabelele din Word cu Kutools pentru Word

În comparație cu utilizarea unui cod VBA pentru a selecta toate tabelele dintr-un document, Kutools pentru Word Selectați Tabelele utilitatea este destul de la îndemână. Puteți utiliza această caracteristică pentru a selecta tabele dintr-o selecție sau întregul document. Vă rugăm să faceți următoarele:

Kutools pentru Cuvânt : Cu mai mult de 100 de suplimente Word la îndemână, liber să încercați fără limitări 60 zile.

Clic Kutools > Mese > Selectați Tabelele. Vedeți captura de ecran:

notițe: Pentru selectarea tabelelor în selecție, trebuie să selectați mai întâi intervalul și apoi să aplicați caracteristica.

Apoi, puteți vedea rezultatele după cum urmează.

Selectați tabele din selecție:

Selectați tabele din întregul document:

Dacă doriți să aveți o încercare gratuită a acestui utilitar, vă rugăm să accesați descărcați gratuit software-ul mai întâi, apoi mergeți pentru a aplica operația conform pașilor de mai sus.


Demo: Selectați cu ușurință toate tabelele din Word cu Kutools pentru Word



Instrumente de productivitate Word recomandate

 

Kutools pentru Word - Mai mult de 100 de funcții avansate pentru Word, economisiți-vă 50% timp

  • Operațiile complicate și repetate pot fi efectuate o singură dată în câteva secunde.
  • Inserați mai multe imagini în foldere în documentul Word simultan.
  • Combinați și combinați mai multe fișiere Word din foldere într-unul singur cu comanda dorită.
  • Împărțiți documentul curent în documente separate în funcție de titlu, secțiune de secțiune sau alte criterii.
  • Convertiți fișiere între Doc și Docx, Docx și PDF, colecție de instrumente pentru conversii și selecție obișnuite și așa mai departe ...
Comentarii (10)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
mulțumesc mult, este un program bun, dar după câteva zile sa oprit și necesită o parolă și un nume de utilizator
Acest comentariu a fost redus la minimum de moderatorul de pe site
macro excelent și foarte ușor
Acest comentariu a fost redus la minimum de moderatorul de pe site
Cod ingenios la început, dar cu siguranță a corupt o grămadă de tabele în Word 2010. Mi-am dărâmat fișierul destul de bine și a trebuit să revin la o versiune anterioară. Fii atent!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Minunat am obținut soluția folosind codul VBA. Mulțumesc foarte mult
Acest comentariu a fost redus la minimum de moderatorul de pe site
Următorul cod modificat selectează toate tabelele, cu excepția tabelelor care au un singur rând: 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 Următorul cod selectează numai rândurile antetului: Sub selallHeaders() On Error Resume Next ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl ca tabel pentru fiecare Tbl din ActiveDocument.Tables Tbl.Rows(1).Range.Editors.Add (-1) Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Am mai multe astfel de coduri care selectează ultimele rânduri, toate gloanțele, paragrafele mici / lungi, etc. Urmărește următorul videoclip: https://www.youtube.com/watch?v=p_ZhufliFw8
Acest comentariu a fost redus la minimum de moderatorul de pe site
Există mai multe tabele într-un document (aproximativ 200). Vreau să selectez numai toate aceste tabele și să le lipesc într-un document nou în format tabel. Când selectez tabelele conform procedurii de mai sus, atunci în timpul operației de lipire le lipește ca text și nu ca tabel. Poti, te rog, sa ma ajuti?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Se pare că aceste macrocomenzi nu funcționează în Word 2016
Acest comentariu a fost redus la minimum de moderatorul de pe site
Funcționează în Word 2016. Ce eroare primești?
Acest comentariu a fost redus la minimum de moderatorul de pe site
am inteles deja. Pentru macrocomenzi de lucru corecte, cursorul trebuie să nu fie în tabel când apelați macrocomenzi. Mulțumesc.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Foarte frumoasa metoda. Mulțumesc
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL