VBA Loop Through PDF Files in Folder

[dannie]

Hello All,

I am trying to loop through files in a folder and searching through the words. I have the searching words and finding what I need there. What I am having trouble with is my code is only finding one file. I appreciate any help. Maybe I putting something out of order...?

Thank you,
Dannie

            folder = "T:\USER\emt\PPA Amend\1"            myfile = Dir(folder & "\" & "*" & ".pdf")
                
                For Each cell In Sheets(1).Range("K2:K" & LR)
                    Do While myfile <> ""
                        Set pddoc = CreateObject("AcroExch.PDDoc")
                            If pddoc.Open(folder & "\" & myfile) Then
                                Set jso = pddoc.getjsobject
                                inum = pddoc.getnumpages
                                If Not jso Is Nothing Then
                                    Count = jso.getpagenumwords(0)
                                    For i = 18 To 18
                                        word = jso.getpagenthword(0, i)
                                            If LCase(word) Like (LCase(Email) & "*") Then
                                                MsgBox word
                                            End If
                                    Next
                                End If
                            End If
                    Loop
                Next

 

[Norie]

Try this.

    folder = "T:\USER\emt\PPA Amend\1"
    myfile = Dir(folder & "\" & "*" & ".pdf")

    For Each cell In Sheets(1).Range("K2:K" & LR)
        Do While myfile <> ""
            Set pddoc = CreateObject("AcroExch.PDDoc")
            If pddoc.Open(folder & "\" & myfile) Then
                Set jso = pddoc.getjsobject
                inum = pddoc.getnumpages
                If Not jso Is Nothing Then
                    Count = jso.getpagenumwords(0)
                    For i = 18 To 18
                        word = jso.getpagenthword(0, i)
                        If LCase(word) Like (LCase(Email) & "*") Then
                            MsgBox word
                        End If
                    Next
                End If
            End If
            myfile = Dir
        Loop
    Next cell

 

[dannie]

Thanks Norie. This works but instead of going to the next file in the folder, it jumps to the tenth file and then the 100th. Is there a way for it to go in order? Each file is named the same with a different integer at the end of the name. There are about 1500 files.
Thanks.

 

[Norie]

The code should go through all the files in the folder but unfortunately there's no way to determine in which order it will do that.

If you do have some sort of naming pattern/logic then you could possibly do something with that if you require things to happen in a particular order.

Can you expand on how the files are named?

 

[daverunt]

Hi,

I did something here for numbered files that may be suitable...or not. Worth a look.

http://www.mrexcel.com/forum/excel-...ations-open-all-workbooks-specific-order.html