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

Hvordan vælges alle tabeller i Word-dokument?

Det er let at vælge en tabel i Word ved at klikke på prik-vælg-bord-symbol i øverste venstre hjørne af tabellen som vist nedenstående skærmbillede. Du kan også vælge en tabel med funktionen Vælg tabel. Er der dog nogen måde at hurtigt vælge alle tabeller på én gang i Word-dokument? Metoderne i denne artikel hjælper dig med at komme igennem det. 


Vælg alle tabeller i Word med VBA-kode

Vælg nemt alle tabeller i Word med Kutools til Word


Vælg alle tabeller i Word med VBA-kode

1. Trykke andre + F11 nøgler til at åbne Microsoft Visual Basic til anvendelse vindue.

2. I åbningen Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, Kopier og indsæt derefter følgende VBA-kode i modulvinduet;

VBA-kode: Vælg alle tabeller i det aktuelle dokument:

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. Tryk på F5 nøgle for at køre koden

Derefter vælges alle tabeller i det aktuelle dokument med det samme.


Vælg nemt alle tabeller i Word med Kutools til Word

Sammenligner med at bruge en VBA-kode til at vælge alle tabeller i et dokument, Kutools for Word Vælg tabeller værktøj er ret praktisk. Du kan bruge denne funktion til at vælge tabeller i et valg eller hele dokumentet. Gør som følger:

Kutools for Word : Med mere end 100 praktiske Word-tilføjelsesprogrammer, gratis at prøve uden begrænsning 60 dag.

Klik Kutools > tabeller > Vælg tabeller. Se skærmbillede:

Bemærk: For at vælge tabeller i markeringen skal du først vælge området og derefter anvende funktionen.

Derefter kan du se resultaterne som følger.

Vælg tabeller i markeringen:

Vælg tabeller i hele dokumentet:

Hvis du vil have en gratis prøveversion af dette værktøj, skal du gå til download softwaren gratis først, og gå derefter til for at anvende handlingen i henhold til ovenstående trin.


Demo: Vælg nemt alle tabeller i Word med Kutools til Word



Anbefalede Word-produktivitetsværktøjer

 

Kutools For Word - Mere end 100 avancerede funktioner til Word, spar 50 % tid

  • Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
  • Indsæt flere billeder på tværs af mapper i Word-dokumentet på én gang.
  • Flet og kombiner flere Word-filer på tværs af mapper i en med den ønskede rækkefølge.
  • Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
  • Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...
Sorter kommentarer efter
Kommentarer (10)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
tak så meget han er et godt program, men efter få dage stoppet og kræver adgangskode og brugernavn
Denne kommentar blev minimeret af moderatoren på webstedet
fremragende makro og meget let
Denne kommentar blev minimeret af moderatoren på webstedet
Smart kode i starten, men den beskadigede helt sikkert en masse tabeller i Word 2010. Skruede min fil ret godt op og måtte vende tilbage til en tidligere version. Vær på vagt!
Denne kommentar blev minimeret af moderatoren på webstedet
Vidunderligt, jeg fik løsningen ved at bruge VBA-koden. Mange tak
Denne kommentar blev minimeret af moderatoren på webstedet
Følgende ændrede kode vælger alle tabeller, undtagen tabeller, der kun har én række: Sub SelAllTbls() ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl Som tabel for hver Tbl I ActiveDocument.Tables Hvis Tbl.Rows.Count > 1 Så Tbl.Range. Editors.Add (-1) End If Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Følgende kode vælger kun overskriftsrækkerne: Sub selallHeaders() Ved fejl Genoptag Næste ActiveDocument.DeleteAllEditableRanges (-1)Ranges Dim Tbl Som tabel for hver Tbl i ActiveDocument.Tables Tbl.Rows(1).Range.Editors.Add (-1) Næste ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Jeg har mange flere sådanne koder der vælger sidste rækker, alle kugler, små/lange paras osv. Se min følgende video: https://www.youtube.com/watch?v=p_ZhufliFw8
Denne kommentar blev minimeret af moderatoren på webstedet
Der er flere tabeller i et dokument (ca. 200). Jeg vil kun vælge alle disse tabeller og indsætte dem i et nyt dokument i tabelformatet. Når jeg vælger tabellerne som i ovenstående procedure, indsætter den dem under indsætningsoperationen som tekst og ikke som tabel. Kan du hjælpe mig?
Denne kommentar blev minimeret af moderatoren på webstedet
Det ser ud til, at disse makroer ikke virker i Word 2016
Denne kommentar blev minimeret af moderatoren på webstedet
Det virker i Word 2016. Hvilken fejl får du?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg forstår allerede. For korrekte arbejdsmakroer skal markøren ikke være i tabellen, når du kalder makroer. Tak skal du have.
Denne kommentar blev minimeret af moderatoren på webstedet
Meget fin metode. tak skal du have
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL