Сөздік құжаттағы сандарды Word санау статистикасынан алып тастаудың 4 әдісі

Word шешімдері Қыркүйек 28, 2025

Бүгінгі мақалада біз сізге Word құжатындағы сандарды сөздерді есептеу статистикасынан алып тастаудың 4 тиімді әдісін ұсынамыз.

Әдетте, Word сөздердің немесе сандардың болсын барлық мәтін түрлерін санайды. Бірақ қазір, содан кейін, біз белгілі бір элементтерді қоспағанда, сөздерді санауды жасаймыз, мысалы, сандар. Сондықтан, біз сізге осындай талапты орындау үшін 4 әдісті көрсетуге қуаныштымыз.

Ең алдымен, мақсатты құжаттың сақтық көшірмесін жасап, төмендегі барлық әдістерді қолдануыңыз керек.

1-әдіс: Барлық сандарды жою

Біріншіден, көшірме файлын ашып, «Үй» қойындысындағы «Іздеу» ішіндегі ашылмалы батырманы басыңыз.
Екіншіден, «Іздеу және ауыстыру» диалогтық терезесін ашу үшін «Қосымша іздеу» тармағын таңдаңыз.
Әрі қарай «Нені табу» мәтін жолына «^ #» енгізіңіз. Егер сіз бұл жолды еске түсіре алмасаңыз, курсорды «Find what» мәтін жолына қойып, «Қосымша» батырмасын басыңыз, содан кейін «Арнайы» батырмасын басыңыз.
Содан кейін «Кез-келген цифрды» таңдаңыз.
Енді «Іздеу» батырмасын басып, «Негізгі құжатты» таңдаңыз.
Барлық нөмірлер таңдалғанын таба аласыз.
«Жою» түймесін басыңыз.
Сандар жоғалып кеткеннен кейін, Word қазір кейбір тыныс белгілерін сөз ретінде қарастыратынын байқауға болады. Сондықтан сіз барлық тыныс белгілерін алып тастауыңыз керек. «Іздеу және ауыстыру» жолағын қайтадан ашыңыз. Бұл жолы «[,.;: '' ”” / \! \ * \? \\]»(Тырнақшасыз)« Нені табыңыз »мәтін жолағында.
Есіңізде болсын, «таңбалы белгілерді пайдалану» құсбелгісін қойыңыз.
Барлық тыныс белгілерін табу үшін 5-қадамды қайталаңыз.
Оларды жойыңыз.
Ақырында, мәтіндердің жалпы санын көру үшін «Қарап шығу», содан кейін «Сөздерді санау» батырмасын басыңыз.

2-әдіс: Барлық сандарды жасырын мәтін түрінде форматтау

Word сөз санына жасырын мәтіндерді қамтымайды, сондықтан сіз жасырын форматта сандарды қоюды таңдай аласыз.

Біріншіден, әдіс бойынша алғашқы 6 қадамды қайталаңыз.
Таңдалған нөмірлерді жоюдың орнына «Қаріп» өрісін ашу үшін «Ctrl + D» пернелерін басыңыз.
«Жасырын» құсбелгісін қойып, «ОК» батырмасын басыңыз.
Барлық тыныс белгілерін табу үшін келесі қадамды 8-ден 9-ға дейін қайталаңыз.
Тыныс белгілерін жасырын мәтін ретінде форматтау үшін 2 және 3-қадамдарды орындаңыз.
Соңында, жалпы сөздерді тексеріңіз.

3-әдіс: Word макросын іске қосыңыз

Келесі макрос жоғарыда аталған әрекеттерді автоматты түрде орындайды және сандардан басқа сөздердің жалпы санын қамтитын хабарлама өрісін береді.

Бастау үшін, Word бағдарламасындағы «Alt + F11» пернелер тіркесімін басып, 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-әдіс: кестедегі сандарды Word Count-дан шығару

Міне, кестедегі сандарды сөз санынан алып тастаудың ерекше қажеттілігі. Шешім - макросты іске қосу.

Жоғарыда 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