Այսօրվա հոդվածում ձեզ կներկայացնենք 2 արագ և արդյունավետ մեթոդ՝ հաշվելու ձեր Word փաստաթղթի փամփուշտների քանակը։
Ժամանակ առ ժամանակ մենք օգտագործում էինք կետերով կամ համարակալված ցուցակները մեր փաստաթղթերում՝ տարրերը կազմակերպելու համար: Ընդհանրապես, կետը կամ թիվը առաջնորդում է առանձին կետ, լինի դա բառ, արտահայտություն կամ նախադասություն: Այժմ, եթե դուք ունեք համարակալված ցուցակ, խնդիր չի լինի պարզել ապրանքների ընդհանուր թիվը: Այնուամենայնիվ, ի՞նչ կլինի, եթե ձեր word փաստաթղթում կան կետավոր ցուցակներ: Պարզապես դրանք մեկ առ մեկ հաշվելն այնքան էլ լավ չի հնչում:
Հետևաբար, եթե ձեզանից ոմանք կարող են անհրաժեշտ լինել ամփոփելու պարբերակի համարը, ահա մշակելու 2 եղանակ:
Մեթոդ 1. Նշված ցուցակը փոխարկեք համարակալված ցուցակի
- Սկզբում ընտրեք ցանկը, որի համարը ցանկանում եք ստանալ:
- Այնուհետև կտտացրեք «Համարակալում» «Պարբերություն» խմբում՝ «Տուն» ներդիրում: Պարբերակավոր ցուցակը վերածվում է համարակալվածի:
Կամ կարող եք նաև աջ սեղմել ընտրության վրա և կուրսորը տեղափոխել «Համարակալում» տարբերակի վրայով, այնուհետև սավառնել կուրսորը ընդլայնված ցանկի համարակալման ոճերից մեկի վրա: Սա հնարավորություն է տալիս ստանալ փամփուշտների քանակը՝ առանց պարբերագրերի ցուցակը համարակալվածի փոխարկելու:
Ի դեպ, եթե Ձեզ անհրաժեշտ է հաշվել ամբողջ փաստաթղթի կետերը, ապա պետք է միայն կուրսորը տեղադրել մեկ պարբերակներով ցանկի մեջ, այնուհետև հետևել վերը նշված քայլերին: Դուք կտեսնեք, որ ֆայլի մեջ բոլոր պարբերակավոր ցուցակները վերածվել են համարակալված ցուցակների՝ թվերով հաջորդականությամբ, օրինակ՝ ստորև.
Մեթոդ 2. Օգտագործեք մակրո
- Սկսելու համար, եթե ցանկանում եք ստանալ կոնկրետ ցուցակի կետերը, ապա ընտրեք այն: Հակառակ դեպքում, ամբողջ փաստաթղթում փամփուշտների հաշվման համար պետք է սեղմել «Ctrl+ A»՝ այն ընտրության մեջ լինելու համար:
- Հաջորդը, սեղմեք «Մշակող» ներդիրը:
- Այնուհետև սեղմեք «Visual Basic»՝ VBA խմբագրիչը բացելու համար: Դյուրանցումների համակցությունն է «Alt+ F11»:
- Այժմ սեղմեք «Նորմալ», ապա «Տեղադրեք»:
- Հաջորդը ընտրեք «Մոդուլ»:
- Կրկնակի սեղմեք նոր մոդուլի վրա և տեղադրեք այս կոդերը խմբագրման տարածքում.
Sub GetNumberOfBullets()
Dim objRange As Range
Dim objParagraph As Paragraph
Dim nNumber As Integer
' Initialization
Set objRange = Selection.Range
nNumber = 0
For Each objParagraph In objRange.Paragraphs
If objParagraph.Range.ListFormat.ListType = WdListType.wdListBullet Then
nNumber = nNumber + 1
End If
Next objParagraph
' Pop up a message box to show the total number of bullets.
MsgBox ("Bullet number:" & nNumber)
End Sub
- Ի վերջո, կտտացրեք «Գործարկել» կոճակին:
Դուք կտեսնեք հաղորդագրության տուփ, որը ցույց է տալիս արդյունքը:
Դե կառավարեք ձեր ֆայլը
Աշխատանքային փորձի ընթացքում մենք գործ ունենք Word-ի մեծ թվով փաստաթղթերի հետ, առաջարկվում է, որ դրանք ուշադիր վարվենք, քանի որ ցանկացած դժբախտություն կարող է հանգեցնել կոռուպցիայի: Եվ եթե ֆայլի վնասը տեղի ունենա, ձեզ հարկավոր կլինի ա Word փաստաթղթերի վերականգնման գործիք օգնել ձեզ հոգ տանել խնդրի մասին:
Հեղինակի ներածություն.
Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում xls տվյալների վնասների վերանորոգման գործիք և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com