FiveTech Support Forums

Hello,

In my application, I need to transfer a PDF-document with several pages, to a Word-document.

I want to do that in the same way a report in RPREVIEW.PRG is exported to a Word-document.

The result has to be a image of every page in my PDF-document on a page in the new Word-document.

I did have a look at RPREVIEW.PDF, but the big difference is the fact that I start with an EMF-document, and not a PDF-document.

Anyone any suggestions?

Thank you very much in advance.

I need to transfer a PDF-document with several pages, to a Word-document.

function PdfToWord( cPdf )

   local oWord

   if !File( cPdf )
      ? cPdf + " not found"
      return nil
   endif

   if ( oWord := WinWordObj() ) == nil
      ? "Word not loaded"
      return nil
   endif

   oWord:Documents:Open( TrueName( cPdf ), .f. )
   oWord:ScreenUpdating := .t.
   oWord:Visible := .t.

return nil

Mr. Rao,

Thank you for trying to help me.

I did a test with your suggestion. Unfortunately there are 2 problems

1. The layout of the document is completely wrong.

2. The PDF is converted to editable text. But I need to have it as an image.

Any idea?

Thanks.