Баримт бичигт байгаа текстийн хайрцаг, зүүлт тайлбар, төгсгөлийн тайлбартай холбоотой үгийн тоон статистикийг авах 3 арга

Өнөөдрийн нийтлэлд таны баримт бичигт текст хайрцаг, зүүлт тайлбар болон төгсгөлийн тайлбартай холбоотой үгийн тооллогын статистикийг авах 3 хурдан арга бий.

Баримт бичигт байгаа үгсийн нийт тоог гаргах нь тийм ч хэцүү биш юм. Гэхдээ хэрэв та өөр өөр төрлийн текстийн үгийн тоог авахыг хүсвэл илүү олон үйлдэл хийх шаардлагатай болно. Дараах 3 арга байна. Та юу ашиглаж болохыг харахын тулд уншина уу. 

Арга 1: Текстийн хайрцаг, зүүлт болон төгсгөлийн тайлбараас авсан бичвэрүүдийг багтаасан үгсийг тоолох

Өгөгдмөл байдлаар, Word нь текстийн хайрцагт байгаа текст, зүүлт тайлбар болон төгсгөлийн тайлбарын үгс зэрэг баримт бичигт гарч буй бүх үгийг тоолдог.

1. Юуны өмнө, төлөвийн мөрөнд очоод "Үгс" дээр дарж "Үгийн тоо" гэсэн нүдийг нээнэ үү.
2. Тэнд та бүх төрлийн статистикийг харах болно. "Текст хайрцаг, зүүлт тайлбар болон төгсгөлийн тайлбарыг оруулах" нүдийг чагтална уу.
3. Дараа нь "Хаах" дээр дарна уу.
4. Хэрэв та статус самбар дээрх "Үг" командыг олж чадахгүй бол баруун товчийг дарна уу.
5. Дараа нь "Үгийн тоо" -ыг шалгана уу.

Арга 2: Текстийн хайрцаг, зүүлт болон төгсгөлийн тайлбарыг үгийн тооноос хасах

Энэ нь 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.com