Në artikullin e sotëm, ne do t'ju prezantojmë 4 mënyra efektive për të përjashtuar numrat në dokumentin tuaj Word nga statistikat e numërimit të fjalëve.
Në përgjithësi, Word numëron të gjitha llojet e teksteve, qofshin fjalë ose numra. Por, herë pas here, ka të ngjarë të bëjmë një numërim fjalësh duke përjashtuar disa elementë, siç janë numrat. Prandaj, ne jemi të kënaqur t'ju tregojmë 4 metoda për të përmbushur një kërkesë të tillë.
Para së gjithash, duhet të bëni një kopje rezervë të dokumentit të synuar dhe të kryeni të gjitha hapat e mëposhtëm në kopjen tuaj.
Metoda 1: Fshini të gjithë numrat
- Së pari, hapni skedarin e kopjimit dhe klikoni butonin rënës në "Gjej" nën skedën "Home".
- Së dyti, zgjidhni "Gjeni i avancuar" për të hapur kutinë e dialogut "Gjeni dhe zëvendësoni".
- Më pas shkruani "^#" në kutinë e tekstit "Gjeni çfarë". Nëse nuk e mbani mend këtë varg, vendosni kursorin në kutinë e tekstit "Gjeni çfarë" dhe klikoni "Më shumë" dhe më pas kliko butonin "Special".
- Pastaj zgjidhni "Çdo shifër".
- Tani klikoni "Find In" dhe zgjidhni "Dokumenti kryesor".
- Do të gjeni që të gjithë numrat janë në përzgjedhje.
- Shtypni "Fshi".
- Pasi numrat të jenë zhdukur, mund të vëreni se Word i konsideron disa shenja pikësimi si fjalë tani. Pra, duhet të hiqni të gjitha shenjat e pikësimit gjithashtu. Hapni përsëri kutinë "Gjeni dhe zëvendësoni". hyrje këtë herë "[,.;:'””””/\!\*\?\\]” (pa thonjëza) në kutinë e tekstit “Gjeni çfarë”.
- Dhe mos harroni të kontrolloni kutinë "Përdorni shenjat e egra".
- Përsëriteni hapin 5 për të gjetur të gjitha shenjat e pikësimit.
- Fshini ato.
- Së fundi, klikoni "Rishikoni" pastaj "Numërimin e Fjalëve" për të parë numrin total të teksteve.
Metoda 2: Formatoni të gjithë numrat si tekste të fshehura
Word nuk përfshin tekste të fshehura në numërimin e fjalëve, kështu që ju mund të zgjidhni të vendosni numrat në formatimin e fshehur.
- Para së gjithash, përsëritni 6 hapat e parë në metodë.
- Në vend që të fshini numrat e zgjedhur, shtypni "Ctrl+ D" për të hapur kutinë "Font".
- Kontrolloni kutinë "Fshehur" dhe klikoni "OK".
- Përsëriteni më pas nga hapi 8 deri në 9 për të gjetur të gjitha shenjat e pikësimit.
- Në mënyrë të ngjashme, ndiqni hapat 2 dhe 3 për të formatuar shenjat e pikësimit si tekste të fshehura.
- Më në fund, kontrolloni totalin e fjalëve.
Metoda 3: Ekzekutoni Word Macro
Makroja e mëposhtme do t'i kryejë automatikisht hapat e mësipërm dhe do t'ju kthejë një kuti mesazhi, që përmban numrin e përgjithshëm të fjalëve, duke përjashtuar numrat.
- Për të filluar, shtypni "Alt+ F11" në Word për të hapur redaktorin VBA.
- Pastaj klikoni "Normal" në kolonën e majtë.
- Pastaj klikoni në skedën "Fut" dhe zgjidhni "Modul".
- Klikoni dy herë në modul për ta hapur dhe ngjitur kodet e mëposhtme:
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
- Klikoni "Run".
Do të merrni një kuti mesazhi, duke ju treguar se sa fjalë ka në dokumentin tuaj, si më poshtë:
Metoda 4: Përjashtoni numrat në tabela nga numërimi i fjalëve
Këtu është një nevojë e veçantë për të përjashtuar numrat në tabela nga numërimi i fjalëve. Zgjidhja është të ekzekutoni një makro.
- Instaloni dhe ekzekutoni një makro siç u tha më sipër në metodën 3.
- Pastaj zëvendësojeni atë makro me këtë:
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
Do të ketë një kuti mesazhi si kjo:
Mendo perpara
Duke pasur parasysh faktin se Word nuk është i pagabueshëm, duhet të merrni masa parandaluese përpara se gjithçka të jetë tepër vonë. Mënyra më e dobishme është të bëni kopje rezervë të dokumenteve tuaja dhe t'i bëni ato sa më shumë që të jetë e mundur. Mund të duhen vetëm disa minuta për të bërë kopje rezervë të një dokumenti, por orë të tëra madje ditë për ta rikuperuar atë. docx e korruptuar. Kështu që mendoni përpara për t'ju kursyer kohë dhe para.
Hyrje e autorit:
Vera Chen është një eksperte për rikuperimin e të dhënave DataNumen, Inc., e cila është lider botëror në teknologjitë e rikuperimit të të dhënave, duke përfshirë Rregullimi i Excel-it pdf riparimin e produkteve softuerike. Për më shumë informacion vizitoni www.datanumen.com