Note: The other languages of the website are Google-translated. Back to English
Přihlásit se  \/ 
x
or
x
Registrovat  \/ 
x

or

Jak vybrat všechny tabulky v dokumentu Word?

Je snadné vybrat tabulku v aplikaci Word kliknutím na ikonu dot-select-table-symbol 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. ...

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