How to delete PDF files in perticular folder ,files, which's body/ content contain/have some specific words?

[chirag050675]

Dear All Experts,

I already search for code on web but all codes construct & delete files based on search for specific character in file name & extensions.

But my requirement of VBA code to delete all .PDF file not on based of file name but file's body/content have/contain some specific word.

files resides in particular single folder or may be subfolder also.

May be search or find for that word with wild card can help to delete that file if that word found in that file.

Hope there are help available in this great platform & will be appreciated well.

Regards,

Chirag Raval

 

[chirag050675]

Dear Sirs @Kenneth Hobson,

I have 1,20,000 .pdf files in folder, mixed.
Daily download .pdf files for whole regions for generated invoices. mail also have transporter's lorry receipts .pdf with it.
but can not determine based on file name that it is invoice (required file) or lorry receipt (LR)(Not required file)
Means, do not provide any clue in file name that we can consider that it is downloadable or not.
Target just want to haver invoice copies in folder.
require to Search - Find in - within every .pdf files for word "Consignee Copy"
If file contain word "consignee copy" then delete that file
obviously I can distribute files with about 10,000 files in one folder to make task easier for target that folder
& after process complete, I can move balanced required file in another folder & transfer next 10,000 files for process.
Just It.

Can Anyone help here? Just Require VBA code?

Regards,

Chirag Raval

 

[chirag050675]

Dear Sirs,

Below link I get, but not understand things for search word in pdf file.

https://stackoverflow.com/questions...r-text-between-two-strings-in-a-pdf-file?rq=1

http://khkonsulting.com/2014/04/extract-pdf-pages-based-content/

https://acrobatusers.com/forum/gene...rch-text-pdf-vba-only-adobe-reader-installed/

hope there are some way found here.

Regards,

Chirag Raval

 

[chirag050675]

Dear All Experts,

If pdf content is selecteble text, (not as scanned image).
VBA can do its job.

Is VBA is only for office application ? & Can't do
Anything on Pdf?

If VBA can do then How?..

I am waiting eagerly..due to files fallen in folder daily in some quantity.
I am be very thankful for this forum's environment and people's
if you can little help.

Regards,

Chirag Raval.

 

[chirag050675]

Dear All Respected Experts,

Can any one focus toward, this?

Regard,

Chirag Raval

 

[Fennek]

Hello, it is a interesting topic and, unfortunately, no reply. My trials with Excel failed, but MS Word can open PDF directly. No additional software or "createObject" is needed. So a Word-VBA code can search for the target-string and delete the file, if needed. For so many files you will need a long time. regards

 

[Fennek]

Hi, the info fom another forum: https://pdfgrep.org/ regards

 

[chirag050675]

Dear Sir @Fennek,

Thank god some one can help me.
you are only one who lighten in the darkness, thank you.
I download file from https://pdfgrep.org/index.html , & i already some study here for its more
https://gitlab.com/pdfgrep/pdfgrep its seems it have tremendous power but use require more knowledge to use it properly
& my bad luck i don't have it.

Can you help for WORD (DOC) VBA that work TO complete this task?

Hope there are some way there.

Again Thanks

Regards,

Chirag Raval

 

[Fennek]

Hi,

it needs MS Word 2013 or later:

 Const SWd As String = "Consignee Copy"

Sub F_en()
Dim Doc As Document

With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = "c:\temp"
    If .Show Then Pf = .SelectedItems(1) & "\"
'    Debug.Print Pf
End With

f = Dir(Pf & "*.pdf")

Do While Len(f)
    Set Doc = Documents.Open(Pf & f)
        With Doc.Content.Find
            .Execute SWd, True, True, falsw
            If .Found Then
                Debug.Print f
                SetAttr Pf & f, vbNormal
            Else
                SetAttr Pf & f, vbReadOnly
            End If
        End With
    Doc.Close 0
f = Dir
Loop

End Sub

You can check it, later all files with Attribute "normal" will be deleted, all "ReadOnly" will remain.

Report about the result.

(Of course: no garanties or warentees)

regards

 

[chirag050675]

Dear Sir @Fennek,

Thank you. I will be check & revert soon.

Regards,
Chirag Raval