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

Kako izbrati vse tabele v dokumentu Word?

Tabelo v Wordu je enostavno izbrati s klikom na pika-izberi-tabela-simbol v zgornjem levem kotu tabele, kot je prikazano spodaj. Tabelo lahko izberete tudi s funkcijo Izberi tabelo. Vendar, ali obstaja kakšen način za hitro izbiro vseh tabel naenkrat v dokumentu Word? Metode v tem članku vam bodo pomagale prebroditi to težavo. 


Izberite vse tabele v Wordu s kodo VBA

Preprosto izberite vse tabele v Wordu s programom Kutools for Word


Izberite vse tabele v Wordu s kodo VBA

1. Pritisnite druga + F11 tipke za odpiranje Microsoft Visual Basic za uporabo okno.

2. V uvodu Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli, Nato kopirajte in prilepite naslednjo kodo VBA v okno modula;

Koda VBA: Izberite vse tabele v trenutnem dokumentu:

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. Pritisnite F5 tipko za zagon kode

Nato so v trenutnem dokumentu takoj izbrane vse tabele.


Preprosto izberite vse tabele v Wordu s programom Kutools for Word

Primerjava z uporabo kode VBA za izbiro vseh tabel v dokumentu, Kutools for Word Izberite Tabele uporabnost je zelo priročna. S to funkcijo lahko izberete tabele v izboru ali celotnem dokumentu. Naredite naslednje:

Kutools za Word : Z več kot 100 priročnimi dodatki za Word, brezplačno poskusite brez omejitev 60 dni.

klik Kutools > Mize > Izberite Tabele. Oglejte si posnetek zaslona:

Opombe: Za izbiro tabel v izboru morate najprej izbrati obseg in nato uporabiti funkcijo.

Nato lahko rezultate vidite na naslednji način.

Izberite tabele v izboru:

Izberite tabele v celotnem dokumentu:

Če želite brezplačno preskusiti to orodje, pojdite na brezplačno prenesete programsko opremo najprej in nato nadaljujte z uporabo postopka v skladu z zgornjimi koraki.


Predstavitev: Preprosto izberite vse tabele v Wordu s programom Kutools for Word



Priporočena orodja za produktivnost besed

 

Kutools za Word - Več kot 100 naprednih funkcij za Word, prihranite 50% časa

  • Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
  • V Wordov dokument hkrati vstavite več slik v mape.
  • Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
  • Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
  • Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...
Komentarji (10)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
najlepša hvala je dober program, vendar se je po nekaj dneh ustavil in zahteva geslo in uporabniško ime
Ta komentar je moderator na spletnem mestu minimiziral
odličen makro in zelo enostaven
Ta komentar je moderator na spletnem mestu minimiziral
Sprva dobra koda, vendar je zagotovo pokvarila kup tabel v Wordu 2010. Zelo dobro sem zajebal mojo datoteko in moral sem se vrniti na prejšnjo različico. Bodite previdni!
Ta komentar je moderator na spletnem mestu minimiziral
Čudovito, da sem dobil rešitev z uporabo kode VBA. Najlepša hvala
Ta komentar je moderator na spletnem mestu minimiziral
Naslednja spremenjena koda izbere vse tabele, razen tabel, ki imajo samo eno vrstico: Sub SelAllTbls() ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As Table For Every Tbl In ActiveDocument.Tables Če je Tbl.Rows.Count > 1 Potem Tbl.Range. Editors.Add (-1) End If Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Naslednja koda izbere samo naslovne vrstice: Sub selallHeaders() Ob napaki Nadaljuj naslednji ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl kot tabelo za vsak Tbl v ActiveDocument.Tables Tbl.Rows(1).Range.Editors.Add (-1) Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Imam veliko več takšnih kod ki izberejo zadnje vrstice, vse oznake, majhne/dolge paragrafe itd. Oglejte si moj naslednji videoposnetek: https://www.youtube.com/watch?v=p_ZhufliFw8
Ta komentar je moderator na spletnem mestu minimiziral
V dokumentu je več tabel (približno 200). Želim izbrati samo vse te tabele in jih prilepiti v nov dokument v obliki tabele. Ko izberem tabele po zgornjem postopku, jih med lepljenjem prilepi kot besedilo in ne kot tabelo. Mi lahko prosim pomagate?
Ta komentar je moderator na spletnem mestu minimiziral
Zdi se, da ta makri ne delujejo v Wordu 2016
Ta komentar je moderator na spletnem mestu minimiziral
Deluje v Wordu 2016. Kakšno napako dobivate?
Ta komentar je moderator na spletnem mestu minimiziral
že razumem. Za pravilno delovanje makri kurzor ne sme biti v tabeli, ko kličete makre. Hvala vam.
Ta komentar je moderator na spletnem mestu minimiziral
Zelo lepa metoda. Hvala vam
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL