I dagens artikel presenterar vi dig 4 effektiva sätt att utesluta nummer i ditt Word-dokument från ordräkningsstatistik.
Generellt räknar Word alla typer av texter, vare sig det är ord eller siffror. Men då och då kommer vi sannolikt att göra ett ordräkning exklusive vissa element, till exempel siffror. Därför är vi glada att kunna visa dig fyra metoder för att uppfylla ett sådant krav.
Innan allt måste du säkerhetskopiera måldokumentet och använda alla metoder nedan på din kopia.
Metod 1: Ta bort alla nummer
- Först öppnar du kopieringsfilen och klickar på rullgardinsmenyn på "Sök" under fliken "Hem".
- För det andra väljer du "Avancerad sökning" för att öppna dialogrutan "Sök och ersätt".
- Skriv sedan in ”^ #” i textrutan ”Hitta vad”. Om du inte kommer ihåg den här strängen, placera markören vid textrutan "Hitta vad" och klicka på "Mer" och klicka sedan på "Special" -knappen.
- Välj sedan ”Alla siffror”.
- Klicka nu på "Find In" och välj "Main Document".
- Du kommer att hitta att alla nummer är i urvalet.
- Tryck på “Radera”.
- När siffrorna är borta kan du märka att Word anser några skiljetecken som ord nu. Så du måste ta bort alla skiljetecken också. Öppna rutan "Sök och ersätt" igen. Den här gången inmatad “[,.;: '”” ”/ \! \ * \? \\]”(Utan citattecken) i textrutan” Hitta vad ”.
- Och kom ihåg att markera rutan "Använd jokertecken".
- Upprepa steg 5 för att hitta alla skiljetecken.
- Ta bort dem.
- Slutligen klickar du på "Granska" och sedan på "Antal ord" för att se det totala antalet texter.
Metod 2: Formatera alla nummer som dolda texter
Word innehåller inte dolda texter i antal ord, så du kan välja att ställa in nummer i dold formatering.
- Först och främst upprepar du de första 6 stegen i metoden.
- Istället för att radera valda nummer, tryck på "Ctrl + D" för att öppna "Font" -rutan.
- Markera rutan "Dold" och klicka på "OK".
- Nästa upprepning från steg 8 till 9 för att hitta alla skiljetecken.
- Följ även steg 2 och 3 för att formatera skiljetecken som dolda texter.
- Kontrollera slutligen de totala orden.
Metod 3: Kör Word Macro
Följande makro kommer att göra ovanstående steg automatiskt och returnera en meddelandefält som innehåller det totala antalet ord exklusive siffror.
- Till att börja med trycker du på “Alt + F11” i Word för att öppna VBA-redigeraren.
- Klicka sedan på “Normal” i den vänstra kolumnen.
- Klicka sedan på fliken "Infoga" och välj "Modul".
- Dubbelklicka på modulen för att öppna den och klistra in nedanstående koder:
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
- Klicka på "Kör".
Du kommer att få en meddelandefält som berättar hur många ord som finns i ditt dokument, till exempel:
Metod 4: Uteslut siffror i tabeller från ordräkning
Här är ett särskilt behov av att utesluta siffror i tabeller från ordräkning. Lösningen är att köra ett makro.
- Installera och kör ett makro som anges ovan i metod 3.
- Byt sedan ut det här makrot med det här:
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
Det kommer att finnas en meddelanderuta som den här:
Tänk i förväg
Med tanke på att Word inte är idiotsäkert måste du vidta förebyggande åtgärder innan allt är för sent. Det mest användbara sättet är att säkerhetskopiera dina dokument och göra så många säkerhetskopior som möjligt. Det kan ta bara några minuter att säkerhetskopiera ett dokument, men timmar, till och med dagar, att återställa ett. korrupt docx. Så tänk framåt för att spara både tid och pengar.
Författarintroduktion:
Vera Chen är en dataåterställningsexpert i DataNumen, Inc., som är världsledande inom teknik för återställning av data, inklusive Excel-fix och pdf reparera programvaruprodukter. För mer information besök www.datanumen.com