4 Möglichkeiten, Zahlen in Ihrem Word-Dokument von der Word Count-Statistik auszuschließen

In dem heutigen Artikel werden wir Ihnen 4 effektive Möglichkeiten vorstellen, wie Sie Zahlen in Ihrem Word-Dokument von der Wortzahlstatistik ausschließen können.

Im Allgemeinen zählt Word alle Arten von Texten, seien es Wörter oder Zahlen. Aber hin und wieder werden wir wahrscheinlich eine Wortzählung durchführen, die bestimmte Elemente wie Zahlen ausschließt. Daher freuen wir uns, Ihnen 4 Methoden zu zeigen, um eine solche Anforderung zu erfüllen.

Vor allem müssen Sie ein Backup von erstellen tarHolen Sie sich ein Dokument und führen Sie alle unten aufgeführten Methoden auf Ihrer Kopie aus.

Methode 1: Alle Zahlen löschen

1. Öffnen Sie zunächst die Kopierdatei und klicken Sie auf die Dropdown-Schaltfläche unter "Suchen" auf der Registerkarte "Startseite".
2. Zweitens wählen Sie "Erweiterte Suche", um das Dialogfeld "Suchen und Ersetzen" zu öffnen.
3. Geben Sie anschließend "^ #" in das Textfeld "Suchen nach" ein. Wenn Sie sich nicht an diese Zeichenfolge erinnern können, setzen Sie den Cursor auf das Textfeld „Find what“ und klicken Sie auf „More“. Klicken Sie dann auf die Schaltfläche „Special“.
4. Wählen Sie dann "Beliebige Ziffer".
5. Klicken Sie nun auf "Suchen in" und wählen Sie "Hauptdokument".
6. Sie finden alle Nummern in Auswahl.
7. Drücken Sie "Löschen".
8. Sobald die Zahlen verschwunden sind, können Sie feststellen, dass Word einige Satzzeichen jetzt als Wörter betrachtet. Sie müssen also auch alle Satzzeichen entfernen. Öffnen Sie das Feld "Suchen und Ersetzen" erneut. Diesmal Eingabe “[,.;: '”” ”/ \! \ * \? \\]”(Ohne Anführungszeichen) im Textfeld„ Find what “.
9. Denken Sie auch daran, das Kontrollkästchen "Platzhalter verwenden" zu aktivieren.
10. Wiederholen Sie Schritt 5, um alle Satzzeichen zu finden.
11. Lösche sie.
12. Klicken Sie abschließend auf "Überprüfen" und dann auf "Wortanzahl", um die Gesamtzahl der Texte anzuzeigen.

Methode 2: Formatieren Sie alle Zahlen als versteckte Texte

Word enthält keine versteckten Texte in der Wortanzahl, daher können Sie Zahlen in versteckter Formatierung festlegen.

1. Wiederholen Sie zunächst die ersten 6 Schritte der Methode.
2. Anstatt ausgewählte Nummern zu löschen, drücken Sie "Strg + D", um das Feld "Schriftart" zu öffnen.
3. Aktivieren Sie das Kontrollkästchen "Versteckt" und klicken Sie auf "OK".
4. Wiederholen Sie die Schritte 8 bis 9, um alle Satzzeichen zu finden.
5. Befolgen Sie in ähnlicher Weise die Schritte 2 und 3, um Satzzeichen als versteckte Texte zu formatieren.
6. Überprüfen Sie abschließend die Gesamtzahl der Wörter.

Methode 3: Führen Sie das Word-Makro aus

Das folgende Makro führt die obigen Schritte automatisch aus und gibt Ihnen ein Meldungsfeld zurück, das die Gesamtzahl der Wörter ohne Zahlen enthält.

1. Drücken Sie zunächst in Word auf „Alt + F11“, um den VBA-Editor zu öffnen.
2. Klicken Sie anschließend in der linken Spalte auf "Normal".
3. Klicken Sie dann auf die Registerkarte "Einfügen" und wählen Sie "Modul".
4. Doppelklicken Sie auf das Modul, um es zu öffnen und die folgenden Codes einzufügen:

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

5. Klicken Sie auf "Ausführen".

Sie erhalten ein Meldungsfeld, in dem Sie erfahren, wie viele Wörter sich in Ihrem Dokument befinden, z. B. unten:

Methode 4: Zahlen in Tabellen von der Wortanzahl ausschließen

Hier besteht eine besondere Notwendigkeit, Zahlen in Tabellen von der Wortanzahl auszuschließen. Die Lösung besteht darin, ein Makro auszuführen.

1. Installieren Sie ein Makro und führen Sie es aus, wie oben in Methode 3 angegeben.
2. Ersetzen Sie dann dieses Makro durch dieses:

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

Es wird ein Meldungsfeld wie das folgende angezeigt:

Denke voraus

Angesichts der Tatsache, dass Word nicht narrensicher ist, müssen Sie vorbeugende Maßnahmen ergreifen, bevor alles zu spät ist. Sieost Ein nützlicher Weg ist es, Ihre Dokumente zu sichern und sie so gut wie möglich zu sichern. Das Sichern eines Dokuments kann nur wenige Minuten dauern, das Wiederherstellen eines Dokuments jedoch Stunden oder sogar Tage beschädigte docx. Denken Sie also voraus, um Zeit und Geld zu sparen.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich Excel-Fix , pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX