Үг тоолох статистикээс хүснэгт текстийг хасах 2 арга

Үгийн шийдэл Есдүгээр сарын 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

Эцэст нь "Ажиллуулах" дээр дарна уу.

Макро ажиллуулахад тоолох үр дүнг харуулсан мессежийн хайрцаг гарч ирнэ.

Үгийн хохирлыг арилгах

Бид өдөр бүр ажиллуулахын тулд Word гэх мэт програм хангамжид ихээхэн найддаг. Үүний үр дүнд бид a-ийн асар их үр дагаврын талаар нүцгэн бодож чадсангүй Үгийн авлига. Баримт бичгийг засах хангалттай хэрэгсэл байхгүй л бол цөхрөнгөө барах болно.

Зохиогчийн танилцуулга:

Вера Чен бол мэдээлэл сэргээх мэргэжилтэн юм DataNumen, Үүнд мэдээлэл сэргээх технологиор дэлхийд тэргүүлэгч, Inc. xls засах болон pdf програм хангамжийн бүтээгдэхүүнийг засах. Дэлгэрэнгүй мэдээллийг авна уу WWW.datanumen.com