Is there an easy way to copy a Picture Object from One PDF Document to another PDF Document that I am creating. Assume that it is not an External file?
I am using the PDF Creator.
Thank you
Copying Pictures fron one PDF to another
I tried the following
oSource = CREATEOBJECT("PDFCreactiveX.PDFCreactiveX.3")
oDest = CREATEOBJECT("PDFCreactiveX.PDFCreactiveX.3")
oSource.OpenEx("foo.pdf")
oSource.CurrentPage = 1
oDest.InitBlank()
oDest.ReportState = acReportStateDesign
oDest.DoCommandTool(acCommandToolPageView)
oDest.CurrentPage = 1
oPage = oSource.ObjectAttribute("Pages[1]","Objects")
FOR EACH oSourceObjects IN oPage
DOEVENTS Force
oSourceObjects.Selected = 1
oSource.DoCommandTool(acCommandToolCopy)
oSourceObjects.Selected = 0
oDest.DoCommandTool(acCommandToolPaste)
OdEST.Refresh()
ENDFor
oDest.DoCommandTool(acCommandToolRunDocument)
oDest.Save("foo2.pdf",1)
Am I Missing something?
oSource = CREATEOBJECT("PDFCreactiveX.PDFCreactiveX.3")
oDest = CREATEOBJECT("PDFCreactiveX.PDFCreactiveX.3")
oSource.OpenEx("foo.pdf")
oSource.CurrentPage = 1
oDest.InitBlank()
oDest.ReportState = acReportStateDesign
oDest.DoCommandTool(acCommandToolPageView)
oDest.CurrentPage = 1
oPage = oSource.ObjectAttribute("Pages[1]","Objects")
FOR EACH oSourceObjects IN oPage
DOEVENTS Force
oSourceObjects.Selected = 1
oSource.DoCommandTool(acCommandToolCopy)
oSourceObjects.Selected = 0
oDest.DoCommandTool(acCommandToolPaste)
OdEST.Refresh()
ENDFor
oDest.DoCommandTool(acCommandToolRunDocument)
oDest.Save("foo2.pdf",1)
Am I Missing something?