Set objPDF = CreateObject("Scripting.FileSystemObject")
Set temp = objPDF.GetFile("C:\62294_GT.pdf")
Msgbox temp.Size
set tf=temp.OpenAsTextStream
Set textfile =objPDF.CreateTextFile("C:\pdf.txt")
Do Until tf.AtEndOfStream
'strLine = tf.ReadLine
'print strLine
textfile.WriteLine(tf.ReadLine)
loop
loop
Note: to ensure acrobat reader already installed on your machine, otherwise need to install acrobat reader to create object for PDF using vb script.
No comments:
Post a Comment
Note: only a member of this blog may post a comment.