Adobe Reader 10.0.1

[lisehu]

Application: Adobe Reader 10.0.1

I need to save multiple PDF files to text files. All the PDF files are reside in c:\data folder.

Qn: 1) The script below is saving only one PDF file to text file.

How do I save mulitple PDF file using While loop?

this is my script:

;

; Runs Adobe Reader version 10.0.1

;

;Runs PDF Application

ShellExecute ("AcroRd32.exe")

;WinExists("Adobe Reader")

; Wait for Adobe Reader to become active

WinWaitActive("Adobe Reader","","")

Sleep(1000)

; Open File

Send("^o") ;File Open using Control o

Send("!n") ;Set cursor on File name path

Sleep(500) ;Wait for 0.5 sec

Send("C:\Data\outfile1") ;Enter outfile1.pdf full directory path

Sleep(1000)

Send("!o") ;Open outfile1.pdf

; Wait for Adobe Reader to become active

WinWaitActive("outfile1.pdf - Adobe Reader","","")

Send("!f") ;File Open

Send("a") ;Save As

Send("x") ;Text

; Wait for Save As Window to become active

WinWaitActive("Save As","","")

Send("!s") ;Save

; Wait for Adobe Reader to become active

WinWaitActive("outfile1.pdf - Adobe Reader","","")

Send("^q") ;Close Adobe Reader

;Wait for the window to not exist

WinWaitClose("outfile1.pdf - Adobe Reader","","")

[November]

Check WHILE and WEND commands.

Cheers

[hannes08]

Hi lisehu,

you can use ShellExecute() to open a PDF file directly.( Shellexecute("C:\data\outfile1.pdf") )

Use FileFindFirstFile, FileFindNextFile OR _FileListToArray to have a list of pdf file ready.

As November already said, you'll need loops (WHILE ... WEND, FOR ... NEXT) to open all of the documents in one script.

[wakillon]

Or you can use some PDF to TXT command line tools...

[lisehu]

Hi Hannes,

I'm not too good at scrpting. Can you teach me how to do it?

Thanks!

Lisehu

Hi lisehu,

you can use ShellExecute() to open a PDF file directly.( Shellexecute("C:\data\outfile1.pdf") )

Use FileFindFirstFile, FileFindNextFile OR _FileListToArray to have a list of pdf file ready.

As November already said, you'll need loops (WHILE ... WEND, FOR ... NEXT) to open all of the documents in one script.

[hannes08]

$a_pdflist = _FileListToArray("C:\Data", "*.pdf")

For $i = 1 To $a_pdflist[0]
    ShellExecute("C:\Data\" & $a_pdflist[$i])
    WinWaitActive($a_pdflist[$i] & " - Adobe Reader") 

    Send("!f") ;File Open
    Send("a") ;Save As
    Send("x") ;Text

    ; Wait for Save As Window to become active 
    WinWaitActive("Save As","","") 
    Send("!s") ;Save

    ; Wait for Adobe Reader to become active 
    WinWaitActive("outfile1.pdf - Adobe Reader","","") 
    Send("^q") ;Close Adobe Reader

    ;Wait for the window to not exist
    WinWaitClose("outfile1.pdf - Adobe Reader","","") 
Next

[lisehu]

Works perfectly. Thank you very much, Hannes!

$a_pdflist = _FileListToArray("C:\Data", "*.pdf")

For $i = 1 To $a_pdflist[0]
    ShellExecute("C:\Data\" & $a_pdflist[$i])
    WinWaitActive($a_pdflist[$i] & " - Adobe Reader") 

    Send("!f") ;File Open
    Send("a") ;Save As
    Send("x") ;Text

    ; Wait for Save As Window to become active 
    WinWaitActive("Save As","","") 
    Send("!s") ;Save

    ; Wait for Adobe Reader to become active 
    WinWaitActive("outfile1.pdf - Adobe Reader","","") 
    Send("^q") ;Close Adobe Reader

    ;Wait for the window to not exist
    WinWaitClose("outfile1.pdf - Adobe Reader","","") 
Next