Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս ընտրել Word աղյուսակում բոլոր աղյուսակները:

Word- ում հեշտ է սեղան ընտրել ՝ կտտացնելով այն կետ-ընտրիր-սեղան-խորհրդանիշ սեղանի վերին ձախ անկյունում գտնվող կոճակը, ինչպես ցույց է տրված ստորև նշված էկրանի նկարը: Կարող եք նաև սեղան ընտրել Select Table հատկությամբ: Այնուամենայնիվ, կա՞ որևէ եղանակ `Word փաստաթղթում միանգամից բոլոր սեղաններն արագ ընտրելու: Այս հոդվածի մեթոդները կօգնեն ձեզ այն հաղթահարել: 


Ընտրեք Word- ի բոլոր աղյուսակները VBA կոդով

Հեշտությամբ ընտրեք Word- ի բոլոր աղյուսակները Kutools for Word- ի հետ


Ընտրեք Word- ի բոլոր աղյուսակները VBA կոդով

1. Մամուլ ալտ + F11 բացել ստեղները Microsoft Visual Basic կիրառման համար պատուհան.

2, Բացման մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, սեղմեք Տեղադրել > Մոդուլներ, Հետո պատճենեք և տեղադրեք հետևյալ VBA կոդը Մոդուլի պատուհանում;

VBA կոդ. Ընտրեք ընթացիկ փաստաթղթի բոլոր աղյուսակները.

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. Սեղմեք F5 ծածկագիրը գործելու համար

Այնուհետև բոլոր աղյուսակներն անմիջապես ընտրվում են ընթացիկ փաստաթղթում:


Հեշտությամբ ընտրեք Word- ի բոլոր աղյուսակները Kutools for Word- ի հետ

Համեմատելով փաստաթղթի բոլոր աղյուսակները ընտրելու համար VBA կոդի օգտագործման հետ, Kutools for Word's Ընտրեք աղյուսակները օգտակարությունը բավականին հարմար է: Այս հատկությունը կարող եք օգտագործել ընտրության կամ ամբողջ փաստաթղթի մեջ սեղաններ ընտրելու համար: Խնդրում ենք անել հետևյալը.

Kutools բառի համար ՝ ավելի քան 100 հարմար բառերի հավելումներով, անվճար փորձելու առանց սահմանափակման 60 օր.

Սեղմել Կուտոլս > Աղյուսակներ > Ընտրեք աղյուսակները, Տեսեք,

ՆշումԸնտրության մեջ սեղաններ ընտրելու համար նախ պետք է ընտրեք տիրույթը, ապա կիրառեք գործառույթը:

Դրանից հետո արդյունքները կարող եք տեսնել հետևյալ կերպ.

Ընտրեք աղյուսակները ընտրության մեջ.

Ընտրեք աղյուսակները ամբողջ փաստաթղթում.

Եթե ​​ցանկանում եք անվճար օգտվել այս օգտակար ծառայությունից, գնացեք այստեղ անվճար ներբեռնել ծրագրաշարը նախ և ապա անցեք գործողությունը կիրառելու համար ՝ համաձայն վերը նշված քայլերի:


Դեմո. Հեշտությամբ ընտրեք Word- ի բոլոր աղյուսակները Kutools for Word- ի հետ


Գրասենյակի արտադրողականության լավագույն գործիքները

Kutools բառի համար - Բարձրացրեք ձեր բառի փորձը Over-ի հետ 100 Ուշագրավ առանձնահատկություններ!

🤖 Kutools AI օգնականՓոխակերպեք ձեր գրածը AI-ի միջոցով - Ստեղծեք բովանդակություն  /  Վերաշարադրել տեքստը  /  Ամփոփել փաստաթղթերը  /  Հարցրեք տեղեկատվության համար Փաստաթղթի հիման վրա, բոլորը Word-ի շրջանակներում

📘 Փաստաթղթերի տիրապետում: Էջերի բաժանում  /  Միաձուլեք փաստաթղթերը  /  Արտահանել ընտրություն տարբեր ձևաչափերով (PDF/TXT/DOC/HTML...)  /  Խմբաքանակի փոխակերպում PDF-ի  /  Արտահանել էջերը որպես պատկերներ  /  Միանգամից մի քանի ֆայլ տպեք...

Բովանդակության խմբագրում: Խմբաքանակի որոնում և փոխարինում Բազմաթիվ Ֆայլերի միջով  /  Չափափոխել բոլոր նկարները  /  Փոխադրել աղյուսակի տողերը և սյունակները  /  Աղյուսակը տեքստի վերափոխել...

🧹 Անհեշտ մաքրություն:Հեռացրու Լրացուցիչ տարածքներ  /  Բաժնի ընդմիջումներ  /  Բոլոր վերնագրերը  /  Տեքստային տուփեր  /  Hyperlinks  / Լրացուցիչ հեռացման գործիքների համար այցելեք մեր Հեռացնել խումբը...

Ստեղծագործական ներդիրներՆերդիր Հազար բաժանիչներ  /  Նշեք վանդակները  /  Ռադիո կոճակներ  /  QR Code  /  Շտրիխ կոդ  /  Անկյունագծային աղյուսակ  /  Հավասարության վերնագիր  /  Նկարի վերնագիր  /  Աղյուսակի վերնագիր  /  Բազմաթիվ նկարներ  / Բացահայտեք ավելին Տեղադրեք խումբը...

🔍 Ճշգրիտ ընտրանքներ: Մատնանշել կոնկրետ էջեր  /  սեղաններ  /  ձեւավորում  /  վերնագրի պարբերություններ  / Ընդլայնել նավարկությունը ավելին Ընտրեք հատկանիշներ...

Աստղերի բարելավումներ: Արագ նավարկեք ցանկացած վայր  /  կրկնվող տեքստի ավտոմատ տեղադրում  /  անխափան անցում փաստաթղթի պատուհանների միջև  /  11 Փոխակերպման գործիքներ...

???? Ցանկանու՞մ եք փորձել այս հնարավորությունները: Kutools-ը Word-ի համար առաջարկում է ա 60 օր անվճար դատավարություն, առանց սահմանափակումների! 🚀
 
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