Opomba: Drugi jeziki spletnega mesta so prevedeni z Googlom. Nazaj na angleščino
Vpiši se  \/ 
x
or
x
Registracija  \/ 
x

or

Kako izbrati vse tabele v dokumentu Word?

Tabelo v Wordu je enostavno izbrati s klikom na dot-select-table-symbol 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 v 60 dneh.

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. ...

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