使用Delphi 7控制Word 2000生成文檔的方法

原創

2020-02-21 03:41

最近幫同學用Delphi 7寫的一個數據庫應用中的一個功能是將查詢的結果導出到一個Word文檔中保存。雖然Delphi 7的Servers面板中提供了TWordApplication和TWordDocument組件，但是幫助中卻幾乎沒有寫它們的使用方法。於是在中國期刊網上down了許多的相關文章來看，只可惜幾乎都是用Delphi 5寫的（Delphi 7中不能兼容），而且都只是簡單的介紹了一下，甚是鬱悶。在經過一天的摸索之後終於用Delphi 7實現了這個功能。代碼如下：
//uses Word2000, ComObj;
//WordApp: TWordApplication;
//WordDoc: TWordDocument;
procedure TfrmDetails.btnExportClick(Sender: TObject); //單擊“導出“按鈕
var
V:Variant;
Template,NewTemplate,DocumentType,Visible:OleVariant;
itemIndex:OleVariant;
fileName:Olevariant;
NoPrompt,OriginalFormat:OleVariant;
RouteDocument,SaveChanges:OleVariant;
begin
//指定文檔的路徑和文件名
fileName:='C:/LogAdmin/doc/'+'值班日誌'+Trim(DBTextID.Caption)+'.doc';
//如果該日誌的對應Word文檔已經存在則提示是否覆蓋
if FileExists(fileName)=true then
    begin
      Beep;
      if Application.MessageBox('文檔已經存在，是否覆蓋？','警告',MB_OKCANCEL)=IDCANCEL then
        Abort;
    end;
//測試當前是否運行了Word 2000
try
    V:=GetActiveOleObject('Word.Application');
except
    //未運行則運行之
    V:=CreateOleObject('Word.Basic');
end;
try
    //連接到Word 2000
    WordApp.Connect;
except
    Beep;
    MessageDlg('不能生成文檔，請確認是否安裝了Word 2000！',mtError,[mbOK],0);
    Abort;
end;
//顯示Word 2000
WordApp.Visible:=true;
//給調用Add函數使用的實參賦值
Template:=EmptyParam;
NewTemplate:=False;
DocumentType:=wdNewBlankDocument;
Visible:=true;
//調用Add函數
WordApp.Documents.Add(Template,NewTemplate,DocumentType,Visible);
//連接到新建的文檔
itemIndex:=1;
WordDoc.ConnectTo(WordApp.Documents.Item(itemIndex));
//文檔另存爲
WordDoc.SaveAs(fileName);
//開始向Word文檔中寫入內容
with WordApp.Selection do
    begin
      Font.Size:=20;
      Font.Bold:=2;
      Paragraphs.Alignment:=wdAlignParagraphCenter;
      TypeText('值班日誌詳細內容');
      TypeParagraph; //換行
      TypeParagraph;
      Font.Size:=12;
      Font.Bold:=0;
      Paragraphs.Alignment:=wdAlignParagraphLeft;
      TypeText('編號：    '+DBTextID.Caption);
      TypeParagraph;
      TypeText('日期：    '+DBTextDate.Caption);
      TypeParagraph;
      TypeText('溫度：    '+DBTextT.Caption);
      TypeParagraph;
      TypeText('溼度：    '+DBTextH.Caption);
      TypeParagraph;
      TypeText('天氣：    '+DBTextWeather.Caption);
      TypeParagraph;
      TypeText('值班人： '+DBTextName.Caption);
      TypeParagraph;
      TypeText('值班時間：'+DBTextTime.Caption);
      TypeParagraph;
      TypeText('有無異常：'+lbException.Caption);
      TypeParagraph;
      TypeText('使用工具：');
      TypeParagraph;
      TypeText(DBMemoTool.Text);
      TypeParagraph;
      TypeText('現場環境：');
      TypeParagraph;
      TypeText(DBMemoEnv.Text);
      TypeParagraph;
      TypeText('記錄一： ');
      TypeParagraph;
      TypeText(DBMemoR1.Text);
      TypeParagraph;
      TypeText('記錄二： ');
      TypeParagraph;
      TypeText(DBMemoR2.Text);
      TypeParagraph;
      TypeText('記錄三： ');
      TypeParagraph;
      TypeText(DBMemoR3.Text);
      TypeParagraph;
      TypeText('備註：    ');
      TypeParagraph;
      TypeText(DBMemoMemo.Text);
      TypeParagraph;
    end;
//保存文檔
NoPrompt:=false;
OriginalFormat:=wdOriginalDocumentFormat;
WordApp.Documents.Save(NoPrompt,OriginalFormat);

//關閉文檔
SaveChanges:=wdSaveChanges;
OriginalFormat:=wdOriginalDocumentFormat;
RouteDocument:=false;
WordApp.Documents.Close(SaveChanges,OriginalFormat,RouteDocument);
//斷開和Word 2000的連接
WordApp.Disconnect;

MessageDlg('日誌內容導出成功！保存爲'+fileName,mtInformation,[mbOK],0);
//關閉窗體
frmDetails.Close;
end;