Այսօրվա հոդվածում ցանկանում ենք ձեզ ներկայացնել 2 մեթոդ՝ հաշվելու մեկ լեզվի ընդհանուր բառերը բազմալեզու Word փաստաթղթում։
Ժամանակ առ ժամանակ ձեզանից ոմանք կարող են պահանջել խմբագրել բազմալեզու Word փաստաթուղթը: Արդյունքում, կլինեն դեպքեր, երբ դուք կցանկանաք կատարել բառերի հաշվարկ մեկ կոնկրետ լեզվի համար, բայց միայն գտնել Word-ը, որն ի վիճակի չէ կատարել այս խնդիրը:
Այնուհետև նպատակն է ձեզ տրամադրել 2 օգտակար լուծում՝ նման խնդրի լուծման համար:
Մեթոդ 1. Օգտագործեք «Ընդլայնված որոնում» տարբերակը
- Նախ, կտտացրեք գլխիվայր եռանկյունի կոճակը «Գտնել» ետևում «Խմբագրում» խմբում՝ «Տուն» ներդիրում:
- Այժմ «Գտնել և փոխարինել» երկխոսության դաշտում սեղմեք «Ավելին» կոճակը:
- Եվ նշեք «Գտնել միայն ամբողջ բառերը» վանդակը:
- Այնուհետև կտտացրեք «Ձևաչափ» կոճակը:
- Հաջորդը, ընտրեք «Լեզուն»:
- «Գտնել լեզու» երկխոսության պատուհանում գտեք և ընտրեք ցանկալի լեզուն, ապա սեղմեք «Լավ»։
- Այժմ վերադառնանք «Գտնել և փոխարինել» վանդակը, սեղմել «Գտնել» և ընտրել «Հիմնական փաստաթուղթ»:
- Այնուհետև բոլոր անգլերեն բառերը պետք է ընտրվեն և գնան ստուգելու էկրանի ներքևի ձախ անկյունում գտնվող բառերի քանակը: Մենք տեսնում ենք, որ թիվը 93 է։
Մեթոդ 2. Գործարկել Word մակրոը
- Սկսելու համար սեղմեք «Մշակող» ներդիրին։
- Այնուհետև սեղմեք «Visual Basic»՝ VBA խմբագրիչը գործարկելու համար: Եթե դեռ միացված չեք «Developer» ներդիրը, փոխարենը սեղմեք «Alt+ F11»:
- Հաջորդը սեղմեք «Նորմալ» և այնուհետև կտտացրեք «Տեղադրեք»:
- Ընտրեք «Մոդուլ»:
- Եվ կրկնակի սեղմեք նոր մոդուլի վրա՝ կոդավորման տարածքը բացելու համար:
- Դրանից հետո այնտեղ տեղադրեք հետևյալ ծածկագրերը.
Sub CountTotalWordsOfOneLanguage()
Dim objRange As Range
Dim nWords As Long
' Initialization
Set objRange = ActiveDocument.Range
nWords = 0
' Find all English words and do word count.
With objRange.Find
.LanguageID = wdFrench
Do While .Execute
nWords = nWords + objRange.ComputeStatistics(wdStatisticWords)
Loop
End With
MsgBox nWords
End Sub
- Ի վերջո, կտտացրեք «Գործարկել» կոճակին:
Այնտեղ պետք է հայտնվի հաղորդագրության տուփ: Թիվը վերաբերում է այս փաստաթղթում ֆրանսերեն տեքստերի ընդհանուր բառերին:
Նշում:
Կոդի տողում «.LanguageID = wdFrench»,«wdՖրանսերեննշանակում է ֆրանսերեն լեզու։ Կոդերն ավելի կոնկրետ օգտագործման համար հարմարեցնելու համար կարող եք լեզվի ID-ն փոխարինել ձեր ուզած ճշգրիտ լեզվով: Իսկ ավելի շատ լեզվական ID-ի համար կարող եք այցելել՝ https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa172988(v=office.11)
Պատշաճ կերպով կարգավորել կոռումպացված Word ֆայլերը
Ժամանակ առ ժամանակ Word-ը կփակվի կամ կսառչի բոլոր տեսակի սխալների կամ սխալների պատճառով: Ասենք, եթե դուք չեք կարողանում կրկնօրինակել ֆայլերը կանոնավոր կերպով, մեծ հավանականություն կա կորցնելու բոլոր թանկարժեք տվյալները: Եվ մնացած 2 լուծումը կամ օգտագործել Word-ի ներկառուցված գործառույթը կամ ստանալ ծրագիր վերանորոգման փաստաթուղթՀաշվի առնելով այն փաստը, որ առաջինը, կարծես, այդքան էլ լավ չի աշխատում, խորհուրդ է տրվում ընտրել երրորդ կողմի գործիք։
Հեղինակի ներածություն.
Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում Excel ֆիքս և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com