從Delphi創建Word文檔，另存爲Doc和PDF

Question

我需要使用特定模板從Delphi創建Word文檔，將文檔另存爲具有給定名稱的Word文檔，然後保存具有相同名稱的同一文檔但作爲PDF文件。 （在Word 2007中可以使用SaveAsPdf ...插件完成，在Word 2010中是內置功能）

這怎麼可以用Delphi XE來完成？

Answer 1

首先使用「組件」|「Microsoft Word 12對象」（MS Word 2007）類型庫導入項目。導入組件菜單項。然後，您可以使用此示例代碼加載MS Word文件，並使用內部PDF轉換器將其另存爲PDF。如果您使用的是Microsoft Word 2010中，加載它的類型庫而不是Word 2007中

unit fMain; 

interface 

uses 
    Windows, SysUtils, Variants, Classes, Controls, Forms, Dialogs, StdCtrls, 
    Word_TLB; 

type 
    TfrmMain = class(TForm) 
    btnLoad: TButton; 
    btnSaveAs: TButton; 
    FileOpenDialog1: TFileOpenDialog; 
    FileSaveDialog1: TFileSaveDialog; 
    procedure btnLoadClick(Sender: TObject); 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
    procedure btnSaveAsClick(Sender: TObject); 
    private 
    FWordApp : WordApplication; 
    FWordDoc : WordDocument; 
    procedure InitializeApp; 
    procedure FinalizeApp; 
    function LoadFile(const AFileName: string): WordDocument; 
    procedure SaveAsPdf(ADocument: WordDocument; const AFileName: string); 
    public 
    { Public declarations } 
    end; 

var 
    frmMain: TfrmMain; 

implementation 

uses ComObj; 

{$R *.dfm} 

procedure TfrmMain.btnLoadClick(Sender: TObject); 
begin 
    if FileOpenDialog1.Execute then 
    FWordDoc := LoadFile(FileOpenDialog1.FileName); 
end; 

procedure TfrmMain.btnSaveAsClick(Sender: TObject); 
begin 
    if FileSaveDialog1.Execute then 
    begin 
    if Assigned(FWordDoc) then 
     SaveAsPdf(FWordDoc, FileSaveDialog1.FileName); 
    end; 
end; 

procedure TfrmMain.FinalizeApp; 
var 
    SaveChanges: OleVariant; 
begin 
    if Assigned(FWordApp) then 
    begin 
    SaveChanges := False; 
    FWordApp.Quit(SaveChanges, EmptyParam, EmptyParam); 
    FWordApp := nil; 
    end; 
end; 

procedure TfrmMain.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
    FinalizeApp; 
end; 

procedure TfrmMain.InitializeApp; 
begin 
    FWordApp := createOleObject('Word.Application') as WordApplication; 
    if Assigned(FWordApp) then 
    begin 
    FWordApp.Visible := False; 
    end 
    else 
    raise Exception.Create('Cannot initialize Word application'); 
end; 

function TfrmMain.LoadFile(const AFileName: string): WordDocument; 
var 
    FileName: OleVariant; 
    Doc : WordDocument; 
begin 
    if not Assigned(FWordApp) then 
    InitializeApp; 

    FileName := AFileName; 
    Doc := FWordApp.Documents.Open(FileName, EmptyParam, EmptyParam, EmptyParam, 
           EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
           EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
           EmptyParam, EmptyParam, EmptyParam, EmptyParam); 
    Result := Doc; 
end; 

procedure TfrmMain.SaveAsPdf(ADocument: WordDocument; const AFileName: string); 
var 
    FileName, 
    FileFormat : OleVariant; 
begin 
    if Assigned(ADocument) then 
    begin 
    FileName := AFileName; 
    FileFormat := wdFormatPDF; 
    ADocument.SaveAs(FileName, FileFormat, EmptyParam, EmptyParam, EmptyParam, 
        EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
        EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
        EmptyParam); 
    end; 
end; 

end. 

我剛寫的代碼並運行它一次，它的工作原理，但我還沒有徹底的測試，所以可能會有一些毛刺。

Answer 2

這段代碼對我來說是訣竅，但正如你所看到的，我必須立即保存文檔，並使用ShellExecute重新打開它。如果沒有，我會提前提到'RPC服務器不可用'錯誤。

procedure TfrmJobsearchAdverts.FileCreate; 
var 
    TempName: OleVariant; 
    FileDoc: OleVariant; 
    FileFormat: OleVariant; 
    Doc : WordDocument; 
    WordTemplate: string; 
    WordFile: string; 
    BookName: OleVariant; 
begin 
    SaveRecord; 
    WordFile := Advert.CreateDocname(qryAdverts.FieldByName('fldadvert_date').AsDateTime); 
    WordTemplate := JobsearchTemplate(Self); 
    if (WordFile <> '') and (WordTemplate <> '') then 
    begin 
     Advert.SaveDocname(qryAdverts.FieldByName('fldadvert_guid').AsString, WordFile); 
     if not Assigned(fWordApp) then 
     InitializeWord; 
     TempName := WordTemplate; 
     FileDoc := WordFile; 
     Doc := FWordApp.Documents.Add(TempName, EmptyParam, EmptyParam, EmptyParam); 
     BookName := 'fldCompany'; 
     if Doc.Bookmarks.Exists(BookName) then 
     Doc.Bookmarks.Item(BookName).Range.Text := Company.Name; 
     BookName := 'fldAddress1'; 
     if Doc.Bookmarks.Exists(BookName) then 
     Doc.Bookmarks.Item(BookName).Range.Text := Company.Address1; 
     BookName := 'fldAddress2'; 
     if Doc.Bookmarks.Exists(BookName) then 
     Doc.Bookmarks.Item(BookName).Range.Text := Company.Address2; 
     BookName := 'fldZip'; 
     if Doc.Bookmarks.Exists(BookName) then 
     Doc.Bookmarks.Item(BookName).Range.Text := Company.Zip; 
     BookName := 'fldCity'; 
     if Doc.Bookmarks.Exists(BookName) then 
     Doc.Bookmarks.Item(BookName).Range.Text := Company.City; 
     FileFormat := wdFormatDocument; 
     Doc.SaveAs(FileDoc, EmptyParam, EmptyParam, EmptyParam, 
       EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
       EmptyParam, EmptyParam, EmptyParam, EmptyParam, 
       EmptyParam, EmptyParam, EmptyParam, EmptyParam); 
     FinalizeWord; 
     Files.ExecuteAndWait(WordFile); 
    end; 
end;