Přejít k hlavnímu obsahu

Jak vybrat všechny tabulky v dokumentu Word?

Je snadné vybrat tabulku v aplikaci Word kliknutím na ikonu symbol tabulky výběru tečky tlačítko v levém horním rohu tabulky, jak je uvedeno níže. Tabulku můžete také vybrat pomocí funkce Vybrat tabulku. Existuje však nějaký způsob, jak v dokumentu Word rychle vybrat všechny tabulky najednou? Metody v tomto článku vám pomohou se přes to dostat. 


Vyberte všechny tabulky v aplikaci Word s kódem VBA

Pomocí aplikace Kutools pro Word můžete snadno vybrat všechny tabulky v aplikaci Word


Vyberte všechny tabulky v aplikaci Word s kódem VBA

1. lis Další + F11 klávesy pro otevření Microsoft Visual Basic pro aplikaci okno.

2. V otvoru Microsoft Visual Basic pro aplikace okno, klepněte na tlačítko Vložit > Modul„Poté zkopírujte a vložte následující kód VBA do okna modulu;

Kód VBA: Vyberte všechny tabulky v aktuálním 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. zmáčkni F5 klíč ke spuštění kódu

Poté jsou v aktuálním dokumentu okamžitě vybrány všechny tabulky.


Pomocí aplikace Kutools pro Word můžete snadno vybrat všechny tabulky v aplikaci Word

Ve srovnání s použitím kódu VBA k výběru všech tabulek v dokumentu, Kutools pro Word Vyberte tabulky užitečnost je docela užitečná. Tuto funkci můžete použít k výběru tabulek ve výběru nebo v celém dokumentu. Postupujte prosím následovně:

Kutools pro Word : S více než 100 užitečnými doplňky Wordu, zdarma k vyzkoušení bez omezení 60 dny.

klikněte Kutools > Tabulky > Vyberte tabulky. Viz snímek obrazovky:

Poznámka: Pro výběr tabulek ve výběru musíte nejprve vybrat rozsah a poté použít funkci.

Výsledky můžete vidět následovně.

Vyberte tabulky ve výběru:

Vyberte tabulky v celém dokumentu:

Chcete-li mít bezplatnou zkušební verzi tohoto nástroje, přejděte na software si stáhněte zdarma nejprve a poté přejděte k použití operace podle výše uvedených kroků.


Ukázka: Snadno vyberte všechny tabulky v aplikaci Word pomocí programu Kutools pro Word


Nejlepší nástroje pro produktivitu v kanceláři

Kutools pro Word - Zvyšte své zkušenosti se slovem Over 100 Pozoruhodné vlastnosti!

🤖 Kutools AI asistent: Transformujte své psaní pomocí AI - Generovat obsah  /  Přepsat text  /  Shrnout dokumenty  /  Vyžádejte si informace na základě dokumentu, vše ve Wordu

📘 Mistrovství dokumentů: Rozdělit stránky  /  Sloučit dokumenty  /  Exportovat výběr v různých formátech (PDF/TXT/DOC/HTML...)  /  Dávkový převod do PDF  /  Exportujte stránky jako obrázky  /  Tisk více souborů najednou...

Úprava obsahu: Dávkové hledání a nahrazení přes více souborů  /  Změnit velikost všech obrázků  /  Transponujte řádky a sloupce tabulky  /  Převést tabulku na text...

🧹 Čištění bez námahy: Smést pryč Extra prostory  /  Sekce přestávky  /  Všechny záhlaví  /  Textová pole  /  Odkazy  / Další nástroje pro odstraňování naleznete u nás Odstranit skupinu...

Kreativní vložky: Vložit Tisíc separátorů  /  Zaškrtávací políčka  /  Tlačítka rádia  /  QR kód  /  čárový kód  /  Tabulka diagonálních čar  /  Titulek rovnice  /  Titulek obrázku  /  Titulek tabulky  /  Více obrázků  / Objevte více v Vložit skupinu...

???? Přesné výběry: Přesně konkrétní stránky  /  Tabulky  /  Tvary  /  nadpisové odstavce  / Vylepšete navigaci pomocí vice Vyberte funkce...

Vylepšení hvězd: Navigujte rychle na libovolné místo  /  automatické vkládání opakujícího se textu  /  plynule přepínat mezi okny dokumentů  /  11 Konverzní nástroje...

???? Chcete si tyto funkce vyzkoušet? Kutools for Word nabízí a Denní zkušební doba 60, bez omezení! ????
Stažení zdarma     Více     Kup nyní
 
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Very nice method. Thank you
This comment was minimized by the moderator on the site
It seeems that this macros does not work in Word 2016
This comment was minimized by the moderator on the site
It works in Word 2016. What error are you getting?
This comment was minimized by the moderator on the site
I understand already. For correct work macros cursor must to be not in table when you call macros. Thank you.
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Wonderful I got the solution by using the VBA code. Thank you so much
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
excellent macro and very easy
This comment was minimized by the moderator on the site
thank you so much he is good program but after few days stopped and require password and user name
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations