Breaking News: Grepper is joining You.com. Read the official announcement!

windows 10 see how many pages pdf has explorer

Fantastic Fowl answered on December 28, 2021 Popularity 2/10 Helpfulness 1/10

answer windows 10 see how many pages pdf has explorer

windows 10 see how many pages pdf has explorer

Comment

'Visual Basic in Excel

Sub Test()
    Dim MyPath As String, MyFile As String
    Dim i As Long
    MyPath = "C:\Users\User\Desktop\TEMP\halikut invitations"
    MyFile = Dir(MyPath & Application.PathSeparator & "*.pdf", vbDirectory)
    Range("A:B").ClearContents
    Range("A1") = "File Name": Range("B1") = "Pages"
    Range("A1:B1").Font.Bold = True
    i = 1
    Do While MyFile <> ""
        i = i + 1
        Cells(i, 1) = MyFile
        Cells(i, 2) = GetPageNum(MyPath & Application.PathSeparator & MyFile)
        MyFile = Dir
    Loop
    Columns("A:B").AutoFit
    MsgBox "Total of " & i - 1 & " PDF files have been found" & vbCrLf _
           & " File names and corresponding count of pages have been written on " _
           & ActiveSheet.Name, vbInformation, "Report..."
End Sub
'
Function GetPageNum(PDF_File As String)
    'Haluk 19/10/2008
    Dim FileNum As Long
    Dim strRetVal As String
    Dim RegExp
    Set RegExp = CreateObject("VBscript.RegExp")
    RegExp.Global = True
    RegExp.Pattern = "/Type\s*/Page[^s]"
    FileNum = FreeFile
    Open PDF_File For Binary As #FileNum
        strRetVal = Space(LOF(FileNum))
        Get #FileNum, , strRetVal
    Close #FileNum
    GetPageNum = RegExp.Execute(strRetVal).Count
End Function

Popularity 2/10 Helpfulness 1/10 Language whatever

Source: Grepper

Tags: explorer pdf whatever windows-10

Link to this answer
Share Copy Link

Contributed on Dec 28 2021

Fantastic Fowl

0 Answers Avg Quality 2/10

windows 10 see how many pages pdf has explorer

Contents

More Related Answers

windows 10 see how many pages pdf has explorer

Grepper

Documentation

Social

Legal

Contact

Oops, You will need to install Grepper and log-in to perform this action.