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

Hoe selecteer ik alle tabellen in een Word-document?

Het is gemakkelijk om een ​​tabel in Word te selecteren door op de punt-select-tafel-symbool knop in de linkerbovenhoek van de tabel, zoals hieronder afgebeeld. U kunt ook een tafel selecteren met de functie Tafel selecteren. Is er echter een manier om snel alle tabellen tegelijk in een Word-document te selecteren? De methoden in dit artikel helpen u er doorheen te komen. 


Selecteer alle tabellen in Word met VBA-code

Selecteer eenvoudig alle tabellen in Word met Kutools for Word


Selecteer alle tabellen in Word met VBA-code

1. pers anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassing venster.

2. In de opening Microsoft Visual Basic voor toepassingen venster klikt Invoegen > Module, Kopieer en plak vervolgens de volgende VBA-code in het modulevenster;

VBA-code: selecteer alle tabellen in het huidige document:

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. druk de F5 sleutel om de code uit te voeren

Vervolgens worden alle tabellen onmiddellijk in het huidige document geselecteerd.


Selecteer eenvoudig alle tabellen in Word met Kutools for Word

In vergelijking met het gebruik van een VBA-code om alle tabellen in een document te selecteren, Kutools for Word's Selecteer Tabellen hulpprogramma is best handig. U kunt deze functie gebruiken om tabellen in een selectie of het hele document te selecteren. Ga als volgt te werk:

Kutools for Word : Met meer dan 100 handige Word-invoegtoepassingen, gratis te proberen zonder beperking in 60 dagen.

Klik Kutools > Tafels > Selecteer Tabellen. Zie screenshot:

Opmerking:: Om tabellen in selectie te selecteren, moet u eerst het bereik selecteren en vervolgens de functie toepassen.

Dan kun je de resultaten als volgt zien.

Selecteer tafels in selectie:

Selecteer tabellen in het hele document:

Als u een gratis proefversie van dit hulpprogramma wilt, gaat u naar gratis download de software eerst, en ga dan de bewerking toepassen volgens bovenstaande stappen.


Demo: Selecteer eenvoudig alle tabellen in Word met Kutools for Word



Aanbevolen Word-productiviteitstools

 

Kutools For Word - Meer dan 100 geavanceerde functies voor Word, bespaar 50% tijd

  • Ingewikkelde en herhaalde bewerkingen kunnen een eenmalige verwerking in seconden worden uitgevoerd.
  • Voeg meerdere afbeeldingen in verschillende mappen tegelijk in een Word-document in.
  • Voeg meerdere Word-bestanden in mappen samen en combineer ze tot één met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten op basis van koptekst, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
Heb je vragen? Stel ze hier. (10)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
heel erg bedankt hij is een goed programma, maar na een paar dagen gestopt en wachtwoord en gebruikersnaam nodig
Deze opmerking is gemaakt door de moderator op de site
uitstekende macro en zeer eenvoudig
Deze opmerking is gemaakt door de moderator op de site
Handige code in het begin, maar het heeft zeker een aantal tabellen in Word 2010 beschadigd. Mijn bestand was behoorlijk verpest en moest terugkeren naar een eerdere versie. Wees op uw hoede!
Deze opmerking is gemaakt door de moderator op de site
Geweldig Ik kreeg de oplossing door de VBA-code te gebruiken. Hartelijk bedankt
Deze opmerking is gemaakt door de moderator op de site
De volgende gewijzigde code selecteert alle tabellen, behalve tabellen met slechts één rij: Sub SelAllTbls() ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As Table For Each Tbl In ActiveDocument.Tables Als Tbl.Rows.Count > 1 Then Tbl.Range. Editors.Add (-1) End If Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub De volgende code selecteert alleen de header-rijen: Sub selallHeaders() On Error Resume Next ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl als tabel voor elke Tbl in ActiveDocument.Tables Tbl.Rows(1).Range.Editors.Add (-1) Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Ik heb nog veel meer van dergelijke codes die de laatste rijen, alle opsommingstekens, kleine / lange para's, enz. selecteren. Bekijk mijn volgende video: https://www.youtube.com/watch?v=p_ZhufliFw8
Deze opmerking is gemaakt door de moderator op de site
Er zijn meerdere tabellen in een document (ongeveer 200). Ik wil alleen al deze tabellen selecteren en ze in een nieuw document in tabelformaat plakken. Wanneer ik de tabellen selecteer volgens de bovenstaande procedure, worden ze tijdens de plakbewerking als tekst geplakt en niet als tabel. Kan je me alsjeblieft helpen?
Deze opmerking is gemaakt door de moderator op de site
Het lijkt erop dat deze macro's niet werken in Word 2016
Deze opmerking is gemaakt door de moderator op de site
Het werkt in Word 2016. Welke foutmelding krijg je?
Deze opmerking is gemaakt door de moderator op de site
Ik begrijp het al. Voor correcte werkmacro's mag de cursor niet in de tabel staan ​​wanneer u macro's aanroept. Dank u.
Deze opmerking is gemaakt door de moderator op de site
Heel mooie methode. Dank u
Er zijn nog geen reacties geplaatst

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL