Hello all,
We are running PB2022 V1878. I need a way to convert word docs, excel files, etc to pdf programmatically. We are currently using Win2PDF as a printer, but I can't seem to find a way to convert.
We've just started using pdfdocument to pdf datawindows, datastores and append other pdfs, works pretty well.
Anyone have any ideas?
Thanks,
Dennis L
Hello all, thanks again for all the ideas. I'm going to go with the OLE solution using Tobias' example. I ran into a hiccup when using the RTE solution suggested by Peter. It seems like it truncates some of the info in the word document. The original document had a title of some sort, maybe an image, but it did not populate in the RTE saveas pdf.
Thanks again,
Dennis
Hi Dennis,
if Office is installed the conversion can be done as follows.
Basically, the script opens the file with the corresponding Office product and saves it as a PDF.
Works very well for us in practice, the good thing is, the resulting PDF is always created correctly, because, for example, Word interprets the formatting and saves the content as a PDF.
We have explicitly not hidden word and co in the automation, because otherwise the process would hang and the user could not react to queries from Word, e.g. specify intials.
I hope i could help you.
String ls_filetype
long ll_ret
choose case lower(ls_filetype)
case "doc","docx","dot","dotx","rtf","odt"
try
oleobject ole_doc
ole_doc = create oleobject
ll_ret = ole_doc.ConnectToNewObject("Word.Application")
if ll_ret <> 0 then
MessageBox("Error", "Could not create Word object (" + string(ll_Ret) + ")!~nIs Microsoft Word installed?", Exclamation!)
destroy ole_doc
return false
end if
// PDF speichern
ole_doc.Visible = true;
ole_doc.Documents.Open(as_sourcefile)
ole_doc.ActiveDocument.saveas(as_filename,17)
ole_doc.ActiveDocument.Close(false)
ole_doc.Options.SaveNormalPrompt = false
ole_doc.Options.SavePropertiesPrompt = false
ole_doc.NormalTemplate.Saved = true
ole_doc.Quit()
ole_doc.DisconnectObject()
return true
catch ( NullObjectError noe1 )
Messagebox("Error","An error occurred during communication with Word!~n NOE: "+noe1.GetMessage())
return false
catch ( PBXRuntimeError pbxre1 )
Messagebox("Error","An error occurred while communicating with Word!~n PBXRE: "+pbxre1.GetMessage())
return false
catch ( OleRunTimeError ort1)
Messagebox("Error","An error occurred during communication with Word!~n PBXRE: "+ort1.GetMessage())
return false
catch ( RunTimeError rtn1)
Messagebox("Error","An error occurred during communication with Word!~n PBXRE: "+rtn1.GetMessage())
return false
catch ( CorbaUserException cue1)
Messagebox("Error","An error occurred during communication with Word!~n PBXRE: "+cue1.GetMessage())
return false
catch ( Throwable oe1 )
Messagebox("Error","An error occurred while communicating with Word!~n OE: "+oe1.GetMessage())
return false
end try
case "xls","xlsx"
try
oleobject ole_excel
ole_excel = create oleobject
ll_ret = ole_excel.ConnectToNewObject("Excel.Application")
if ll_ret <> 0 then
MessageBox("Error", "Could not create Excel object (" + string(ll_Ret) + ")!~nIs Microsoft Excel installed?", Exclamation!)
destroy ole_excel
return false
end if
ole_excel.Visible = true;
// PDF speichern
ole_excel.WorkBooks.Open(as_sourcefile)
oleobject lole_worksheet,lole_workbook
lole_workbook = ole_excel.application.workbooks(1)
lole_worksheet = lole_workbook.worksheets(1)
lole_worksheet.SaveAs(as_filename, 57);
ole_excel.Quit()
ole_excel.DisconnectObject()
return true
catch ( NullObjectError noe2 )
Messagebox("Error","An error occurred while communicating with Excel!~n NOE: "+noe2.GetMessage())
return false
catch ( PBXRuntimeError pbxre2 )
Messagebox("Error","An error occurred while communicating with Excel!~n PBXRE: "+pbxre2.GetMessage())
return false
catch ( OleRunTimeError ort2)
Messagebox("Error","An error occurred while communicating with Excel!~n PBXRE: "+ort2.GetMessage())
return false
catch ( RunTimeError rtn2)
Messagebox("Error","An error occurred while communicating with Excel!~n PBXRE: "+rtn2.GetMessage())
return false
catch ( CorbaUserException cue2)
Messagebox("Error","An error occurred while communicating with Excel!~n PBXRE: "+cue2.GetMessage())
return false
catch ( Throwable oe2 )
Messagebox("Error","An error occurred while communicating with Excel!~n OE: "+oe2.GetMessage())
return false
end try
case "ppt","pptx"
try
oleobject ole_powerpoint
ole_powerpoint = create oleobject
ll_ret = ole_powerpoint.ConnectToNewObject("powerpoint.Application")
if ll_ret <> 0 then
MessageBox("Error", "Could not create PowerPoint object (" + string(ll_Ret) + ")!~nIs Microsoft PowerPoint installed?", Exclamation!)
destroy ole_powerpoint
return false
end if
ole_powerpoint.Visible = true;
// PDF speichern
ole_powerpoint.Presentations.Open(as_sourcefile)
ole_powerpoint.ActivePresentation.saveas(as_filename,32)
ole_powerpoint.Quit()
ole_powerpoint.DisconnectObject()
return true
catch ( NullObjectError noe3 )
Messagebox("Error","An error occurred while communicating with PowerPoint!~n NOE: "+noe3.GetMessage())
return false
catch ( PBXRuntimeError pbxre3 )
Messagebox("Error","An error occurred while communicating with Powerpoint!~n PBXRE: "+pbxre3.GetMessage())
return false
catch ( OleRunTimeError ort3)
Messagebox("Error","An error occurred while communicating with PowerPoint!~n PBXRE: "+ort3.GetMessage())
return false
catch ( RunTimeError rtn3)
Messagebox("Error","An error occurred while communicating with PowerPoint!~n PBXRE: "+rtn3.GetMessage())
return false
catch ( CorbaUserException cue3)
Messagebox("Error","An error occurred while communicating with Powerpoint!~n PBXRE: "+cue3.GetMessage())
return false
catch ( Throwable oe3 )
Messagebox("Error","An error occurred while communicating with PowerPoint!~n OE: "+oe3.GetMessage())
return false
end try
case else
Messagebox("Error","File type "+ls_filetype+" not supported".)
Return False
end choose
Return trueRegards Tobi
We reproduced it on our end and will do further research to figure it out. We will keep you posted about the progress.
Best Regards,
Peter