Como contar o número de páginas em arquivos PDF utilizando o Excel?
Se tiver vários ficheiros PDF numa pasta e precisar de listar os respetivos nomes juntamente com o número de páginas no Excel, pode fazê-lo facilmente com uma macro VBA simples. Este tutorial orienta-o passo a passo para extrair e apresentar rapidamente os nomes dos ficheiros PDF e as respetivas contagens de páginas numa folha de cálculo do Excel.
Apresentar os nomes dos Arquivos PDF e os números de página no Excel com VBA
Apresentar os nomes dos Arquivos PDF e os números de página no Excel com VBA
O código VBA seguinte permite-lhe listar todos os nomes dos ficheiros PDF e os respetivos números de página numa folha de cálculo. Siga estes passos:
1. Abra uma folha de cálculo onde pretende obter os nomes dos ficheiros PDF e os respetivos números de página.
2. Mantenha premidas as teclas «ALT» + "F11" para abrir a janela «Microsoft Visual Basic for Applications».
3. Clique em «Inserir» > «Módulo» e cole a macro seguinte na janela do Módulo.
Código VBA: Listar todos os nomes dos Arquivos PDF e os números de página na folha de cálculo:
Sub Test()
Dim I As Long
Dim xRg As Range
Dim xStr As String
Dim xFd As FileDialog
Dim xFdItem As Variant
Dim xFileName As String
Dim xFileNum As Long
Dim RegExp As Object
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
If xFd.Show = -1 Then
xFdItem = xFd.SelectedItems(1) & Application.PathSeparator
xFileName = Dir(xFdItem & "*.pdf", vbDirectory)
Set xRg = Range("A1")
Range("A:B").ClearContents
Range("A1:B1").Font.Bold = True
xRg = "File Name"
xRg.Offset(0, 1) = "Pages"
I = 2
xStr = ""
Do While xFileName <> ""
Cells(I, 1) = xFileName
Set RegExp = CreateObject("VBscript.RegExp")
RegExp.Global = True
RegExp.Pattern = "/Type\s*/Page[^s]"
xFileNum = FreeFile
Open (xFdItem & xFileName) For Binary As #xFileNum
xStr = Space(LOF(xFileNum))
Get #xFileNum, , xStr
Close #xFileNum
Cells(I, 2) = RegExp.Execute(xStr).Count
I = I + 1
xFileName = Dir
Loop
Columns("A:B").AutoFit
End If
End Sub
4. Após colar o código, prima a tecla "F5" para executar a macro — abrir-se-á uma janela «Procurar». Selecione a pasta que contém os ficheiros PDF cujos nomes e números de página pretende listar, conforme ilustrado na imagem:
5. Em seguida, clique no botão «OK»; todos os nomes dos ficheiros PDF e os respetivos números de página serão listados na folha ativa, conforme ilustrado na imagem:
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos