Word баримт дээрх тоог Word тооллогын статистикаас хасах 4 арга

Үгийн шийдэл Есдүгээр сарын 28, 2025
Одоо хуваалцах:

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

Ерөнхийдөө Word нь үг, тоо гэх мэт бүх төрлийн текстийг тоолдог. Гэхдээ бид заримдаа тоо гэх мэт тодорхой элементүүдийг оруулалгүйгээр үг тоолох боломжтой байдаг. Тиймээс бид ийм шаардлагыг хангах 4 аргыг танд үзүүлэхэд таатай байна.Үгийн тооллын статистикаас Word баримт дээрх тоог хас

Юуны өмнө та зорилтот баримт бичгийн нөөц хуулбарыг хийж, хуулбар дээрээ доор дурдсан бүх алхмуудыг хийх ёстой.

Арга 1: Бүх дугаарыг устгах

  1. Нэгдүгээрт, хуулбар файлыг нээж, "Нүүр хуудас" табын доор байрлах "Олох" товчийг дарна уу.
  2. Хоёрдугаарт, "Нарийвчилсан хайлт" гэснийг сонгоод "Олох ба солих" харилцах цонхыг нээнэ үү."Нүүр" дээр дарна уу - "Хайх" дээр дарна уу -> "Нарийвчилсан хайлт" -ыг сонгоно уу
  3. Дараа нь "Юуг олох" текст талбарт "^#" гэж оруулна уу. Хэрэв та энэ мөрийг санахгүй байвал "Find what" текст талбар дээр курсороо тавиад "More" дээр товшоод "Special" товчийг дарна уу.
  4. Дараа нь "Аль ч оронтой" хэсгийг сонгоно уу.
  5. Одоо "Find In" дээр товшоод "Үндсэн баримт" -ыг сонгоно уу.
  6. Сонголтонд байгаа бүх дугаарыг та олох болно."Юуг олох" Текстийн талбарт "^#" гэж оруулна уу->"Ол"-ыг товшино уу->"Үндсэн баримт"-ыг сонгоно уу.
  7. "Устгах" дээр дарна уу.
  8. Тоонууд алга болсны дараа Word одоо зарим цэг таслалыг үг гэж үзэж байгааг анзаарч болно. Тиймээс та бүх цэг таслалыг арилгах хэрэгтэй. "Олох ба солих" нүдийг дахин нээнэ үү. Энэ удаагийн оролт "[,.;:'”””/\!\*\?\\]” (хашилтгүйгээр) "Юуг олох" текстийн талбарт бичнэ үү.
  9. Мөн "Зохицуулах тэмдэг ашиглах" нүдийг шалгахаа мартуузай.
  10. Бүх цэг таслалыг олохын тулд 5-р алхамыг давтана уу."Юуг олох" текстийн талбарт мөрийг оруулна уу-> "Ол" дээр дарна уу -> "Үндсэн баримт" -ыг сонгоно уу.
  11. Тэднийг устга.
  12. Эцэст нь "Review" дараа нь "Word Count" дээр дарж нийт текстийн тоог харна уу."Шүүмж"->"Үгийн тоо" дээр дарна уу.

Арга 2: Бүх тоог далд текст хэлбэрээр форматлах

Word нь үгийн тоонд далд текстийг оруулаагүй тул та нуугдмал форматаар тоог тохируулах боломжтой.

  1. Юуны өмнө аргын эхний 6 алхамыг давт.
  2. Сонгосон тоонуудыг устгахын оронд "Ctrl + D" товчийг дарж "фонт" нүдийг нээнэ үү.
  3. "Нуугдсан" нүдийг сонгоод "OK" дээр дарна уу."Нуугдсан" хайрцгийг чагтална уу-> "OK" дээр дарна уу.
  4. Дараа нь бүх цэг таслалыг олохын тулд 8-аас 9-р алхамыг давтана уу.
  5. Үүний нэгэн адил цэг таслалыг далд текст болгон форматлахын тулд 2, 3-р алхамыг дагана уу.
  6. Эцэст нь нийт үгсийг шалгана уу.

Арга 3: Word макро ажиллуулах

Дараах макро нь дээрх алхмуудыг автоматаар хийж, тооноос бусад нийт үгийн тоог агуулсан мессежийн хайрцагыг танд буцаана.

  1. Эхлэхийн тулд Word дээр "Alt+ F11" товчийг дарж VBA засварлагчийг нээнэ үү.
  2. Дараа нь зүүн баганад байгаа "Хэвийн" дээр дарна уу.
  3. Дараа нь "Insert" таб дээр дарж "Module" -г сонгоно уу."Normal" дээр дарна уу - "Insert" дээр дарна уу - "Module" дээр дарна уу
  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
  1. "Ажиллуулах" дээр дарна уу.Кодуудыг буулгах -> "Ажиллуулах" дээр дарна уу

Та мессежийн хайрцаг хүлээн авах бөгөөд таны баримт бичигт хэдэн үг байгааг хэлэх болно, тухайлбал доор:Үр дүнгийн хайрцаг

Арга 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.com

Одоо хуваалцах:

Тайлбарууд нь хаалттай байна.