In het artikel van vandaag presenteren we u 4 effectieve manieren om getallen in uw Word-document uit te sluiten van statistieken over het aantal woorden.
Over het algemeen telt Word alle soorten teksten, of het nu woorden of getallen zijn. Maar af en toe doen we waarschijnlijk een woordentelling waarbij we bepaalde elementen, zoals getallen, uitsluiten. Daarom laten we u graag 4 methoden zien om aan een dergelijke eis te voldoen.
Maak allereerst een back-up van het betreffende document en voer alle onderstaande methoden uit op uw kopie.
Methode 1: verwijder alle nummers
- Open eerst het kopieerbestand en klik op de vervolgkeuzeknop op "Zoeken" op het tabblad "Startpagina".
- Kies ten tweede "Geavanceerd zoeken" om het dialoogvenster "Zoeken en vervangen" te openen.
- Typ vervolgens "^#" in het tekstvak "Zoeken naar". Als u deze tekenreeks niet meer weet, plaatst u de cursor in het tekstvak "Zoeken naar" en klikt u op "Meer" en vervolgens op de knop "Speciaal".
- Selecteer vervolgens "Elk cijfer".
- Klik nu op "Zoeken in" en kies "Hoofddocument".
- U zult zien dat alle nummers in de selectie staan.
- Druk op "Verwijderen".
- Als de cijfers eenmaal verdwenen zijn, kunt u merken dat Word sommige leestekens nu als woorden beschouwt. U moet dus ook alle leestekens verwijderen. Open het vak "Zoeken en vervangen" opnieuw. Deze keer invoer "[,.;:'”””/\!\*\?\\]' (zonder aanhalingstekens) in het tekstvak 'Zoeken naar'.
- En vergeet niet om het vakje "Gebruik wildcards" aan te vinken.
- Herhaal stap 5 om alle leestekens te vinden.
- Verwijder ze.
- Klik ten slotte op "Bekijken" en vervolgens op "Woordentelling" om het totale aantal teksten te bekijken.
Methode 2: formatteer alle nummers als verborgen teksten
Word neemt geen verborgen teksten op in het aantal woorden, dus u kunt ervoor kiezen om getallen in verborgen opmaak in te stellen.
- Herhaal eerst de eerste 6 stappen van de methode.
- In plaats van geselecteerde nummers te verwijderen, drukt u op "Ctrl + D" om het vak "Lettertype" te openen.
- Vink het vakje "Verborgen" aan en klik op "OK".
- Herhaal vervolgens stap 8 tot 9 om alle leestekens te vinden.
- Volg op dezelfde manier stap 2 en 3 om leestekens op te maken als verborgen teksten.
- Controleer ten slotte het totale aantal woorden.
Methode 3: Voer Word Macro uit
De volgende macro voert de bovenstaande stappen automatisch uit en retourneert u een berichtvenster met het totale aantal woorden exclusief getallen.
- Druk om te beginnen op "Alt + F11" in Word om de VBA-editor te openen.
- Klik vervolgens op 'Normaal' in de linkerkolom.
- Klik vervolgens op het tabblad "Invoegen" en kies "Module".
- Dubbelklik op de module om deze te openen en plak de onderstaande codes:
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
- Klik op "Uitvoeren".
U ontvangt een berichtvenster waarin staat hoeveel woorden er in uw document staan, zoals hieronder:
Methode 4: getallen in tabellen uitsluiten van het aantal woorden
Hier is een bijzondere noodzaak om getallen in tabellen uit te sluiten van het aantal woorden. De oplossing is om een macro uit te voeren.
- Installeer en voer een macro uit zoals hierboven vermeld in methode 3.
- Vervang dan die macro door deze:
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
Er zal een berichtvenster zijn zoals dit:
Denk vooruit
Aangezien Word niet waterdicht is, moet u preventieve maatregelen nemen voordat het te laat is. De meest nuttige manier is om een back-up van uw documenten te maken, en wel zo vaak mogelijk. Het maken van een back-up van een document kan slechts enkele minuten duren, maar het herstellen ervan kan uren of zelfs dagen in beslag nemen. corrupte docx. Denk dus vooruit om u zowel tijd als geld te besparen.
Auteur Introductie:
Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder Excel-oplossing en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com