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

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 vyzkoušet bez omezení do 60 dnů.

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



Doporučené nástroje produktivity slov

 

Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetříte 50% času

  • Složité a opakované operace lze provádět jednorázově během několika sekund.
  • Vložte více obrázků do složek do dokumentu Word najednou.
  • Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
  • Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
  • Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...
Komentáře (10)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
moc děkuji, je to dobrý program, ale po několika dnech se zastavil a vyžaduje heslo a uživatelské jméno
Tento komentář byl moderátorem webu minimalizován
vynikající makro a velmi snadné
Tento komentář byl moderátorem webu minimalizován
Zpočátku šikovný kód, ale rozhodně to poškodilo spoustu tabulek ve Wordu 2010. Můj soubor pěkně podělal a musel jsem se vrátit zpět k dřívější verzi. Buď opatrný!
Tento komentář byl moderátorem webu minimalizován
Skvělé, že jsem dostal řešení pomocí kódu VBA. Děkuji mnohokrát
Tento komentář byl moderátorem webu minimalizován
Následující upravený kód vybere všechny tabulky kromě tabulek, které mají pouze jeden řádek: Sub SelAllTbls() ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As Table pro každou Tbl In ActiveDocument.Tables If Tbl.Rows.Count > 1 Then Tbl.Range. Editors.Add (-1) End If Další ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Následující kód vybere pouze řádky záhlaví: Sub selallHeaders() On Error Resume Next ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl jako tabulku pro každý Tbl v ActiveDocument.Tables Tbl.Rows(1).Range.Editors.Add (-1) Další ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Mám mnohem více takových kódů které vybírají poslední řádky, všechny odrážky, malé / dlouhé paragrafy atd. Podívejte se na mé následující video: https://www.youtube.com/watch?v=p_ZhufliFw8
Tento komentář byl moderátorem webu minimalizován
V dokumentu je více tabulek (asi 200). Chci vybrat pouze všechny tyto tabulky a vložit je do nového dokumentu ve formátu tabulky. Když vyberu tabulky podle výše uvedeného postupu, během operace vkládání je vloží jako text a ne jako tabulku. Můžete mi prosím pomoci?
Tento komentář byl moderátorem webu minimalizován
Zdá se, že tato makra ve Wordu 2016 nefungují
Tento komentář byl moderátorem webu minimalizován
Funguje ve Wordu 2016. Jaká chyba se vám zobrazuje?
Tento komentář byl moderátorem webu minimalizován
už chápu. Aby makra fungovala správně, nesmí být kurzor při volání maker v tabulce. Děkuji.
Tento komentář byl moderátorem webu minimalizován
Velmi pěkná metoda. Děkuji
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění