Word-ის დოკუმენტში რიცხვების გამორიცხვის 4 გზა Word Count-ის სტატისტიკიდან

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

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

უპირველეს ყოვლისა, თქვენ უნდა შექმნათ სამიზნე დოკუმენტის სარეზერვო ასლი და მასზე იმოქმედოთ ქვემოთ მოცემული ყველა მეთოდით.

მეთოდი 1: წაშალეთ ყველა ნომერი

1. პირველ რიგში, გახსენით ასლი ფაილი და დააწკაპუნეთ ჩამოსაშლელ ღილაკზე "ძებნა" ჩანართზე "მთავარი".
2. მეორეც, აირჩიეთ "Advanced Find" რათა გახსნათ "Find and Replace" დიალოგური ფანჯარა.
3. შემდეგ შეიყვანეთ „^#“ ტექსტურ ველში „იპოვე რა“. თუ არ გახსოვთ ეს სტრიქონი, მოათავსეთ კურსორი "იპოვე რა" ტექსტურ ველში და დააწკაპუნეთ "მეტი" შემდეგ დააჭირეთ "სპეციალურ" ღილაკს.
4. შემდეგ აირჩიეთ "ნებისმიერი ციფრი".
5. ახლა დააჭირეთ ღილაკს "ძიება" და აირჩიეთ "მთავარი დოკუმენტი".
6. თქვენ ნახავთ, რომ ყველა ნომერი შერჩეულია.
7. დააჭირეთ "წაშლა".
8. როგორც კი რიცხვები გაქრება, შეგიძლიათ შეამჩნიოთ, რომ Word ახლა რამდენიმე პუნქტუაციის ნიშანს სიტყვებად თვლის. ამიტომ თქვენ უნდა ამოიღოთ ყველა სასვენი ნიშანიც. კვლავ გახსენით ყუთი "ძებნა და ჩანაცვლება". ამჯერად შეყვანა "[,.;:'””””/\!\*\?\\]” (ბრჭყალების გარეშე) “იპოვე რა” ტექსტურ ველში.
9. და არ უნდა დაგვავიწყდეს, რომ მონიშნოთ ველი "გამოიყენე ველური ბარათები".
10. გაიმეორეთ ნაბიჯი 5 ყველა სასვენი ნიშნის მოსაძებნად.
11. წაშალეთ ისინი.
12. ბოლოს დააწკაპუნეთ „მიმოხილვა“ შემდეგ „სიტყვების რაოდენობა“ ტექსტების მთლიანი რაოდენობის სანახავად.

მეთოდი 2: ყველა ნომრის ფორმატირება, როგორც ფარული ტექსტი

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

1. პირველ რიგში, გაიმეორეთ მეთოდის პირველი 6 ნაბიჯი.
2. არჩეული ნომრების წაშლის ნაცვლად, დააჭირეთ ღილაკს "Ctrl+ D", რათა გახსნათ "ფონტის" ველი.
3. შეამოწმეთ ყუთი "დამალული" და დააჭირეთ "OK".
4. შემდეგი გაიმეორეთ მე-8-დან 9-მდე საფეხურიდან ყველა სასვენი ნიშნის მოსაძებნად.
5. ანალოგიურად, მიჰყევით ნაბიჯებს 2 და 3 სასვენი ნიშნების დამალულ ტექსტებად დასაფორმებლად.
6. და ბოლოს, შეამოწმეთ მთლიანი სიტყვები.

მეთოდი 3: გაუშვით Word მაკრო

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

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

Sub ExcludeNumbersFromWordCount()
  Dim objDoc As Document
  Dim nWord As Integer
 
  Set objDoc = ActiveDocument
 
  With Selection
    .HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "^#"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "[,.;:’" & ChrW(8221) & ChrW(8221) & """/\!\*\?\\]"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
 
  nWord = objDoc.Range.ComputeStatistics(wdStatisticWords)
 
  MsgBox ("There are " & nWord & " words in this document.")
End Sub

5. დააჭირეთ "Run".

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

მეთოდი 4: გამორიცხეთ ნომრები ცხრილებში სიტყვების დათვლიდან

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

1. დააინსტალირეთ და გაუშვით მაკრო, როგორც ზემოთ აღწერილია მე-3 მეთოდში.
2. შემდეგ შეცვალეთ ეს მაკრო ამით:

Sub ExcludeNumbersInTablesFromWordCount()
  Dim objDoc As Document, objNewDoc As Document
  Dim nWord As Integer, nWordInNewDoc As Integer, nWordInNewDocWithoutNum As Integer, nNumber As Integer
  Dim objTable As Table
  Dim objRange As Range
  Dim objParagraph As Paragraph
 
  Set objDoc = ActiveDocument
  Set objNewDoc = Documents.Add
  nWord = objDoc.Range.ComputeStatistics(wdStatisticWords)
 
  For Each objTable In objDoc.Tables
    objTable.Range.Select
    Selection.Copy
 
    Set objRange = objNewDoc.Range
 
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.PasteSpecial DataType:=wdPasteRTF
    objRange.Collapse Direction:=wdCollapseEnd
    objRange.Text = vbCr
  Next objTable
 
  objNewDoc.Activate
 
  For Each objParagraph In ActiveDocument.Paragraphs
    If objParagraph.Range.Style = "Caption" Then
      objParagraph.Range.Delete
    End If
  Next objParagraph
 
  nWordInNewDoc = objNewDoc.Range.ComputeStatistics(wdStatisticWords)
 
  With Selection
    .HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "^#"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
 
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
      .Text = "[,.;:’" & ChrW(8221) & ChrW(8221) & """/\!\*\?\\]"
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindContinue
      .Format = False
      .MatchCase = False
      .MatchWholeWord = False
      .MatchAllWordForms = False
      .MatchSoundsLike = False
      .MatchWildcards = True
      .Execute
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
  End With
 
  nWordInNewDocWithoutNum = objNewDoc.Range.ComputeStatistics(wdStatisticWords)
  nNumber = nWordInNewDoc - nWordInNewDocWithoutNum
  objDoc.Activate
  MsgBox ("There are " & nWord - nNumber & " words in this document, excluding numbers in tables.")
End Sub

იქნება შეტყობინებების ყუთი, როგორიცაა:

წინასწარ იფიქრე

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

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

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