Neste artigo, mostraremos 2 maneiras rápidas e eficazes de contar o número total de páginas e palavras para vários documentos do Word.
De vez em quando, ao trabalhar em um documento longo, tendemos a dividir o conteúdo em vários arquivos do Word, como colocar capítulos diferentes em vários documentos. Então, na hora de contar o número total de páginas e palavras, pode ser um pouco cansativo, pois você precisa abrir cada documento individualmente e verificar as informações.
Portanto, listamos 2 métodos rápidos para ajudar a economizar seu precioso tempo.
Método 1: Verifique os detalhes na pasta de arquivos
No texto, daremos um exemplo no ambiente do Windows 7.
- Primeiro, organize todos os documentos a serem verificados em uma pasta de arquivo.
- Em seguida, abra a pasta de arquivos e clique no botão “Mais opções” ao lado de “Alterar sua visualização”.
- Em seguida, clique em “Detalhes”.
- Agora clique com o botão direito do mouse na linha do cabeçalho e escolha “Mais”.
- Na caixa de diálogo "Escolher detalhes", marque as caixas "Páginas" e "Contagem de palavras".
- Em seguida, clique em “OK”.
Agora serão 2 novas colunas, exibindo as páginas e palavras de cada documento. Você só precisa somar esses números.
No entanto, esse método fornece apenas um número aproximado de palavras em cada arquivo. Assim, para obter uma figura mais precisa, você pode escolher o método 2.
Método 2: Criar uma Macro
- Da mesma forma, coloque todos os documentos de destino em uma única pasta.
- Em seguida, abra o Word e clique na guia "Desenvolvedor".
- Em seguida, clique em “Visual Basic” para abrir o editor VBA. Ou você pode simplesmente pressionar “Alt+F11”.
- Agora clique em “Normal” e “Inserir”.
- Em seguida, escolha “Módulo”.
- Em seguida, clique duas vezes no novo módulo e cole os seguintes códigos na área de edição:
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 fim, clique em “Executar”. Em seguida, você será recebido por uma caixa de mensagem, indicando o número da página e o total de palavras, conforme abaixo:
Nota: O “C:\Users\Test\Desktop\files” refere-se ao local da pasta do arquivo.
Cuidado com a Corrupção de Documentos
Como temos que lidar com todos os tipos de relatórios todos os dias, é aconselhável fazer backup de alguns arquivos críticos para o caso de serem corrompidos, porque o backup é sempre uma parte vital da rede de segurança para proteger a integridade dos arquivos. No entanto, o fato é que os backups também podem falhar, vítimas de corrupção. E é aí que você vai precisar de um proeminente ferramenta de recuperação de arquivo corrompido do Word
Introdução do autor:
Vera Chen é especialista em recuperação de dados em DataNumen, Inc., líder mundial em tecnologias de recuperação de dados, incluindo ferramenta de reparo de problemas de dados xlsx e pdf reparar produtos de software. Para mais informações visite www.datanumen.com