Tämänpäiväisessä artikkelissa esittelemme sinulle 4 tehokasta tapaa jättää Word-asiakirjasi numerot pois sanamäärätilastoista.
Yleensä Word laskee kaiken tyyppiset tekstit, olivat ne sitten sanoja tai numeroita. Mutta silloin tällöin teemme todennäköisesti sanojen laskemisen jättäen pois tietyt elementit, kuten numerot. Siksi meillä on ilo näyttää sinulle 4 tapaa täyttää tällainen vaatimus.
Ennen kaikkea sinun on otettava varmuuskopio kohdetiedostosta ja suoritettava kaikki alla olevat menetelmät kopiollesi.
Tapa 1: Poista kaikki numerot
- Avaa ensin kopiotiedosto ja napsauta "Etsi" -välilehden avattavaa painiketta.
- Toiseksi, valitse "Lisähaku" avataksesi "Etsi ja korvaa" -valintaikkunan.
- Kirjoita seuraavaksi "^#" Etsi mitä -tekstikenttään. Jos et muista tätä merkkijonoa, aseta kohdistin "Etsi mitä" -tekstiruutuun ja napsauta "Lisää" ja napsauta "Erikois" -painiketta.
- Valitse sitten "Mikä tahansa numero".
- Napsauta nyt "Etsi" ja valitse "Pääasiakirja".
- Löydät kaikki numerot valittavana.
- Paina “Poista”.
- Kun numerot ovat poissa, voit huomata, että Word pitää joitakin välimerkkejä nyt sanoina. Joten sinun on poistettava myös kaikki välimerkit. Avaa "Etsi ja korvaa" -ruutu uudelleen. Tällä kertaa syötä "[,.;:'"""/\!\*\?\\]" (ilman lainausmerkkejä) "Etsi mitä" -tekstikentässä.
- Muista myös valita "Käytä yleismerkkejä" -ruutu.
- Toista vaihe 5 löytääksesi kaikki välimerkit.
- Poista ne.
- Napsauta lopuksi "Tarkista" ja sitten "Sanojen määrä" nähdäksesi tekstien kokonaismäärän.
Tapa 2: Muotoile kaikki numerot piiloteksteiksi
Word ei sisällytä piilotekstejä sanamäärään, joten voit määrittää numerot piilotetussa muotoilussa.
- Toista ensin menetelmän 6 ensimmäistä vaihetta.
- Valittujen numeroiden poistamisen sijaan paina "Ctrl+D" avataksesi "Fontti"-ruudun.
- Valitse "Piilotettu"-ruutu ja napsauta "OK".
- Toista seuraavaksi vaiheet 8–9 löytääksesi kaikki välimerkit.
- Samoin seuraa vaiheita 2 ja 3 muotoillaksesi välimerkit piiloteksteiksi.
- Tarkista lopuksi sanojen kokonaismäärä.
Tapa 3: Suorita Word-makro
Seuraava makro suorittaa yllä olevat vaiheet automaattisesti ja palauttaa sinulle viestiruudun, joka sisältää sanojen kokonaismäärän lukuun ottamatta numeroita.
- Aloita painamalla "Alt + F11" Wordissa avataksesi VBA-editorin.
- Napsauta seuraavaksi "Normaali" vasemmassa sarakkeessa.
- Napsauta sitten Lisää-välilehteä ja valitse Moduuli.
- Avaa moduuli kaksoisnapsauttamalla sitä ja liitä alla olevat koodit:
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
- Napsauta "Suorita".
Saat viestilaatikon, jossa kerrotaan kuinka monta sanaa asiakirjassasi on, kuten alla:
Tapa 4: Sulje taulukoiden numerot pois sanamäärästä
Tässä on erityinen tarve jättää taulukoiden numerot pois sanamäärästä. Ratkaisu on ajaa makro.
- Asenna ja suorita makro edellä menetelmässä 3 kuvatulla tavalla.
- Korvaa sitten makro tällä:
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
Tulee tällainen viestilaatikko:
Ajattele etukäteen
Koska Word ei ole erehtymätön, sinun on ryhdyttävä ennaltaehkäiseviin toimenpiteisiin ennen kuin kaikki on liian myöhäistä. Hyödyllisin tapa on varmuuskopioida asiakirjasi ja varmuuskopioida ne niin paljon kuin mahdollista. Asiakirjan varmuuskopiointi voi kestää vain muutaman minuutin, mutta sen palauttaminen voi kestää tunteja tai jopa päiviä. korruptoitunut docx. Joten mieti etukäteen säästääksesi aikaa ja rahaa.
Tekijän esittely:
Vera Chen on tietojen palauttamisen asiantuntija DataNumen, Inc., joka on maailman johtava tietojen palautustekniikoissa, mukaan lukien Excel-korjaus ja pdf korjata ohjelmistotuotteita. Lisätietoja osoitteessa www.datanumen.com