En este artículo, le mostraremos 2 formas rápidas y efectivas de contar el número total de páginas y palabras de varios documentos de Word.
De vez en cuando, mientras trabajamos en un documento largo, tendemos a dividir el contenido en varios archivos de Word, como colocar diferentes capítulos en varios documentos. Luego, cuando se trata de contar el número total de páginas y palabras, puede resultar un poco tedioso, ya que hay que abrir cada documento individual y comprobar la información.
Por lo tanto, enumeramos 2 métodos rápidos para ayudarlo a ahorrar su valioso tiempo.
Método 1: comprobar los detalles en la carpeta de archivos
En el texto, daremos un ejemplo en el entorno de Windows 7.
- En primer lugar, organice todos los documentos que se comprobarán en una carpeta de archivos.
- Luego abra la carpeta de archivos y haga clic en el botón "Más opciones" junto a "Cambiar su vista".
- A continuación, haga clic en "Detalles".
- Ahora haga clic derecho en la fila del encabezado y seleccione "Más".
- En el cuadro de diálogo "Elegir detalles", marque las casillas "Páginas" y "Recuento de palabras".
- Luego haga clic en "Aceptar".
Ahora habrá 2 nuevas columnas, exhibiendo las páginas y palabras de cada documento. Solo necesita sumar estos números.
Sin embargo, este método solo le proporciona un número aproximado de palabras en cada archivo. Por lo tanto, para obtener una cifra más precisa, puede elegir el método 2.
Método 2: crear una macro
- Del mismo modo, coloque primero todos los documentos de destino en una misma carpeta.
- Luego abra Word y haga clic en la pestaña "Desarrollador".
- A continuación, haga clic en "Visual Basic" para abrir el editor de VBA. O simplemente puede presionar "Alt + F11".
- Ahora haga clic en "Normal" e "Insertar".
- Luego elija "Módulo".
- Luego haga doble clic en el nuevo módulo y pegue los siguientes códigos en el área de edición:
Sub GetAllPageNumbers()
Dim objWordApplication As Word.Application
Dim nPageNumber As Long
Dim nWordNumber As Long
Dim objFile As Variant
Dim objFileSystem As Object
Dim objFolders As Object
nPageNumber = 0
Set objWordApplication = New Word.Application
Set objFileSystem = CreateObject("scripting.filesystemobject")
Set objFolders = objFileSystem.getfolder("C:\Users\Test\Desktop\files")
For Each objFile In objFolders.Files
' Only process non-hidden files
If (objFile.Attributes And 2) = 0 Then
With objWordApplication
.Documents.Open (objFile)
nPageNumber = nPageNumber + .ActiveDocument.ComputeStatistics(wdStatisticPages)
nWordNumber = nWordNumber + .ActiveDocument.ComputeStatistics(wdStatisticWords)
.ActiveDocument.Close (False)
End With
End If
Next objFile
MsgBox ("pages:" & nPageNumber & " " & "words:" & nWordNumber)
Set objFile = Nothing
Set objFileSystem = Nothing
Set objFolders = Nothing
Set objWordApplication = Nothing
End Sub
- Por último, haga clic en "Ejecutar". Luego, será recibido por un cuadro de mensaje, que indica el número de página y el total de palabras, como a continuación:
Nota: "C: \ Users \ Test \ Desktop \ files" se refiere a la ubicación de la carpeta de archivos.
Cuidado con la corrupción de documentos
Dado que tenemos que lidiar con todo tipo de informes todos los días, es aconsejable hacer una copia de seguridad de algunos archivos críticos en caso de que se corrompan porque la copia de seguridad es siempre una parte vital de la red de seguridad para proteger la integridad de los archivos. Sin embargo, el hecho es que las copias de seguridad también pueden ser víctimas de la corrupción. Y ahí es cuando necesitarás un preeminente herramienta de recuperación de archivos de Word corruptos
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 herramienta de reparación de problemas de datos xlsx y pdf reparar productos de software. Para más información visite www.datanumen.com