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

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 bob tabl yn Word gyda Kutools ar gyfer Word yn hawdd


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 bob tabl yn Word gyda Kutools ar gyfer Word yn hawdd

O gymharu â defnyddio cod VBA i ddewis pob tabl mewn dogfen, Kutools for 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 roi cynnig arni heb unrhyw gyfyngiad mewn 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: Yn hawdd dewis pob tabl yn Word gyda Kutools ar gyfer Word



Offer Cynhyrchedd Geiriau a Argymhellir

 

Kutools Ar gyfer Word - Mwy Na 100 Nodweddion Uwch Ar gyfer Word, Arbedwch Eich 50% Amser

  • Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
  • Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
  • Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
  • Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
  • Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...
sylwadau (10)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
diolch yn fawr ei fod yn rhaglen dda ond ar ôl ychydig ddyddiau stopio ac angen cyfrinair ac enw defnyddiwr
Lleihawyd y sylw hwn gan y safonwr ar y wefan
macro rhagorol ac yn hawdd iawn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cod nifty ar y dechrau ond mae'n bendant yn llygru criw o dablau yn Word 2010. Sgriwio i fyny fy ffeil yn eithaf da a bu'n rhaid i ddychwelyd yn ôl i fersiwn cynharach. Byddwch yn wyliadwrus!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gwych cefais yr ateb trwy ddefnyddio'r cod VBA. Diolch yn fawr iawn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'r cod addasedig canlynol yn dewis pob tabl, ac eithrio tablau gydag un rhes yn unig: Is SelAllTbls() ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl Fel Tabl Ar Gyfer Pob Tbl Yn ActiveDocument.Tables Os Tbl.Rows.Count > 1 Yna Tbl.Range. Editors.Add (-1) Diwedd Os Nesaf ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) Diwedd Is Mae'r cod canlynol yn dewis y rhesi pennyn yn unig: Is selallHeaders() Ar Gwall Ail-ddechrau Nesaf ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl Fel Tabl Ar Gyfer Pob Tbl Yn ActiveDocument.Tables Tbl.Rows(1).Range.Editors.Add (-1) Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) Diwedd Is Mae gen i lawer mwy o godau o'r fath sy'n dewis rhesi olaf, pob bwled, paras bach / hir, ac ati. Gwyliwch fy fideo canlynol: https://www.youtube.com/watch?v=p_ZhufliFw8
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae tablau lluosog mewn dogfen (tua 200). Rwyf am ddewis y tablau hyn i gyd yn unig a'u gludo mewn dogfen newydd yn fformat y tabl. Pan fyddaf yn dewis y tablau yn unol â'r weithdrefn uchod yna yn ystod gweithrediad past mae'n eu gludo fel testun ac nid fel tabl. Allwch chi fy helpu os gwelwch yn dda?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n ymddangos nad yw'r macros hwn yn gweithio yn Word 2016
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae'n gweithio yn Word 2016. Pa gamgymeriad ydych chi'n ei gael?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n deall yn barod. Ar gyfer gwaith cywir rhaid i'r cyrchwr macros beidio â bod yn y tabl pan fyddwch chi'n ffonio macros. Diolch.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Dull neis iawn. Diolch
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir