Delphi convert doc to pdf using Word ActiveX

Question

¿Alguien ya ha escrito el código para convertir doc o docx a pdf usando las capacidades de exportación en PDF de Word 2007 o Word 2010?

Answer 1

Lo hago con el siguiente script .vbs. Si lo necesita en el código de Delphi, entonces sería bastante fácil de convertir:

Const wdDoNotSaveChanges = 0 
Const wdRevisionsViewFinal = 0 
Const wdFormatPDF = 17 

Dim arguments 
Set arguments = WScript.Arguments 

Function DOC2PDF(sDocFile) 

    Dim fso ' As FileSystemObject 
    Dim wdo ' As Word.Application 
    Dim wdoc ' As Word.Document 
    Dim wdocs ' As Word.Documents 

    Set fso = CreateObject("Scripting.FileSystemObject") 
    sDocFile = fso.GetAbsolutePathName(sDocFile) 
    sPdfFile = fso.GetParentFolderName(sDocFile) + "\" + fso.GetBaseName(sDocFile) + ".pdf" 

    Set wdo = CreateObject("Word.Application") 
    Set wdocs = wdo.Documents 
    WScript.Echo "Opening: " + sDocFile 
    Set wdoc = wdocs.Open(sDocFile) 
    if fso.FileExists(sPdfFile) Then 
    fso.DeleteFile sPdfFile, True 
    End If 
    WScript.Echo "Converting to PDF: " + sPdfFile 
    Set wview = wdoc.ActiveWindow.View 
    wview.ShowRevisionsAndComments = False 
    wview.RevisionsView = wdRevisionsViewFinal 
    wdoc.SaveAs sPdfFile, wdFormatPDF 
    WScript.Echo "Conversion completed" 
    wdo.Quit wdDoNotSaveChanges 

    Set fso = Nothing 
    Set wdo = Nothing 

End Function 

If arguments.Count=1 Then 
    Call DOC2PDF(arguments.Unnamed.Item(0)) 
Else 
    WScript.Echo "Generates a PDF file from a Word document using Word PDF export." 
    WScript.Echo "" 
    WScript.Echo "Usage: doc2pdf.vbs <doc-file>" 
    WScript.Echo "" 
End If 

Answer 2

He no tan lejos, pero no debería ser difícil:

• Crear un objeto de servidor COM Palabra utilizando CreateOLEObject('Word.Application')
• abrir el documento con Documents.Open
• exportar el documento a PDF utilizando ExportAsFixedFormat

Aquí está un esqueleto básico:

uses 
    ComObj; 
const 
    wdExportFormatPDF = 17; 
var 
    Word, Doc: OleVariant; 
begin 
    Word := CreateOLEObject('Word.Application'); 
    Doc := Word.Documents.Open('C:\Document.docx'); 
    Doc.ExportAsFixedFormat('C:\Document.pdf', wdExportFormatPDF); 
end; 

Tenga en cuenta que he declare, tanto los Word y Doc variables como OleVariants, de modo que sea versión indepent (es decir, este código funcionará ya sea que esté utilizando Word 2007 o 2010). También puede usar las bibliotecas de componentes de VCL Office si lo desea. Si tuviera que procesar mucho en el documento, definitivamente sería más rápido.