Delphi使用Word ActiveX將文檔轉換爲pdf

Question

有沒有人已經編寫過使用Word 2007或Word 2010 pdf導出功能將doc或docx轉換爲pdf的代碼？

Answer 1

我用下面的.vbs腳本來做。如果你需要在Delphi代碼，那麼這將是很容易的轉換：

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

我至今爲止還沒有，但它不應該是困難的：

• 創建一個Word COM服務器對象使用CreateOLEObject('Word.Application')
• 打開使用ExportAsFixedFormat

使用 Documents.Open

將文檔導出爲PDF文檔

這是一個基本框架：

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; 

請注意，我宣佈雙方Word和Doc變量OleVariants，以便版本indepent（即無論您使用的是Word 2007還是2010，此代碼都可以使用）。如果您願意，您也可以使用VCL Office組件庫。如果您要在文檔中進行大量處理，那肯定會更快。