Hi,
I am new to forum and to VBA coding as well. I manage to get a code for my task thru net but its not complete.
The code works fine ,however i want to add a condition to open multiple PDF file from the folder ,copy the content ,paste the same in word file and save the word file.below is the code,i haven't edited it much ,since i don't know much.Any help to dis will be great and appreciated.
Code i got from net,it does open the PDF file,however i have multiple files ;
Sub OpenPDFPageView()
Dim PDFApp As AcroApp
Dim PDFDoc As AcroAVDoc
Dim PDFPageView As AcroAVPageView
Dim PDFPath As String
Dim DisplayPage As Integer
PDFPath = "C:\Documents and Settings\Ram\My Documents\Datawork RND\2013@4_ 800.pdf"
DisplayPage = 3
Set PDFApp = CreateObject("AcroExch.App")
Set PDFDoc = CreateObject("AcroExch.AVDoc")
'Open the PDF
If PDFDoc.Open(PDFPath, "") = True Then
PDFDoc.BringToFront
'Maximize the document
' Call PDFDoc.Maximize(True)
'Set PDFPageView = PDFDoc.GetAVPageView()
End If
Set PDFApp = Nothing
Set PDFDoc = Nothing
On Error Resume Next
'Show the adobe application
PDFApp.Show
'Set the focus to adobe acrobat pro
AppActivate "Adobe Acrobat Pro"
End Sub
Awaiting reply .thanks in advance
Bookmarks