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

領測軟件測試網 關鍵字：Delphi 7控制Word 2000生成文檔最近幫同學用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

文章來源于領測軟件測試網 http://www.kjueaiud.com/

TAG: delphi Delphi DELPHI Word WORD 成文