Skip i'r prif gynnwys

Sut i Ddethol Pob Tabl yn nogfen Word?

Mae'n hawdd dewis tabl yn Word trwy glicio ar y symbol dot-dewis-bwrdd-symbol botwm ar gornel chwith uchaf y bwrdd fel y dangosir isod y screenshot. Gallwch hefyd ddewis tabl gyda'r nodwedd Dewis Tabl. Fodd bynnag, a oes unrhyw ffordd i ddewis pob tabl yn gyflym ar unwaith yn nogfen Word? Bydd y dulliau yn yr erthygl hon yn eich helpu i fynd drwyddo. 


Dewiswch bob tabl yn Word gyda chod VBA

Dewiswch yr holl dablau yn Word yn hawdd gyda Kutools ar gyfer Word


Dewiswch bob tabl yn Word gyda chod VBA

1. Gwasgwch Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Cymhwyso ffenestr.

2. Yn yr agoriad Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau, Yna copïwch a gludwch y cod VBA canlynol i mewn i ffenestr y Modiwl;

Cod VBA: Dewiswch bob tabl yn y ddogfen gyfredol:

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. Gwasgwch y F5 allwedd i redeg y cod

Yna dewisir pob tabl yn y ddogfen gyfredol ar unwaith.


Dewiswch yr holl dablau yn Word yn hawdd gyda Kutools ar gyfer Word

Cymharu â defnyddio cod VBA i ddewis pob tabl mewn dogfen, Kutools ar gyfer Word's Dewiswch Dablau mae cyfleustodau yn eithaf defnyddiol. Gallwch ddefnyddio'r nodwedd hon i ddewis tablau mewn detholiad neu'r ddogfen gyfan. Gwnewch fel a ganlyn:

Kutools am Word : Gyda mwy na 100 o ychwanegion Word defnyddiol, rhydd i geisio heb unrhyw gyfyngiad yn 60 diwrnod.

Cliciwch Kutools > Tablau > Dewiswch Dablau. Gweler y screenshot:

Nodyn: Ar gyfer dewis tablau wrth ddewis, mae angen i chi ddewis yr ystod yn gyntaf ac yna cymhwyso'r nodwedd.

Yna gallwch weld y canlyniadau fel a ganlyn.

Dewiswch dablau yn y dewis:

Dewiswch dablau yn y ddogfen gyfan:

Os ydych chi am gael treial am ddim o'r cyfleustodau hwn, ewch i dadlwythwch y meddalwedd am ddim yn gyntaf, ac yna ewch i gymhwyso'r llawdriniaeth yn ôl y camau uchod.


Demo: Dewiswch yr holl dablau yn Word yn hawdd gyda Kutools ar gyfer Word


Offer Cynhyrchiant Swyddfa Gorau

Kutools am Word - Dyrchafu Eich Profiad Word gyda Dros 100 Nodweddion Rhyfeddol!

🤖 Cynorthwy-ydd Kutools AI: Trawsnewidiwch eich ysgrifennu gydag AI - Cynhyrchu Cynnwys  /  Ailysgrifennu Testun  /  Crynhoi Dogfennau  /  Ymholwch am Wybodaeth yn seiliedig ar Ddogfen, i gyd o fewn Word

📘 Meistrolaeth Dogfen: Tudalennau Hollti  /  Uno Dogfennau  /  Dewis Allforio mewn Fformatau Amrywiol (PDF/TXT/DOC/HTML...)  /  Trosi swp i PDF  /  Allforio Tudalennau fel Delweddau  /  Argraffu Ffeiliau Lluosog ar unwaith...

Golygu Cynnwys: Swp Dod o Hyd i ac Amnewid ar draws Ffeiliau Lluosog  /  Newid Maint Pob Llun  /  Trawsosod Rhesi Bwrdd a Cholofnau  /  Trosi Tabl i Testun...

🧹 Ymdrech Glân: swap i ffwrdd Mannau Ychwanegol  /  Toriadau Adran  /  Pob Pennawd  /  Blychau Testun  /  hypergysylltiadau  / Am fwy o offer tynnu, ewch i'n Dileu Grŵp...

Mewnosodiadau Creadigol: mewnosod Mil o Wahanwyr  /  Blychau Gwirio  /  Botymau Radio  /  Cod QR  /  Cod Bar  /  Tabl Llinell Lletraws  /  Pennawd Hafaliad  /  Capsiwn Delwedd  /  Pennawd Tabl  /  Lluniau Lluosog  / Darganfod mwy yn y Mewnosod Grŵp...

🔍 Detholiadau Manwl: pinbwynt tudalennau penodol  /  tablau  /  siapiau  /  paragraffau pennawd  / Gwella llywio gyda mwy Dewiswch nodweddion...

Gwelliannau Seren: Llywiwch yn gyflym i unrhyw leoliad  /  auto-mewnosod testun ailadroddus  /  toglo'n ddi-dor rhwng ffenestri dogfennau  /  11 Offer Trosi...

???? Eisiau rhoi cynnig ar y nodweddion hyn? Mae Kutools ar gyfer Word yn cynnig a Treial am ddim 60-dydd, heb unrhyw gyfyngiadau! 🚀
 
Comments (10)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Very nice method. Thank you
This comment was minimized by the moderator on the site
It seeems that this macros does not work in Word 2016
This comment was minimized by the moderator on the site
It works in Word 2016. What error are you getting?
This comment was minimized by the moderator on the site
I understand already. For correct work macros cursor must to be not in table when you call macros. Thank you.
This comment was minimized by the moderator on the site
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?
This comment was minimized by the moderator on the site
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
This comment was minimized by the moderator on the site
Wonderful I got the solution by using the VBA code. Thank you so much
This comment was minimized by the moderator on the site
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!
This comment was minimized by the moderator on the site
excellent macro and very easy
This comment was minimized by the moderator on the site
thank you so much he is good program but after few days stopped and require password and user name
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations