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

Ինչպե՞ս ընտրել 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 Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (10)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
շատ շնորհակալ եմ, նա լավ ծրագիր է, բայց մի քանի օր անց դադարեց և պահանջում է գաղտնաբառ և օգտվողի անուն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
գերազանց մակրո և շատ հեշտ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սկզբում հմուտ կոդ, բայց այն միանշանակ փչացրեց Word 2010-ի մի շարք աղյուսակներ: Իմ ֆայլը բավականին լավ խեղաթյուրվեց և ստիպված եղա վերադառնալ ավելի վաղ տարբերակին: Զգույշ եղեք։
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հրաշալի է, ես լուծում ստացա՝ օգտագործելով VBA կոդը: Շատ շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Հետևյալ փոփոխված կոդը ընտրում է բոլոր աղյուսակները, բացառությամբ միայն մեկ տող ունեցող աղյուսակների. Sub SelAllTbls() ActiveDocument.DeleteAllEditableRanges (-1) Dim Tbl As Tbl As Tbl ActiveDocument-ում.Tables If Tbl.Rows.Count > 1 Ապա Tbl.Range: Editors.Add (-1) End If Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Հետևյալ կոդը ընտրում է միայն վերնագրի տողերը. Sub selallHeaders() Սխալի դեպքում Resume Next ActiveDocument.DeleteRangAllEdit (1) Dim Tbl-ը որպես աղյուսակ յուրաքանչյուր Tbl-ի համար ActiveDocument.Tables Tbl.Rows(1).Range.Editors.Add (-1) Next ActiveDocument.SelectAllEditableRanges (-1) ActiveDocument.DeleteAllEditableRanges (-1) End Sub Ես շատ այլ նման կոդեր ունեմ որոնք ընտրում են վերջին տողերը, բոլոր պարբերակները, փոքր/երկար պարբերությունները և այլն: Դիտեք իմ հետևյալ տեսանյութը. https://www.youtube.com/watch?v=p_ZhufliFw8
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փաստաթղթում կան մի քանի աղյուսակներ (մոտ 200): Ես ուզում եմ ընտրել միայն այս բոլոր աղյուսակները և տեղադրել դրանք աղյուսակի ձևաչափով նոր փաստաթղթում: Երբ ես ընտրում եմ աղյուսակները վերը նշված ընթացակարգի համաձայն, ապա paste-ի գործարկման ժամանակ այն տեղադրում է դրանք որպես տեքստ և ոչ որպես աղյուսակ: Խնդրում եմ, կարող եք օգնել ինձ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Թվում է, թե այս մակրոսը չի աշխատում Word 2016-ում
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այն աշխատում է Word 2016-ում: Ի՞նչ սխալ եք ստանում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես արդեն հասկանում եմ. Մակրոների ճիշտ աշխատանքի համար կուրսորը պետք է լինի աղյուսակում, երբ զանգում եք մակրո: Շնորհակալություն.
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Շատ գեղեցիկ մեթոդ. Շնորհակալություն
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր