Word hujjatingizdagi raqamlarni Word soni statistikasidan chiqarib tashlashning 4 ta usuli

Bugungi maqolada biz sizga Word hujjatidagi raqamlarni so'zlar soni statistikasidan chiqarib tashlashning 4 ta samarali usulini taqdim etamiz.

Umuman olganda, Word barcha turdagi matnlarni, ular so'zlar yoki raqamlar bo'lsin, hisoblaydi. Ammo, vaqti-vaqti bilan, biz raqamlar kabi ba'zi elementlarni hisobga olmaganda, so'zlarni hisoblashni amalga oshirishimiz mumkin. Shuning uchun biz sizga bunday talabni qondirish uchun 4 usulni ko'rsatishdan mamnunmiz.

Avvalo, maqsadli hujjatning zaxira nusxasini olishingiz va nusxangizda quyidagi barcha usullardan foydalanishingiz kerak.

1-usul: Barcha raqamlarni o'chirish

1. Birinchidan, nusxa ko'chirish faylini oching va "Uy" yorlig'i ostidagi "Topish" bo'limidagi ochiladigan tugmani bosing.
2. Ikkinchidan, "Topish va almashtirish" dialog oynasini ochish uchun "Kengaytirilgan topish" ni tanlang.
3. Keyin “Nimani toping” matn maydoniga “^#” kiriting. Agar siz ushbu qatorni eslay olmasangiz, kursorni "Nimani toping" matn maydoniga qo'ying va "Ko'proq" tugmasini bosing va keyin "Maxsus" tugmasini bosing.
4. Keyin "Har qanday raqam" ni tanlang.
5. Endi "Topish" tugmasini bosing va "Asosiy hujjat" ni tanlang.
6. Tanlangan barcha raqamlarni topasiz.
7. "O'chirish" tugmasini bosing.
8. Raqamlar yo'q bo'lib ketgandan so'ng, Word endi ba'zi tinish belgilarini so'z sifatida ko'rishini ko'rishingiz mumkin. Shunday qilib, barcha tinish belgilarini ham olib tashlashingiz kerak. "Topish va almashtirish" oynasini yana oching. Bu safar kiritish "[,.;:'”””/\!\*\?\\]” (tirnoqsiz) “Nimani toping” matn maydonida.
9. Va "Joker belgilardan foydalanish" katagiga belgi qo'yishni unutmang.
10. Barcha tinish belgilarini topish uchun 5-bosqichni takrorlang.
11. Ularni o'chiring.
12. Nihoyat, matnlarning umumiy sonini ko'rish uchun "Ko'rib chiqish" ni, keyin esa "So'zlar soni" ni bosing.

2-usul: Barcha raqamlarni yashirin matnlar sifatida formatlash

Word so'zlar sonida yashirin matnlarni o'z ichiga olmaydi, shuning uchun siz yashirin formatlashda raqamlarni o'rnatishni tanlashingiz mumkin.

1. Avvalo, usuldagi dastlabki 6 qadamni takrorlang.
2. Tanlangan raqamlarni o'chirish o'rniga, "Shrift" oynasini ochish uchun "Ctrl + D" ni bosing.
3. "Yashirin" katagiga belgi qo'ying va "OK" tugmasini bosing.
4. Barcha tinish belgilarini topish uchun 8-dan 9-bosqichgacha takrorlang.
5. Xuddi shunday, tinish belgilarini yashirin matn sifatida formatlash uchun 2 va 3-bosqichlarni bajaring.
6. Nihoyat, jami so'zlarni tekshiring.

3-usul: Word makrosini ishga tushiring

Quyidagi so'l yuqoridagi amallarni avtomatik ravishda bajaradi va sizga raqamlardan tashqari so'zlarning umumiy sonini o'z ichiga olgan xabar oynasini qaytaradi.

1. Boshlash uchun VBA muharririni ochish uchun Word-da “Alt+ F11” tugmasini bosing.
2. Keyin chap ustundagi "Oddiy" ni bosing.
3. Keyin "Qo'shish" yorlig'ini bosing va "Modul" ni tanlang.
4. Modulni ochish uchun uni ikki marta bosing va quyidagi kodlarni joylashtiring:

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

5. "Ishga tushirish" tugmasini bosing.

Hujjatingizda nechta so'z borligi haqida xabarlar oynasini olasiz, masalan:

4-usul: Jadvallardagi raqamlarni so'zlar sonidan chiqarib tashlang

Bu erda jadvaldagi raqamlarni so'zlar sonidan chiqarib tashlashning alohida ehtiyoji bor. Yechim makroni ishga tushirishdir.

1. Yuqorida 3-usulda aytilganidek, makrosni o'rnating va ishga tushiring.
2. Keyin ushbu makrosni bu bilan almashtiring:

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

Quyidagi kabi xabarlar oynasi paydo bo'ladi:

Oldindan o'ylab ko'ring

Word mukammal emasligini hisobga olsak, hamma narsa juda kech bo'lishidan oldin profilaktika choralarini ko'rishingiz kerak. Eng foydali usul - hujjatlaringizning zaxira nusxasini yaratish va ularni iloji boricha zaxiralash. Hujjatning zaxira nusxasini yaratish uchun bir necha daqiqa vaqt ketishi mumkin, ammo uni tiklash uchun soatlab, hatto kunlab vaqt ketishi mumkin. buzilgan docx. Shuning uchun ham vaqtingizni, ham pulingizni tejash uchun oldindan o'ylab ko'ring.

Muallif kirish:

Vera Chen - ma'lumotlarni qayta tiklash bo'yicha mutaxassis DataNumenMa'lumotlarni qayta tiklash texnologiyalari bo'yicha jahon yetakchisi bo'lgan , Inc Excel tuzatish va pdf dasturiy mahsulotlarni ta'mirlash. Qo'shimcha ma'lumot olish uchun tashrif buyuring www.datanumen.com