3 formas de obtener estadísticas de recuento de palabras relacionadas con cuadros de texto, notas al pie y notas al final en su documento

En el artículo de hoy, hay 3 formas rápidas de obtener estadísticas de recuento de palabras relacionadas con cuadros de texto, notas al pie y notas al final de su documento.

No es difícil obtener el recuento total de palabras en un documento. Pero si desea obtener la cantidad de palabras de diferentes tipos de textos, se requerirán más operaciones. A continuación se muestran 3 métodos. Siga leyendo para ver qué puede usar. 

Método 1: contar palabras que incluyan textos de cuadros de texto, notas al pie y notas al final

De forma predeterminada, Word cuenta todas las palabras que aparecen en el documento, incluidos los textos en los cuadros de texto y las palabras de notas al pie y notas al final también.

1. En primer lugar, diríjase a la barra de estado y haga clic en "Palabras" para abrir el cuadro "Recuento de palabras".
2. Allí verá todo tipo de estadísticas. Asegúrese de haber marcado la casilla "Incluir cuadros de texto, notas al pie y notas al final".
3. Luego haga clic en "Cerrar".
4. Si no puede encontrar el comando "Palabras" en la barra de estado, haga clic derecho allí.
5. A continuación, verifique el "Recuento de palabras".

Método 2: excluir textos de cuadros de texto, notas al pie y notas al final del recuento de palabras

Esto es opuesto al método 1. Por lo tanto, solo necesita desmarcar la casilla "Incluir cuadros de texto, notas al pie y notas al final".

Método 3: Ejecute la macro de Word para obtener un recuento de palabras por separado de los cuadros de texto, notas al pie y notas al final

1. En primer lugar, active la casilla "Recuento de palabras" de la forma indicada en el método 1 y asegúrese de que la casilla de opción esté marcada.
2. A continuación, presione "Alt + F11" para abrir el editor de VBA.
3. Luego inserte un nuevo módulo en el proyecto "Normal" haciendo clic en "Normal" primero.
4. Y haga clic en "Insertar" a continuación.
5. Elija "Módulo" luego.
6. Haga doble clic en el módulo para abrir el área de codificación y pegue allí los siguientes códigos:

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. Por último, haga clic en el botón "Ejecutar".

Si no hay un cuadro de texto, una nota al pie o una nota al final, recibirá un cuadro de mensaje como este:

Simplemente haga clic en "Aceptar" para continuar. Luego verá otro cuadro con todos los detalles del recuento de palabras.

Obtenga una herramienta de recuperación

Dado que Word puede colapsar repentinamente, es recomendable obtener un producto de reparación avanzado para hacer el trabajo de reparación. Una herramienta de este tipo puede ser un gran ahorro para palabra corrupta. Por lo tanto, aproveche el tiempo para conseguir uno lo antes posible.

Introducción del autor:

Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo arreglar xls y pdf reparar productos de software. Para más información visite www.datanumen.com