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

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

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

მეთოდი 1: დაითვალეთ სიტყვები ტექსტის ველებიდან, სქოლიოებიდან და ბოლო ჩანაწერებიდან ტექსტების ჩათვლით

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

1. პირველ რიგში, გადადით სტატუსის ზოლზე და დააწკაპუნეთ „სიტყვებზე“, რათა გახსნათ „სიტყვების რაოდენობა“ ველი.
2. იქ ნახავთ ყველა სახის სტატისტიკას. დარწმუნდით, რომ მონიშნეთ ყუთი „ტექსტური ყუთების, სქოლიოების და ბოლო შენიშვნების ჩართვა“.
3. შემდეგ დააჭირეთ "დახურვას".
4. თუ ვერ პოულობთ ბრძანებას „Words“ სტატუსის ზოლში, დააწკაპუნეთ მასზე მარჯვენა ღილაკით.
5. შემდეგ შეამოწმეთ "სიტყვების რაოდენობა".

მეთოდი 2: ტექსტების გამორიცხვა ტექსტური ველებიდან, სქოლიოები და ბოლო შენიშვნები Word Count-დან

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

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

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

Sub SeparateCountNumberOfTextboxFootnoteEndnote()
  Dim lTextboxWords As Long
  Dim lTextboxChars As Long
  Dim lDocumntWords As Long
  Dim lDocumntChars As Long
  Dim objTextboxShape As Shape
  Dim objTemp As Dialog
  Dim bDone As Boolean
  Dim objRange As Range
  Dim lFootnoteWords As Long
  Dim lFootnoteChars As Long
  Dim lEndnoteWords As Long
  Dim lEndnoteChars As Long
 
  Application.ScreenUpdating = False

 Do
   bDone = True
   For Each objTextboxShape In ActiveDocument.Shapes
     If objTextboxShape.Type = msoGroup Then
       objTextboxShape.Ungroup
       bDone = False
     End If
   Next objTextboxShape
 Loop Until bDone

 '  Count the words and characters in the whole document.
 Selection.HomeKey Unit:=wdStory
 Set objTemp = Dialogs(wdDialogToolsWordCount)
   objTemp.Update
   objTemp.Execute
   lDocumntWords = objTemp.Words
   lDocumntChars = objTemp.Characters
 
 With ActiveDocument
 '  Count the words and characters in all textboxes.
   lTextboxWords = 0
   lTextboxChars = 0
   If ActiveDocument.Shapes.Count > 0 Then
     For Each objTextboxShape In .Shapes
       objTextboxShape.Select
       objTemp.Execute
       lTextboxWords = lTextboxWords + objTemp.Words
       lTextboxChars = lTextboxChars + objTemp.Characters
     Next objTextboxShape
   Else
     MsgBox ("There is no text box in this document")
   End If

   '  Count the words and characters in all footnotes.
   lFootnoteWords = 0
   lFootnoteChars = 0
   If ActiveDocument.Footnotes.Count > 0 Then
     For Each objRange In .StoryRanges
       If objRange.StoryType = wdFootnotesStory Then
         objRange.Select
         objTemp.Execute
         lFootnoteWords = lFootnoteWords + objTemp.Words
         lFootnoteChars = lFootnoteChars + objTemp.Characters
       End If
     Next objRange
   Else
     MsgBox ("There is no footnote in this document")
   End If

   '  Count the words and characters in all endnotes. 
   lEndnoteWords = 0
   lEndnoteChars = 0
   If ActiveDocument.Endnotes.Count > 0 Then
     For Each objRange In .StoryRanges
       If objRange.StoryType = wdEndnotesStory Then
         objRange.Select
         objTemp.Execute
         lEndnoteWords = lEndnoteWords + objTemp.Words
         lEndnoteChars = lEndnoteChars + objTemp.Characters
       End If
     Next objRange
   Else
     MsgBox ("There is no Endnote in this document")
   End If
 End With
 
 Application.ScreenUpdating = True

 MsgBox (" In this document there are totally" & vbCr _
   & Str(lDocumntWords) & " word(s) and" & Str(lDocumntChars) & " characters" & vbCr & vbCr _
   & "Including:" & vbCr _
   & Str(ActiveDocument.Shapes.Count) & " textboxes contain(s)" & vbCr _
   & Str(lTextboxWords) & " word(s)," & Str(lTextboxChars) & " characters" & vbCr & vbCr _
   & Str(ActiveDocument.Footnotes.Count) & " footnotes contain(s)" & vbCr _
   & Str(lFootnoteWords) & " word(s)," & Str(lFootnoteChars) & " characters" & vbCr & vbCr _
   & Str(ActiveDocument.Endnotes.Count) & " Endnotes contain(s)" & vbCr _
   & Str(lEndnoteWords) & " word(s)," & Str(lEndnoteChars) & " characters")
End Sub

7. ბოლოს დააჭირეთ ღილაკს "გაშვება".

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

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

მიიღეთ აღდგენის ინსტრუმენტი

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

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

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