S
stevedls
Hello and thanks for your help,
I am using Word and Visual basic 6.3, I am not a professional programmer but
have gotten some basic stuff done using help menus and books however finding
anything referring to pdf code is hard. The VB help lib. is pretty much
useless and I have bought a few books but they too do not explain how to code
pdfs. This is my problem. I am copying a jpeg to a PDF and I would like to
copy a page in the pdf and past to a word doc. Here is my code:
Sub adobe_Copy_Paste()
Const DOC_FOLDER As String = "C:\"
Dim objCurrent
Dim strFormName As String
Dim blnNeedToClose As Boolean
Dim AcroApp As CAcroApp
Dim avCodeFile As CAcroAVDoc
Dim avFormCapture As CAcroAVDoc
Dim pdCodeFile As CAcroPDDoc
Dim pdFormCapture As CAcroPDDoc
Dim lngPage As Long
Dim AVPage As CAcroAVPageView
Dim PDPage As CAcroPDPage
'Start Acrobat in the background
Set CAcroApp = CreateObject("AcroExch.App")
'Uncomment the following line to watch the program run
CAcroApp.Show
Set CavCodeFile = CreateObject("AcroExch.AVDoc") 'This is the code file
Set CavFormCapture = CreateObject("AcroExch.AVDoc") 'This will be each jpg
in turn
CavCodeFile.Open DOC_FOLDER & "\report.pdf", "Steves File"
Set CpdCodeFile = CavCodeFile.GetPDDoc
'Open the jpg file
CavFormCapture.Open DOC_FOLDER & "\" & strFormName & "reports.JPG", ""
Set CpdFormCapture = CavFormCapture.GetPDDoc
'Insert the jpg at the right page
CpdCodeFile.InsertPages lngPage, CpdFormCapture, 0, 1, 0
If lngPage = 0 Then CpdCodeFile.MovePage 0, 2
MsgBox "Program has Run"
End Sub
In addition I forgot to mention I have used the tools- references-acrobat
option.
I have read about the function CopyToClipboard(boundRect As Object,
nXOrigin As Integer, nYOrigin As Integer, nZoom As Integer; however I do not
know how to use it. With out an example to study I do not know how to
reference it as an object much less use or reference the boundRect As Object,
nXOrigin As Integer, nYOrigin As Integer, nZoom. Please can you give me some
advice. Thank you so much for your time and consideration.
Sincerely,
Steve
I am using Word and Visual basic 6.3, I am not a professional programmer but
have gotten some basic stuff done using help menus and books however finding
anything referring to pdf code is hard. The VB help lib. is pretty much
useless and I have bought a few books but they too do not explain how to code
pdfs. This is my problem. I am copying a jpeg to a PDF and I would like to
copy a page in the pdf and past to a word doc. Here is my code:
Sub adobe_Copy_Paste()
Const DOC_FOLDER As String = "C:\"
Dim objCurrent
Dim strFormName As String
Dim blnNeedToClose As Boolean
Dim AcroApp As CAcroApp
Dim avCodeFile As CAcroAVDoc
Dim avFormCapture As CAcroAVDoc
Dim pdCodeFile As CAcroPDDoc
Dim pdFormCapture As CAcroPDDoc
Dim lngPage As Long
Dim AVPage As CAcroAVPageView
Dim PDPage As CAcroPDPage
'Start Acrobat in the background
Set CAcroApp = CreateObject("AcroExch.App")
'Uncomment the following line to watch the program run
CAcroApp.Show
Set CavCodeFile = CreateObject("AcroExch.AVDoc") 'This is the code file
Set CavFormCapture = CreateObject("AcroExch.AVDoc") 'This will be each jpg
in turn
CavCodeFile.Open DOC_FOLDER & "\report.pdf", "Steves File"
Set CpdCodeFile = CavCodeFile.GetPDDoc
'Open the jpg file
CavFormCapture.Open DOC_FOLDER & "\" & strFormName & "reports.JPG", ""
Set CpdFormCapture = CavFormCapture.GetPDDoc
'Insert the jpg at the right page
CpdCodeFile.InsertPages lngPage, CpdFormCapture, 0, 1, 0
If lngPage = 0 Then CpdCodeFile.MovePage 0, 2
MsgBox "Program has Run"
End Sub
In addition I forgot to mention I have used the tools- references-acrobat
option.
I have read about the function CopyToClipboard(boundRect As Object,
nXOrigin As Integer, nYOrigin As Integer, nZoom As Integer; however I do not
know how to use it. With out an example to study I do not know how to
reference it as an object much less use or reference the boundRect As Object,
nXOrigin As Integer, nYOrigin As Integer, nZoom. Please can you give me some
advice. Thank you so much for your time and consideration.
Sincerely,
Steve