4 способи виключити цифри у вашому документі Word із статистики кількості слів

Рішення для слів Вересень 28, 2025

У сьогоднішній статті ми представимо вам 4 ефективні способи виключення чисел у вашому документі Word із статистики кількості слів.

Як правило, Word враховує всі типи текстів, будь то слова чи цифри. Але час від часу ми, швидше за все, робимо підрахунок слів, виключаючи певні елементи, такі як цифри. Тому ми раді показати вам 4 методи для задоволення такої вимоги.

Перш за все, вам слід зробити резервну копію цільового документа та виконати всі наведені нижче методи на своїй копії.

Спосіб 1: Видалити всі номери

По-перше, відкрийте файл копії та натисніть спадне меню на "Знайти" на вкладці "Домашня сторінка".
По-друге, виберіть «Розширений пошук», щоб відкрити діалогове вікно «Знайти та замінити».
Далі введіть «^ #» у текстовому полі «Знайти що». Якщо ви не можете запам'ятати цей рядок, наведіть курсор на текстове поле "Знайти що" та натисніть "Більше", а потім натисніть кнопку "Спеціальне".
Потім виберіть “Будь-яка цифра”.
Тепер натисніть «Знайти в» і виберіть «Основний документ».
Ви знайдете всі вибрані номери.
Натисніть “Видалити”.
Коли цифри зникнуть, ви можете помітити, що Word розглядає деякі розділові знаки як слова зараз. Тож вам потрібно також видалити всі розділові знаки. Знову відкрийте поле «Знайти та замінити». Цього часу введено “[,.;: '”” ”/ \! \ * \? \\]"(Без лапок) у текстовому полі" Знайти що ".
І не забудьте встановити прапорець «Використовувати узагальнюючі символи».
Повторіть крок 5, щоб знайти всі розділові знаки.
Видаліть їх.
Нарешті, натисніть «Огляд», а потім «Кількість слів», щоб переглянути загальну кількість текстів.

Спосіб 2: Форматувати всі числа як приховані тексти

Word не включає приховані тексти у підрахунок слів, тому ви можете встановити цифри у прихованому форматуванні.

Перш за все, повторіть перші 6 кроків у методі.
Замість видалення вибраних номерів натисніть “Ctrl + D”, щоб відкрити вікно “Шрифт”.
Установіть прапорець «Приховано» та натисніть «ОК».
Потім повторіть кроки 8 - 9, щоб знайти всі розділові знаки.
Подібним чином виконайте кроки 2 та 3, щоб відформатувати розділові знаки як приховані тексти.
Нарешті, перевірте загальну кількість слів.

Спосіб 3: Запустіть макрос Word

Наступний макрос автоматично виконає наведені вище дії та поверне вам вікно повідомлення, що містить загальну кількість слів, за винятком цифр.

Для початку натисніть «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

Клацніть «Виконати».

Ви отримаєте вікно з повідомленням, скільки слів у вашому документі, наприклад, нижче:

Метод 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