Ձեր Word փաստաթղթում բաժինների բառերի քանակը հաշվելու 3 մեթոդ

Այս հոդվածում ձեզ համար կլինի 3 եղանակ՝ հաշվելու ձեր Word փաստաթղթի բաժինների բառերի քանակը:

Հեշտ է ստանալ փաստաթղթի բառերի ընդհանուր թիվը: Բայց Word-ում չկա որևէ ֆունկցիա, որը կարող է մեզ ասել բաժնի բառերի քանակը։ Եվ հաշվի առնելով այն հանգամանքը, որ մենք նախընտրում ենք նույն թեմայի բովանդակությունը տեղադրել մեկ բաժնում, օրինակ՝ գիրք գրելիս գլուխ կազմակերպելը, անհրաժեշտ է, որ մենք լուծումներ գտնենք՝ բաժինների հաշվարկը ստանալու համար:   Ստորև ներկայացված են 3 մոտեցումներ, որոնք պահանջում են գործարկել մակրո:

Մեթոդ 1. Հաշվեք ընթացիկ բաժնի բառերի քանակը

1. Նախ, տեղադրեք կուրսորը թիրախային հատվածի ներսում։
2. Ապա դուք պետք է բացեք VBA խմբագիր Word-ում: Սեղմեք «Developer» և ապա «Visual Basic» հրամանը: Եթե ​​ժապավենում չեք կարող գտնել «Developer», ապա դրա փոխարեն սեղմեք «Alt+ F11»:
3. Հաջորդը սեղմեք «Նորմալ» նախագիծը ձախ սյունակում:
4. Դրանից հետո կտտացրեք «Տեղադրել» ներդիրին:
5. Բացվող ընտրացանկում ընտրեք «Մոդուլ»:
6. Կրկնակի սեղմումով բացեք նոր մոդուլը:
7. Այժմ բաց մոդուլում տեղադրեք հետևյալ կոդերը.

Sub CountWordsOfCurrentSection()
  MsgBox ("There are " & Selection.Sections(1).Range.ComputeStatistics(wdStatisticWords) _
         & " words in current section.")
End Sub

8. Վերջապես, սեղմեք «Run» կամ սեղմեք «F5» կոդեր գործարկելու համար:

Դուք կստանաք հաղորդագրության տուփ, որը ցույց է տալիս ընթացիկ հատվածի ընդհանուր թիվը, ինչպիսին է ստորև.

Մեթոդ 2. Հաշվեք բառերի քանակը կոնկրետ բաժնի համար

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

1. Հետևեք վերը նշված քայլերին մակրո տեղադրելու և գործարկելու համար:
2. Պարզապես փոխարինեք մակրոն հետևյալով.

Sub CountWordsOfSpecificSection()
  Dim strSecNum As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  strSecNum = InputBox("Enter a section number here:", "Enter Section Number") 
  MsgBox ("There are " & objDoc.Sections(strSecNum).Range.ComputeStatistics(wdStatisticWords) _
          & " words in section " & strSecNum & ".")
  Application.ScreenUpdating = True
End Sub

3. Եվ գործարկելով այն, կլինի մուտքագրման տուփ: «Մուտքագրեք բաժնի համարը» վանդակում մուտքագրեք բաժնի համարը և սեղմեք «OK»՝ շարունակելու համար:

Արդյունքը ցուցադրվում է հաղորդագրության տուփի վրա:

Մեթոդ 3. Հաշվեք փաստաթղթի բոլոր բաժինների բառերի քանակը

Ինչպես հուշում է ենթավերնագիրը, այս կերպ դուք կստանաք փաստաթղթի յուրաքանչյուր բաժնի բառերի ընդհանուր թիվը և դրանք կցուցադրեք հաղորդագրության վանդակում:

1. Նախևառաջ բացեք նպատակային փաստաթուղթը։
2. Այնուամենայնիվ, դուք պետք է կրկնեք 1-ին մեթոդի քայլերը՝ մակրո տեղադրելու և գործարկելու համար:
3. Եվ այս անգամ փոխեք այս մակրոյով.

Sub CountWordsOfEachSectionInDoc()
  Dim objDoc As Document
  Dim nNumberOfSection As Long
  Dim strText As String
 
  Application.ScreenUpdating = False
  Set objDoc = ActiveDocument
  nNumberOfSection = objDoc.Sections.Count
 
  For nNumberOfSection = 1 To nNumberOfSection
    strText = strText & "There are " & objDoc.Sections(nNumberOfSection) _
              .Range.ComputeStatistics(wdStatisticWords) & " words in section " & nNumberOfSection & "; " _
              & vbNewLine
  Next nNumberOfSection
 
  MsgBox strText
 
  Application.ScreenUpdating = True
End Sub

Ահա հնարավոր արդյունքը.

Պահպանեք արժեքավոր տվյալներ

Բոլոր տեսակի փաստաթղթերի հետ գործ ունենալիս պետք է նկատի ունենալ դրանց անվտանգությունը: Քանի որ դուք երբեք չեք կարող ասել, թե երբ տեղի կունենա տվյալների հաջորդ կորուստը, առաջարկվում է կրկնօրինակել կարևոր ֆայլերը: Բացի այդ, միշտ էլ լավ է ձեռք բերել այնպիսի գործիք, որը կարող է վերականգնել դոկտ, Եթե որեւէ.

Հեղինակի ներածություն.

Վերա Չենը տվյալների վերականգնման փորձագետ է DataNumen, Inc., որը տվյալների վերականգման տեխնոլոգիաների համաշխարհային առաջատարն է, այդ թվում xls վերանորոգում և pdf նորոգել ծրագրային արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com