3 modi per ottenere statistiche sul conteggio delle parole relative a caselle di testo, note a piè di pagina e note di chiusura nel documento

Nell'articolo di oggi, ci sono 3 modi rapidi per ottenere statistiche sul conteggio delle parole relative a caselle di testo, note a piè di pagina e note di chiusura nel documento.

Non è difficile ottenere il conteggio totale delle parole in un documento. Ma se vuoi ottenere il numero di parole di diversi tipi di testo, saranno necessarie più operazioni. Di seguito sono riportati 3 metodi. Continua a leggere per vedere cosa puoi usare. 

Metodo 1: contare le parole inclusi i testi da caselle di testo, note a piè di pagina e note di chiusura

Per impostazione predefinita, Word conta tutte le parole visualizzate nel documento, inclusi i testi nelle caselle di testo e anche le parole delle note a piè di pagina e di chiusura.

1. Innanzitutto, vai alla barra di stato e fai clic su "Parole" per aprire la finestra "Conteggio parole".
2. Lì vedrai tutti i tipi di statistiche. Assicurati di aver selezionato la casella "Includi caselle di testo, note a piè di pagina e note di chiusura".
3. Quindi fare clic su "Chiudi".
4. Se non riesci a trovare il comando "Parole" sulla barra di stato, fai clic destro lì.
5. Quindi controlla il "Conteggio parole".

Metodo 2: escludere i testi da caselle di testo, note a piè di pagina e note di chiusura dal conteggio parole

Questo è l'opposto del metodo 1. Quindi devi solo deselezionare la casella "Includi caselle di testo, note a piè di pagina e note di chiusura".

Metodo 3: eseguire la macro di Word per ottenere un conteggio separato delle parole da caselle di testo, note a piè di pagina e note di chiusura

1. Innanzitutto, attiva la casella "Conteggio parole" utilizzando il metodo 1 e assicurati che la casella delle opzioni sia selezionata.
2. Quindi premi "Alt + F11" per aprire l'editor VBA.
3. Quindi inserire un nuovo modulo nel progetto "Normal" facendo prima clic su "Normal".
4. E fai clic su "Inserisci" successivo.
5. Scegli "Modulo" quindi.
6. Fare doppio clic sul modulo per aprire l'area di codifica e incollarvi i seguenti codici:

Sub SeparateCountNumberOfTextboxFootnoteEndnote()
  Dim lTextboxWords As Long
  Dim lTextboxChars As Long
  Dim lDocumntWords As Long
  Dim lDocumntChars As Long
  Dim objTextboxShape As Shape
  Dim objTemp As Dialog
  Dim bDone As Boolean
  Dim objRange As Range
  Dim lFootnoteWords As Long
  Dim lFootnoteChars As Long
  Dim lEndnoteWords As Long
  Dim lEndnoteChars As Long
 
  Application.ScreenUpdating = False

 Do
   bDone = True
   For Each objTextboxShape In ActiveDocument.Shapes
     If objTextboxShape.Type = msoGroup Then
       objTextboxShape.Ungroup
       bDone = False
     End If
   Next objTextboxShape
 Loop Until bDone

 '  Count the words and characters in the whole document.
 Selection.HomeKey Unit:=wdStory
 Set objTemp = Dialogs(wdDialogToolsWordCount)
   objTemp.Update
   objTemp.Execute
   lDocumntWords = objTemp.Words
   lDocumntChars = objTemp.Characters
 
 With ActiveDocument
 '  Count the words and characters in all textboxes.
   lTextboxWords = 0
   lTextboxChars = 0
   If ActiveDocument.Shapes.Count > 0 Then
     For Each objTextboxShape In .Shapes
       objTextboxShape.Select
       objTemp.Execute
       lTextboxWords = lTextboxWords + objTemp.Words
       lTextboxChars = lTextboxChars + objTemp.Characters
     Next objTextboxShape
   Else
     MsgBox ("There is no text box in this document")
   End If

   '  Count the words and characters in all footnotes.
   lFootnoteWords = 0
   lFootnoteChars = 0
   If ActiveDocument.Footnotes.Count > 0 Then
     For Each objRange In .StoryRanges
       If objRange.StoryType = wdFootnotesStory Then
         objRange.Select
         objTemp.Execute
         lFootnoteWords = lFootnoteWords + objTemp.Words
         lFootnoteChars = lFootnoteChars + objTemp.Characters
       End If
     Next objRange
   Else
     MsgBox ("There is no footnote in this document")
   End If

   '  Count the words and characters in all endnotes. 
   lEndnoteWords = 0
   lEndnoteChars = 0
   If ActiveDocument.Endnotes.Count > 0 Then
     For Each objRange In .StoryRanges
       If objRange.StoryType = wdEndnotesStory Then
         objRange.Select
         objTemp.Execute
         lEndnoteWords = lEndnoteWords + objTemp.Words
         lEndnoteChars = lEndnoteChars + objTemp.Characters
       End If
     Next objRange
   Else
     MsgBox ("There is no Endnote in this document")
   End If
 End With
 
 Application.ScreenUpdating = True

 MsgBox (" In this document there are totally" & vbCr _
   & Str(lDocumntWords) & " word(s) and" & Str(lDocumntChars) & " characters" & vbCr & vbCr _
   & "Including:" & vbCr _
   & Str(ActiveDocument.Shapes.Count) & " textboxes contain(s)" & vbCr _
   & Str(lTextboxWords) & " word(s)," & Str(lTextboxChars) & " characters" & vbCr & vbCr _
   & Str(ActiveDocument.Footnotes.Count) & " footnotes contain(s)" & vbCr _
   & Str(lFootnoteWords) & " word(s)," & Str(lFootnoteChars) & " characters" & vbCr & vbCr _
   & Str(ActiveDocument.Endnotes.Count) & " Endnotes contain(s)" & vbCr _
   & Str(lEndnoteWords) & " word(s)," & Str(lEndnoteChars) & " characters")
End Sub

7. Infine, fai clic sul pulsante "Esegui".

Se non ci sono caselle di testo, note a piè di pagina o note di chiusura, riceverai una finestra di messaggio come questa:

Basta fare clic su "OK" per procedere. Quindi vedrai un'altra casella, che elenca tutti i dettagli del conteggio delle parole.

Ottieni uno strumento di recupero

Poiché Word può crollare all'improvviso, è consigliabile ottenere un prodotto di riparazione avanzato per eseguire il lavoro di riparazione. Un tale strumento può essere un grande risparmio per Parola corrotta. Pertanto, prendi il tempo per ottenerne uno il prima possibile.

Introduzione dell'autore:

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