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

Hur markerar jag alla tabeller i Word-dokument?

Det är lätt att välja en tabell i Word genom att klicka på prick-välj-tabell-symbol -knappen i det övre vänstra hörnet av tabellen som visas nedan. Du kan också välja en tabell med funktionen Välj tabell. Finns det dock något sätt att snabbt välja alla tabeller samtidigt i Word-dokument? Metoderna i den här artikeln hjälper dig att komma igenom den. 


Välj alla tabeller i Word med VBA-kod

Välj enkelt alla tabeller i Word med Kutools for Word


Välj alla tabeller i Word med VBA-kod

1. Tryck andra + F11 nycklar för att öppna Microsoft Visual Basic för applikation fönster.

2. I öppningen Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna, Kopiera och klistra sedan in följande VBA-kod i modulfönstret;

VBA-kod: Välj alla tabeller i det aktuella dokumentet:

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. tryck på F5 för att köra koden

Sedan väljs alla tabeller direkt i det aktuella dokumentet.


Välj enkelt alla tabeller i Word med Kutools for Word

Jämför med att använda en VBA-kod för att välja alla tabeller i ett dokument, Kutools for Word Välj tabeller verktyget är ganska praktiskt. Du kan använda den här funktionen för att välja tabeller i ett urval eller hela dokumentet. Gör så här:

Kutools för Word : Med mer än 100 praktiska Word-tillägg, gratis att prova utan begränsning på 60 dagar.

Klicka Kutools > tabeller > Välj tabeller. Se skärmdump:

Anmärkningar: För att välja tabeller i urvalet måste du först välja intervallet och sedan använda funktionen.

Då kan du se resultaten enligt följande.

Välj tabeller i urvalet:

Välj tabeller i hela dokumentet:

Om du vill ha en gratis testversion av det här verktyget, gå till ladda ner programvaran gratis först och sedan tillämpa operationen enligt ovanstående steg.


Demo: Välj enkelt alla tabeller i Word med Kutools för Word



Rekommenderade Word-produktivitetsverktyg

 

Kutools för Word - Mer än 100 avancerade funktioner för Word, spara 50% tid

  • Komplicerade och upprepade operationer kan göras engångsbehandling på några sekunder.
  • Infoga flera bilder över mappar i Word-dokumentet samtidigt.
  • Slå ihop och kombinera flera Word-filer över mappar till en med önskad ordning.
  • Dela upp det aktuella dokumentet i separata dokument enligt rubrik, avsnittbrytning eller andra kriterier.
  • Konvertera filer mellan Doc och Docx, Docx och PDF, samling verktyg för vanliga konverteringar och val, och så vidare ...
Sortera kommentarer efter
Kommentarer (10)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
tack så mycket han är bra program men efter några dagar slutade och kräver lösenord och användarnamn
Denna kommentar minimerades av moderatoren på webbplatsen
utmärkt makro och mycket lätt
Denna kommentar minimerades av moderatoren på webbplatsen
Snygg kod till en början men den förstörde definitivt ett gäng tabeller i Word 2010. Skruvade ihop min fil ganska bra och var tvungen att återgå till en tidigare version. Var försiktig!
Denna kommentar minimerades av moderatoren på webbplatsen
Underbart Jag fick lösningen genom att använda VBA-koden. Tack så mycket
Denna kommentar minimerades av moderatoren på webbplatsen
Följande modifierade kod väljer alla tabeller, förutom tabeller som bara har en rad: Sub SelAllTbls() ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl Som Tabell för varje Tbl I ActiveDocument.Tables Om Tbl.Rows.Count > 1 Sedan Tbl.Range. Editors.Add (-1) End If Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Följande kod väljer endast rubrikraderna: Sub selallHeaders() Vid fel Återuppta Nästa ActiveDocument.DeleteAllEditableRanges (-1)Ranges Dim Tbl Som tabell för varje Tbl i ActiveDocument.Tables Tbl.Rows(1).Range.Editors.Add (-1) Nästa ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Jag har många fler sådana koder som väljer sista raderna, alla kulor, små/långa paras, etc. Se min följande video: https://www.youtube.com/watch?v=p_ZhufliFw8
Denna kommentar minimerades av moderatoren på webbplatsen
Det finns flera tabeller i ett dokument (cirka 200). Jag vill bara markera alla dessa tabeller och klistra in dem i ett nytt dokument i tabellformatet. När jag väljer tabellerna enligt ovanstående procedur så klistrar den in dem som text och inte som tabell under inklistringsoperationen. Kan du vara snäll och hjälpa mig?
Denna kommentar minimerades av moderatoren på webbplatsen
Det verkar som om dessa makron inte fungerar i Word 2016
Denna kommentar minimerades av moderatoren på webbplatsen
Det fungerar i Word 2016. Vilket fel får du?
Denna kommentar minimerades av moderatoren på webbplatsen
Jag förstår redan. För korrekta arbetsmakron måste markören inte vara i tabellen när du anropar makron. Tack.
Denna kommentar minimerades av moderatoren på webbplatsen
Mycket trevlig metod. Tack
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0   Tecken
Föreslagna platser