4 начина за изключване на числата във вашия Word документ от статистика за броя на думите

Решения за Word Септември 28, 2025

В днешната статия ще ви представим 4 ефективни начина за изключване на числата във вашия документ на Word от статистиката за броя на думите.

Като цяло Word отчита всички видове текстове, били те думи или числа. Но от време на време е вероятно да направим броене на думи, като изключим някои елементи, като числа. Затова с удоволствие ще ви покажем 4 метода, за да отговорим на такова изискване.

Преди всичко, трябва да направите резервно копие на целевия документ и да приложите всички методи по-долу върху него.

Метод 1: Изтрийте всички числа

Първо отворете файла за копиране и щракнете върху падащия бутон на „Намери“ в раздела „Начало“.
На второ място, изберете „Разширено търсене“, за да отворите диалоговия прозорец „Намиране и замяна“.
След това въведете „^ #“ в текстовото поле „Намери какво“. Ако не можете да запомните този низ, поставете курсора в текстовото поле „Намери какво“ и щракнете върху „Още“, след което щракнете върху бутона „Специално“.
След това изберете „Всяка цифра“.
Сега щракнете върху „Намери в“ и изберете „Основен документ“.
Ще откриете, че всички номера са в избор.
Натиснете “Delete”.
След като числата изчезнат, можете да забележите, че Word разглежда някои препинателни знаци като думи сега. Така че трябва да премахнете и всички пунктуационни знаци. Отворете отново полето „Намери и замени“. Този път въведете „[,.;: '”” ”/ \! \ * \? \\]”(Без кавички) в текстовото поле„ Намери какво “.
И не забравяйте да поставите отметка в квадратчето „Използване на заместващи символи“.
Повторете стъпка 5, за да намерите всички пунктуационни знаци.
Изтрийте ги.
Накрая щракнете върху „Преглед“, след това върху „Брой думи“, за да видите общия брой текстове.

Метод 2: Форматирайте всички числа като скрити текстове

Word не включва скрити текстове при преброяване на думи, така че можете да изберете да задавате числа в скрито форматиране.

На първо място, повторете първите 6 стъпки в метода.
Вместо да изтривате избрани номера, натиснете „Ctrl + D“, за да отворите полето „Шрифт“.
Поставете отметка в квадратчето „Скрито“ и щракнете върху „OK“.
След това повторете от стъпки 8 до 9, за да намерите всички пунктуационни знаци.
По същия начин следвайте стъпки 2 и 3, за да форматирате пунктуационните знаци като скрити текстове.
Накрая проверете общия брой думи.

Метод 3: Стартирайте Word Macro

Следващият макрос ще направи горните стъпки автоматично и ще ви върне съобщение, съдържащо общия брой думи, с изключение на числата.

Като начало натиснете „Alt + F11“ в Word, за да отворите редактора на VBA.
След това щракнете върху „Нормално“ в лявата колона.
След това щракнете върху раздела „Вмъкване“ и изберете „Модул“.
Щракнете двукратно върху модула, за да го отворите и поставете кодовете:

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

Щракнете върху „Run“.

Ще получите поле за съобщение, което ви казва колко думи има във вашия документ, например по-долу:

Метод 4: Изключете числата в таблици от броя на думите

Ето особена необходимост от изключване на числата в таблици от броя на думите. Решението е да стартирате макрос.

Инсталирайте и стартирайте макрос, както е посочено по-горе в метод 3.
След това заменете този макрос с този:

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