No artigo de hoje, gostaríamos de apresentar a você 2 maneiras rápidas de pesquisar documentos do Word com um número específico de páginas.
Geralmente, há um grande número de arquivos armazenados em um diretório. Além do mais, pode haver vários tipos de arquivos. Então, e se você precisar procurar documentos do Word com um número específico de páginas? Ou você esqueceu o nome de um documento, mas se lembra do número total de páginas.
As soluções abaixo irão guiá-lo na busca por documentos do Word com um número específico de páginas.
Método 1: Pesquise no Windows Explorer
- Primeiramente, clique em “Iniciar”.
- Em seguida, clique em “Computador” para abrir o Windows Explorer. Ou se o ícone do explorador de arquivos já estiver na barra de tarefas, basta clicar nele.
- Em seguida, vá para o disco e o local específico onde você mantém todos os arquivos.
- Agora clique com o botão direito no espaço vazio na primeira linha.
- Marque “Tipo” e “Páginas”. Se eles não estiverem visíveis lá, clique em “Mais” na parte inferior do menu.
- Na caixa “Escolher detalhes” aberta, marque as caixas “Páginas” e “Tipo” e clique em “OK”.
- Em seguida, mova o cursor sobre a coluna "Tipo" até que o botão suspenso seja exibido. Clique.
- Marque a caixa "Documento do Microsoft Word". Você pode ver que apenas os documentos do Word estão disponíveis. Em seguida, consulte a coluna “Páginas” para encontrar o documento com o número específico de páginas.
Método 2: Executar Macro do Word
- Em primeiro lugar, pressione “Alt + F11” para abrir o editor VBA no Word.
- Em seguida, clique em “Normal” e clique em “Inserir” na barra de ferramentas.
- Escolha “Módulo” para criar um novo.
- Em seguida, clique duas vezes para abrir o espaço de codificação à direita.
- Cole a seguinte macro lá:
Sub FindWordDocumentWithSpecificPageNumber()
Dim lPageNumber As Long
Dim lSpecificPageNumber As Long
Dim strDocList As String
Dim strDocName As String
Dim objWordApplication As New Word.Application
Dim strFile As String
Dim strFolder As String
strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
lSpecificPageNumber = InputBox("Enter the page number you want to search", "Specific Page Number", "For example:1")
strFile = Dir(strFolder & "*.doc*", vbNormal)
While strFile <> ""
With objWordApplication
.Documents.Open (strFolder & strFile)
lPageNumber = .ActiveDocument.ComputeStatistics(wdStatisticPages)
If lPageNumber = lSpecificPageNumber Then
strDocName = .ActiveDocument.FullName
strDocList = strDocList & strDocName & vbCr
End If
.ActiveDocument.Close
End With
strFile = Dir()
wend
Set objWordApplication = Nothing
If strDocList <> "" Then
Documents.Add Template:="Normal"
ActiveDocument.Range.Text = strDocList
Else
MsgBox ("There is no match document.")
End If
End Sub
- Em seguida, clique no botão "Executar" ou pressione "F5".
- Agora há uma caixa de entrada solicitando. Digite o endereço da pasta na caixa de texto e não se esqueça de adicionar “\” no final da string.
- Clique em “OK” para ir para a próxima etapa.
- Na segunda caixa, insira um número no campo de texto. O número indica o total de páginas do documento de destino. Em seguida, clique em “OK”.
Um documento do Word será aberto, contendo o nome completo do documento de destino.
Abordar a situação do colapso do Word
Geralmente, o Word é uma ferramenta poderosa para processar o trabalho diário. No entanto, de vez em quando, problemas e questões difíceis podem ocorrer. E às vezes, a situação é um pouco severa que você pode acabar palavra danificada. Nesse cenário, você precisará de uma ferramenta de reparo avançada para recuperar seu trabalho.
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 reparação de xls e pdf reparar produtos de software. Para mais informações visite www.datanumen.com