ცხრილის ტექსტების გამორიცხვის 2 მეთოდი Word Count სტატისტიკიდან

სიტყვის გადაწყვეტილებები სექტემბერი 28, 2025

დღევანდელ პოსტში სიამოვნებით გაგიზიარებთ 2 ეფექტურ მეთოდს, თუ როგორ ამოიღოთ ცხრილის ტექსტები სიტყვების რაოდენობის სტატისტიკიდან.

ცხრილები ძირითადად გამოიყენება მონაცემთა შესანახად. და ცხრილები ჩვენი საუკეთესო მეგობარია დოკუმენტზე მუშაობისას პუნქტების ილუსტრირებაში. მაშინ შეიძლება ცოტა უხერხული გახდეს, როდესაც სიტყვათა რაოდენობაა ჩართული. ზოგჯერ, ჩვენ უბრალოდ უნდა მივიღოთ ძირითადი ტექსტების სიტყვების რაოდენობა და არა ცხრილების ყველა მონაცემი. თუმცა, ყველასთვის ცნობილია, რომ Word ნაგულისხმევად ითვლის ყველა სიტყვას თქვენს დოკუმენტში. ამ მიზეზით, ჩვენ გამოვიმუშავეთ ეფექტური საშუალებები. წაიკითხეთ მეტი, რომ გაიგოთ.

მეთოდი 1: აირჩიეთ ცხრილები ხელით და გააკეთეთ მათემატიკა დამოუკიდებლად

თუ ეს არის მოკლე დოკუმენტი მხოლოდ ერთი ან ორი ცხრილით, არ არის აურზაური, რომ აირჩიოთ ცხრილები სათითაოდ „Ctrl“ ღილაკის დაჭერით. ამ მიდგომით, არჩეულ ცხრილებში მთლიანი რიცხვი გამოჩნდება სტატუსის ზოლში, როგორიცაა ქვემოთ:

როგორც ხედავთ, არის 2 ნომერი. პირველი ეხება სიტყვების რაოდენობას შერჩეულ ცხრილებში, ხოლო მეორე არის სიტყვების საერთო რაოდენობა თქვენს დოკუმენტში. უბრალოდ გამოიყენეთ მეორე რიცხვი პირველზე გამოკლებული შედეგის მისაღებად.

მეთოდი 2: გაუშვით VBA კოდები

როგორც ზემოთ აღინიშნა, მეთოდი 1 დამღლელი იქნება, თუ თქვენ გაქვთ დიდი რაოდენობით ცხრილები დოკუმენტში. მათი ხელით შერჩევა ნამდვილად არ არის იდეალური გზა. ამის ნაცვლად, ჩვენ გირჩევთ მაკრო, რომელიც დათვლის ყველა სიტყვას, მაგრამ გამორიცხავს მათ ცხრილებში და წარწერებში.

პირველ რიგში, Word-ში VBA რედაქტორის გამოსაძახებლად დააჭირეთ Alt+F11-ს.
შემდეგ დააჭირეთ "ნორმალური".
შემდეგ დააჭირეთ "ჩასმა" ჩანართს.
და აირჩიეთ "მოდული" ჩანართის ჩამოსაშლელ მენიუში.
ორჯერ დააწკაპუნეთ ახალ მოდულზე, რომ გახსნათ კოდირების არე მარჯვენა მხარეს.
ახლა ჩასვით იქ შემდეგი მაკრო:

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

დაბოლოს, დააჭირეთ ღილაკს "Run".

მაკროს გაშვებისას გამოჩნდება შეტყობინების ყუთი, რომელიც აჩვენებს დათვლის შედეგს.

გაუმკლავდეთ სიტყვის დაზიანებას

ჩვენ ძალიან ვეყრდნობით პროგრამულ უზრუნველყოფას, როგორიცაა Word, სამუშაოს ყოველდღიურად დასამუშავებლად. შედეგად, ჩვენ ვერ ვიფიქრებდით ა სიტყვების კორუფცია. თქვენ შეიძლება სასოწარკვეთილად იგრძნოთ თავი, თუ არ გაქვთ საკმარისი დოკუმენტების შეკეთების ხელსაწყო.

ავტორი შესავალი:

ვერა ჩენი არის მონაცემთა აღდგენის ექსპერტი DataNumen, Inc., რომელიც მსოფლიო ლიდერია მონაცემთა აღდგენის ტექნოლოგიებში, მათ შორის xls შესწორება მდე pdf პროგრამული პროდუქტების შეკეთება. დამატებითი ინფორმაციისთვის ეწვიეთ www.datanumen. ერთად