Բառերի հաշվարկի վիճակագրությունից աղյուսակային տեքստերը բացառելու 2 մեթոդ

Բառային լուծումներ Սեպտեմբեր 28, 2025

Այսօրվա գրառման մեջ մենք ուրախ ենք ձեզ հետ կիսվել 2 արդյունավետ մեթոդով՝ բառերի քանակի վիճակագրությունից աղյուսակային տեքստերը բացառելու համար։

Աղյուսակները հիմնականում օգտագործվում են տվյալների պահման համար: Իսկ աղյուսակները փաստաթղթի վրա աշխատելիս կետերը նկարագրելիս մեր լավագույն ընկերն են: Այդ դեպքում այն կարող է մի փոքր անհարմար դառնալ, երբ բառերի հաշվարկը ներգրավված է: Sometամանակ առ ժամանակ մենք պարզապես պետք է ստանանք հիմնական տեքստերի բառերի քանակը, քան աղյուսակների բոլոր տվյալները: Այնուամենայնիվ, բոլորին հայտնի է, որ Word- ը լռելյայնորեն հաշվում է ձեր փաստաթղթի բոլոր բառերը: Այս պատճառով մենք գտել ենք արդյունավետ միջոցներ: Կարդացեք ՝ ավելին իմանալու համար:

Մեթոդ 1. Ձեռքով ընտրեք աղյուսակները և կատարեք մաթեմատիկա ձեր սեփական կողմից

Եթե դա կարճ փաստաթուղթ է, որը պարունակում է ընդամենը մեկ կամ երկու աղյուսակ, ապա աղմկահարույց չէ սեղանները մեկ առ մեկ ընտրելը ՝ պահելով «Ctrl» ստեղնը: Այս մոտեցման դեպքում ընտրված աղյուսակների ընդհանուր թիվը տեսանելի կլինի կարգավիճակի տողում, օրինակ `հետևյալից.

Ինչպես տեսնում եք, կա 2 թիվ: Առաջինը վերաբերում է ընտրված աղյուսակներում բառերի քանակին, իսկ երկրորդը `ձեր փաստաթղթում բառերի ընդհանուր քանակը: Պարզապես օգտագործեք երկրորդ համարը `առաջինը հանած արդյունքը ստանալու համար:

Մեթոդ 2. Գործարկել VBA կոդերը

Ինչպես նշվեց վերևում, 1-ին մեթոդը հոգնեցուցիչ կլինի, եթե փաստաթղթում ունեք մեծ թվով սեղաններ: Ձեռքով ընտրելը, անկասկած, իդեալական ձև չէ: Փոխարենը, մենք ձեզ խորհուրդ ենք տալիս մակրո, որը հաշվելու է բոլոր բառերը, բայց դրանք բացառում է աղյուսակներում և ենթագրերում:

Նախ և առաջ, սեղմեք «Alt+F11»՝ Word-ում VBA խմբագրիչը գործարկելու համար։
Դրանից հետո կտտացրեք «Նորմալ» կետին:
Հաջորդը կտտացրեք «Տեղադրել» ներդիրին:
Եվ ընտրեք «Մոդուլ» «Տեղադրել» ներդիրի բացվող ցանկում:
Կրկնակի կտտացրեք նոր մոդուլին ՝ աջ կողմում կոդավորման տարածքը բացելու համար:
Այժմ այնտեղ տեղադրեք հետևյալ մակրոը.

Sub ExcludeTableAndCaptionWordsFromWordCount()
  Dim objTable As Table
  Dim objParagraph As Paragraph
  Dim objDoc As Document
  Dim nTableWords As Integer, nDocWords As Integer, nWordCount As Integer, nCaptionWords As Integer
 
  Set objDoc = ActiveDocument
  nTableWords = 0
  nCaptionWords = 0
  nDocWords = ActiveDocument.ComputeStatistics(wdStatisticWords)
 
  With objDoc
    For Each objTable In .Tables
      nTableWords = nTableWords + objTable.Range.ComputeStatistics(wdStatisticWords)
    Next objTable
  End With
 
  With objDoc
    For Each objParagraph In .Paragraphs
      If objParagraph.Range.Style = "Caption" Then
        nCaptionWords = nCaptionWords + objParagraph.Range.ComputeStatistics(wdStatisticWords)
      End If
    Next objParagraph
  End With
 
  nWordCount = nDocWords - nTableWords - nCaptionWords
 
  MsgBox ("There are " & nWordCount & " main text words in this document." & vbCr & "The following items are excluded from word count: " & vbCr & "Total words in tables: " & nTableWords & vbCr & "Total caption words: " & nCaptionWords)
End Sub

Ի վերջո, կտտացրեք «Գործարկել» կոճակին:

Մակրո գործարկումը պետք է հայտնվի հաղորդագրության տուփ ՝ ցույց տալով հաշվարկի արդյունքը:

Գործ ունենալ Word- ի վնասների հետ

Մենք այնքան շատ ենք ապավինում ծրագրին, ինչպիսին Word- ն է, ամենօրյա աշխատանքը մշակելու համար: Արդյունքում, մենք չէինք կարող մտածել, թե ինչ ճնշող հետևանք է ունենալու a Բառերի կոռուպցիա, Դուք կարող եք հուսահատ զգալ, եթե չունեք փաստաթղթերի վերականգնման բավարար գործիք:

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

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