Bugünkü məqalədə biz sizə Word sənədinizdəki rəqəmləri söz sayı statistikasından çıxarmağın 4 effektiv yolunu təqdim edəcəyik.
Ümumiyyətlə, Word bütün növ mətnləri sayar, istər sözlər, istərsə də rəqəmlər. Ancaq indi və sonra, çox güman ki, rəqəmlər kimi müəyyən elementlər istisna olmaqla, bir söz sayımı edəcəyik. Buna görə də, biz sizə belə bir tələbi yerinə yetirmək üçün 4 üsul göstərməkdən məmnunuq.
Hər şeydən əvvəl, hədəf sənədin ehtiyat nüsxəsini çıxarmalı və surətinizdə aşağıdakı bütün üsulları tətbiq etməlisiniz.
Metod 1: Bütün nömrələri silin
- Birincisi, faylın surətini açın və "Ev" sekmesinin altındakı "Tap" üzərinə açılan düyməni basın.
- İkincisi, "Tap və dəyişdir" informasiya qutusunu açmaq üçün "Qabaqcıl tap" seçin.
- Sonra "Nə tapın" mətn qutusuna "^#" daxil edin. Əgər bu sətri xatırlamırsınızsa, kursoru “Nəyi tapın” mətn qutusuna qoyun və “Daha çox” düyməsini, sonra isə “Xüsusi” düyməsini basın.
- Sonra "Hər hansı bir rəqəm" seçin.
- İndi "Tap" düyməsini basın və "Əsas Sənəd" seçin.
- Bütün nömrələrin seçimdə olduğunu görəcəksiniz.
- "Sil" düyməsini basın.
- Rəqəmlər yox olduqdan sonra Word'ün bəzi durğu işarələrini söz kimi qəbul etdiyini görə bilərsiniz. Beləliklə, bütün durğu işarələrini də silməlisiniz. "Tap və Dəyişdir" qutusunu yenidən açın. Bu dəfə giriş "[,.;:'”””/\!\*\?\\]” (dırnaq işarələri olmadan) “Nə tapın” mətn qutusunda.
- Və "Joker işarələrdən istifadə et" qutusunu qeyd etməyi unutmayın.
- Bütün durğu işarələrini tapmaq üçün 5-ci addımı təkrarlayın.
- Onları silin.
- Nəhayət, mətnlərin ümumi sayına baxmaq üçün “Review” və sonra “Word Count” üzərinə klikləyin.
Metod 2: Bütün Nömrələri Gizli Mətn kimi Formatlaşdırın
Word söz sayına gizli mətnləri daxil etmir, ona görə də siz gizli formatda nömrələr təyin etməyi seçə bilərsiniz.
- Əvvəlcə üsuldakı ilk 6 addımı təkrarlayın.
- Seçilmiş nömrələri silmək əvəzinə, "Şrift" qutusunu açmaq üçün "Ctrl + D" düyməsini basın.
- "Gizli" qutusunu yoxlayın və "OK" düyməsini basın.
- Bütün durğu işarələrini tapmaq üçün növbəti addım 8-dən 9-a qədər təkrarlayın.
- Eynilə, durğu işarələrini gizli mətnlər kimi formatlaşdırmaq üçün 2 və 3-cü addımları izləyin.
- Nəhayət, ümumi sözləri yoxlayın.
Metod 3: Word Makronunu işə salın
Aşağıdakı makro yuxarıdakı addımları avtomatik yerinə yetirəcək və sizə nömrələr istisna olmaqla, ümumi sözlərin sayından ibarət mesaj qutusu qaytaracaq.
- Başlamaq üçün, VBA redaktorunu açmaq üçün Word-də “Alt+ F11” düyməsini sıxın.
- Sonra sol sütunda "Normal" düyməsini basın.
- Sonra "Daxil et" sekmesini vurun və "Modul" seçin.
- Modulu açmaq üçün üzərinə iki dəfə klikləyin və aşağıdakı kodları daxil edin:
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
- "Çalış" düyməsini basın.
Sənədinizdə neçə söz olduğunu bildirən bir mesaj qutusu alacaqsınız, məsələn:
Metod 4: Cədvəllərdəki nömrələri Word sayından xaric edin
Cədvəllərdəki nömrələrin söz sayından xaric edilməsinə xüsusi ehtiyac var. Həll yolu makro işlətməkdir.
- Yuxarıda 3-cü üsulda qeyd edildiyi kimi makro quraşdırın və işə salın.
- Sonra həmin makronu bununla əvəz edin:
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
Bu kimi bir mesaj qutusu olacaq:
İrəli düşünün
Word-ün qüsursuz olmadığı nəzərə alınmaqla, hər şey çox gec olmamışdan əvvəl profilaktik tədbirlər görməlisiniz. Ən faydalı yol sənədlərinizin ehtiyat nüsxəsini çıxarmaq və mümkün qədər ehtiyat nüsxəsini çıxarmaqdır. Sənədin ehtiyat nüsxəsini çıxarmaq cəmi bir neçə dəqiqə çəkə bilər, lakin onu bərpa etmək saatlarla, hətta günlərlə çəkə bilər. pozulmuş docx. Beləliklə, həm vaxtınıza, həm də pulunuza qənaət etmək üçün əvvəlcədən düşünün.
Müəllif Giriş:
Vera Çen məlumatların bərpası üzrə mütəxəssisdir DataNumendaxil olmaqla məlumatların bərpası texnologiyaları üzrə dünya lideri olan , Inc Excel düzəlişi və pdf proqram məhsullarının təmiri. Ətraflı məlumat üçün ziyarət edin www.datanumen.com