Note: The other languages of the website are Google-translated. Back to English
Mewngofnodi  \/ 
x
or
x
Cofrestru  \/ 
x

or

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, am ddim i geisio 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 For Word - Mwy na 100 o Nodweddion Uwch ar gyfer Word, Arbedwch Eich Amser 50%

  • 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 ...

Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Alex · 4 years ago
    It seeems that this macros does not work in Word 2016
    • To post as a guest, your comment is unpublished.
      Suril · 4 years ago
      It works in Word 2016. What error are you getting?
      • To post as a guest, your comment is unpublished.
        Alex · 4 years ago
        I understand already.
        For correct work macros cursor must to be not in table when you call macros.
        Thank you.
  • To post as a guest, your comment is unpublished.
    Iqbal · 4 years ago
    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?
  • To post as a guest, your comment is unpublished.
    Suril · 4 years ago
    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
  • To post as a guest, your comment is unpublished.
    Vinoth Murali · 4 years ago
    Wonderful I got the solution by using the VBA code. Thank you so much
  • To post as a guest, your comment is unpublished.
    JPF · 5 years ago
    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!
  • To post as a guest, your comment is unpublished.
    rodrigo · 6 years ago
    excellent macro and very easy
  • To post as a guest, your comment is unpublished.
    refaat · 7 years ago
    thank you so much
    he is good program but after few days stopped and require password and user name