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

Hogyan válasszuk ki az összes táblázatot a Word dokumentumban?

A táblára kattintva könnyen kiválasztható a Word dot-select-table-symbol gomb az asztal bal felső sarkában, az alábbi képernyőképen. Táblát is kiválaszthat a Tábla kiválasztása funkcióval. Van-e azonban valamilyen módszer az összes táblázat gyors kiválasztására a Word dokumentumban? Az ebben a cikkben szereplő módszerek segítenek átjutni rajta. 


Válassza ki az összes táblázatot a Wordben VBA kóddal

Könnyen kiválaszthatja az összes táblázatot a Wordben a Kutools for Word segítségével


Válassza ki az összes táblázatot a Wordben VBA kóddal

1. nyomja meg más + F11 billentyűk megnyitásához Microsoft Visual Basic alkalmazásokhoz ablak.

2. A megnyitón Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok, Ezután másolja és illessze be a következő VBA kódot a Modul ablakba;

VBA kód: Jelölje ki az összes dokumentumot az aktuális dokumentumban:

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. megnyomni a F5 gombot a kód futtatásához

Ezután azonnal kiválasztja az összes táblázatot az aktuális dokumentumban.


Könnyen kiválaszthatja az összes táblázatot a Wordben a Kutools for Word segítségével

Összehasonlítva a VBA kód használatával a dokumentum összes táblájának kiválasztásához, a Kutools for Word's Válassza a Táblák lehetőséget hasznosság elég praktikus. Ezzel a szolgáltatással kiválaszthatja a kijelölés tábláit vagy a teljes dokumentumot. Kérjük, tegye a következőket:

Kutools for Word : Több mint 100 praktikus Word-bővítménnyel, ingyenesen kipróbálható korlátozás nélkül 60 napok.

Kattints Kutools > Asztalok > Válassza a Táblák lehetőséget. Lásd a képernyőképet:

Megjegyzések: A kiválasztott táblák kiválasztásához először ki kell választania a tartományt, majd alkalmazni kell a funkciót.

Ezután az alábbiak szerint láthatja az eredményeket.

Válasszon táblázatokat a kiválasztásból:

Táblázatok kiválasztása az egész dokumentumban:

Ha szeretné ingyenesen kipróbálni ezt a segédprogramot, kérjük, látogasson el ide: ingyenesen letölthető a szoftver először, majd lépjen a művelet végrehajtására a fenti lépések szerint.


Bemutató: Könnyen kiválaszthatja az összes táblázatot a Wordben a Kutools for Word segítségével



Ajánlott Word-termelékenységi eszközök

 

Kutools for Word - Több mint 100 speciális szolgáltatás a Word számára, takarítson meg 50% időt

  • A bonyolult és ismételt műveletek másodpercek alatt egyszeri feldolgozást végezhetnek.
  • Egyszerre több képet illesszen be a mappákba a Word dokumentumba.
  • Egyesítsen és egyesítsen több Word-fájlt a mappák között a kívánt sorrenddel.
  • Bontja az aktuális dokumentumot külön dokumentumokká címsor, szakasz törés vagy egyéb szempontok szerint.
  • Fájlok konvertálása a Doc és a Docx, a Docx és a PDF között, a közös konverzióhoz és kiválasztáshoz szükséges eszközök gyűjteménye stb.
A megjegyzések rendezése szerint
Hozzászólások (10)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
köszönöm szépen, jó program, de néhány nap múlva leállt, és jelszót és felhasználónevet igényel
A weboldal moderátora ezt a megjegyzést minimalizálta
kiváló makró és nagyon egyszerű
A weboldal moderátora ezt a megjegyzést minimalizálta
Eleinte remek kód volt, de határozottan megrontott egy csomó táblázatot a Word 2010-ben. Elég jól elrontotta a fájlomat, és vissza kellett térnem egy korábbi verzióhoz. Légy óvatos!
A weboldal moderátora ezt a megjegyzést minimalizálta
Csodálatos, hogy a VBA kód használatával megkaptam a megoldást. Nagyon szépen köszönöm
A weboldal moderátora ezt a megjegyzést minimalizálta
A következő módosított kód az összes táblát kijelöli, kivéve az egysoros táblákat: Sub SelAllTbls() ActiveDocument.DeleteAllEditableRange (-1) Dim Tbl Táblázatként minden tbl-hez In ActiveDocument.Tables Ha Tbl.Rows.Count > 1 then Tbl.Range. Editors.Add (-1) End If Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub A következő kód csak a fejlécsorokat jelöli ki: Sub selallHeaders() Hiba esetén Folytatás Következő ActiveDocument.DeleteAllEditableRanges (-1)Ranges Dim Tbl Táblázatként minden Tbl-hez ActiveDocument.Tables Tbl.Rows(1).Tartomány.Szerkesztők.Hozzáadás (-1) Következő ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Sok ilyen kódom van még amelyek kijelölik az utolsó sorokat, az összes felsorolást, kis/hosszú paragrafusokat stb. Nézze meg a következő videómat: https://www.youtube.com/watch?v=p_ZhufliFw8
A weboldal moderátora ezt a megjegyzést minimalizálta
Egy dokumentumban több táblázat található (kb. 200). Csak ezeket a táblázatokat szeretném kijelölni, és beilleszteni őket egy új dokumentumba táblázatos formátumban. Amikor kiválasztom a táblázatokat a fenti eljárás szerint, akkor a beillesztési művelet során szövegként, és nem táblázatként illeszti be őket. Tudna nekem segíteni?
A weboldal moderátora ezt a megjegyzést minimalizálta
Úgy tűnik, hogy ezek a makrók nem működnek a Word 2016-ban
A weboldal moderátora ezt a megjegyzést minimalizálta
Word 2016-ban működik. Milyen hibát kap?
A weboldal moderátora ezt a megjegyzést minimalizálta
már értem. A makrók helyes működéséhez a kurzornak nem kell lennie a táblázatban, amikor makrókat hívunk. Köszönöm.
A weboldal moderátora ezt a megjegyzést minimalizálta
Nagyon szép módszer. Köszönöm
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi