4 modi per escludere i numeri nel documento di Word dalle statistiche del conteggio delle parole

Nell'articolo di oggi, ti presenteremo 4 modi efficaci per escludere i numeri nel tuo documento Word dalle statistiche sul conteggio delle parole.

Generalmente, Word conta tutti i tipi di testi, siano essi parole o numeri. Ma, di tanto in tanto, è probabile che contiamo le parole escludendo alcuni elementi, come i numeri. Pertanto, siamo lieti di mostrarvi 4 metodi per soddisfare tale requisito.

Prima di tutto, è necessario eseguire un backup del documento di destinazione e applicare tutti i metodi seguenti alla copia.

Metodo 1: Elimina tutti i numeri

1. Innanzitutto, apri il file di copia e fai clic sul pulsante a discesa su "Trova" nella scheda "Home".
2. In secondo luogo, scegli "Ricerca avanzata" per aprire la finestra di dialogo "Trova e sostituisci".
3. Quindi inserisci "^ #" nella casella di testo "Trova cosa". Se non ricordi questa stringa, posiziona il cursore sulla casella di testo "Trova cosa" e fai clic su "Altro", quindi fai clic sul pulsante "Speciale".
4. Quindi selezionare "Qualsiasi cifra".
5. Ora fai clic su "Trova in" e scegli "Documento principale".
6. Troverete tutti i numeri sono in selezione.
7. Premere "Elimina".
8. Una volta che i numeri sono spariti, puoi notare che Word considera ora alcuni segni di punteggiatura come parole. Quindi è necessario rimuovere anche tutti i segni di punteggiatura. Apri di nuovo la casella "Trova e sostituisci". Questa volta inserisci "[,.;:'”””/\!\*\?\\]" (senza virgolette) nella casella di testo "Trova".
9. E ricorda di selezionare la casella "Usa caratteri jolly".
10. Ripetere il passaggio 5 per trovare tutti i segni di punteggiatura.
11. Eliminali.
12. Infine, fai clic su "Revisiona", quindi su "Conteggio parole" per visualizzare il numero totale di testi.

Metodo 2: formatta tutti i numeri come testi nascosti

Word non include i testi nascosti nel conteggio delle parole, quindi puoi scegliere di impostare i numeri nella formattazione nascosta.

1. Prima di tutto, ripeti i primi 6 passaggi del metodo.
2. Invece di eliminare i numeri selezionati, premi "Ctrl + D" per aprire la casella "Font".
3. Seleziona la casella "Nascosto" e fai clic su "OK".
4. Poi ripeti dal passaggio 8 al 9 per trovare tutti i segni di punteggiatura.
5. Allo stesso modo, segui i passaggi 2 e 3 per formattare i segni di punteggiatura come testi nascosti.
6. Infine, controlla le parole totali.

Metodo 3: eseguire la macro di Word

La seguente macro eseguirà automaticamente i passaggi precedenti e ti restituirà una finestra di messaggio, contenente il numero totale di parole esclusi i numeri.

1. Per cominciare, premi "Alt + F11" in Word per aprire l'editor VBA.
2. Quindi fai clic su "Normale" nella colonna di sinistra.
3. Quindi fare clic sulla scheda "Inserisci" e scegliere "Modulo".
4. Fare doppio clic sul modulo per aprirlo e incollare i seguenti codici:

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. Fare clic su "Esegui".

Riceverai una finestra di messaggio, che ti dice quante parole ci sono nel tuo documento, come qui sotto:

Metodo 4: escludere i numeri nelle tabelle dal conteggio delle parole

Ecco una particolare esigenza di escludere i numeri nelle tabelle dal conteggio delle parole. La soluzione è eseguire una macro.

1. Installa ed esegui una macro come indicato sopra nel metodo 3.
2. Quindi sostituisci quella macro con questa:

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

Ci sarà una finestra di messaggio come questa:

Pensa al futuro

Dato che Word non è infallibile, è necessario adottare misure preventive prima che sia troppo tardi. Il modo più utile è eseguire il backup dei documenti e farlo il più spesso possibile. Potrebbero bastare pochi minuti per eseguire il backup di un documento, ma ore o addirittura giorni per ripristinarlo. corrotto docx. Quindi pensa in anticipo per risparmiare tempo e denaro.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui Correzione di Excel and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com