工作中遇到一個軟件開發項目，該項目要求將相關數據報表存為
Word格式文檔（涉及表格、圖形的輸出），便于用戶修改。
本人在開發過程中，發現此類資料較少，且介紹相對簡單，大多只是文本數據的的簡單輸出?，F將個人摸索出的一些方法及心得體會告訴大家，以求共同探討，共同提高！
form上放置以下控件：一個Tadoquery
組件，名稱為ADOQuery1；
一個TWordFont組件,名稱為WordFont1；
一個TWordDocument1組件,名稱為Doc;
一個TWordParagraphFormat組件,名稱為ParaFmt；
一個TIMAGE組件，名稱為IMAGE1；
一個TBUTTON組件，名稱為Button1；
PRocedure TFrm_TravilRDXL.EnterText;//自定義函數
var
S: Selection;
MyFormat : Word;
// Bitmap : TBitMap;
AData :cardinal;
APalette : hpalette;
begin
S := WordApplication1.Selection;
WordFont1.ConnectTo(S.Font);
S.TypeText('甘肅省蘭州市旅游管理局熱點線路統計表');
//加回車鍵,形成第一個段落：Doc.Paragraphs.Item(1)
S.TypeParagraph;
//輸入文字
S.TypeText(txt_DateFrom.Text+'至'+txt_DateTo.text);
//加回車鍵,形成第二個段落：Doc.Paragraphs.Item(2)
S.TypeParagraph;
S.TypeText('使用部門：'+'銷售部'+#13);
S.TypeText('時間范圍：'+'2002-8-8至2002-8-28'+#13 );
S.TypeText('線路類型：'+'團體線'+#13);
s.TypeText('線路等級：'+'豪華線'+#13);
//加回車鍵,形成第三個段落：Doc.Paragraphs.Item(3)
S.TypeParagraph;
//--------------------------設置段落1屬性-------------------//
ParaFmt.ConnectTo(Doc.Paragraphs.Item(1).Format);
//綁定WordFont1與Doc.Paragraphs.Item(1).Range.Font
WordFont1.ConnectTo(Doc.Paragraphs.Item(1).Range.Font);
//設置段落對齊方式
ParaFmt.Alignment := wdAlignParagraphCenter;
//設置段落行距（磅）
ParaFmt.SpaceAfter := 24;
//畫單水平線
ParaFmt.Borders.Item(3).LineStyle := wdLineStyleSingle;
WordFont1.Size := 18;
WordFont1.Name := 'Arial';
WordFont1.Bold := integer(True);
WordFont1.ColorIndex:=5; //粉紅色
字體
//--------------------------設置段落2屬性-------------------//
ParaFmt.ConnectTo(Doc.Paragraphs.Item(2).Format);
//綁定WordFont1與Doc.Paragraphs.Item(1).Range.Font
WordFont1.ConnectTo(Doc.Paragraphs.Item(2).Range.Font);
//設置段落對齊方式
ParaFmt.Alignment := wdAlignParagraphCenter;
//設置段落行距（磅）
ParaFmt.SpaceAfter := 12;
WordFont1.Size := 18;
WordFont1.Name := 'Arial';
end;
procedure TFrm_TravilRDXL.Button1Click(Sender: TObject);
var
i,j:integer;
begin
i:=2;//初始化
j:=1;
WordApplication1.Connect;
Doc.ConnectTo(WordApplication1.Documents.Add(EmptyParam, EmptyParam));
WordApplication1.Visible := True;//顯示word文檔
EnterText;//自定義函數---添加文本
WordApplication1.Selection.SetRange(100,100);//設定段落范圍
doc.Tables.Add(WordApplication1.Selection.Range,ADOQuery1.RecordCount+1,5);//創建表格
doc.Tables.Item(1).Columns.Item(1).Width:=120;//設定第一列寬度
//--------------------------設定第一列字體屬性-----------------------//
while j<6 do begin
doc.Tables.item(1).cell(1,j).Range.Bold:=integer(true);
WordFont1.ConnectTo(doc.Tables.item(1).cell(1,j).Range.Font);
WordFont1.ColorIndex:=10;
j:=j+1;
end;
//--------------------------向表格中添加數據----------------------------------------//
doc.Tables.Item(1).Cell(1,1).Range.Text:='線路名稱';
doc.Tables.Item(1).cell(1,2).Range.text:='人數';
doc.Tables.item(1).cell(1,3).Range.text:='銷售額（元）';
doc.Tables.item(1).cell(1,4).Range.text:='毛利潤';
doc.Tables.Item(1).cell(1,5).Range.text:='毛利潤率';
while not ADOQuery1.Eof do begin
doc.Tables.Item(1).Cell(i,1).Range.Text:=ADOQuery1.fieldbyname('linename').asstring;
doc.Tables.Item(1).cell(i,2).Range.text:=ADOQuery1.Fieldbyname('STUFFNUM').asstring;
doc.Tables.Item(1).cell(i,3).Range.text:=ADOQuery1.Fieldbyname('TOTALACCOUNT').asstring;
doc.Tables.Item(1).cell(i,4).Range.text:=ADOQuery1.Fieldbyname('TOTAL').asstring;
doc.Tables.Item(1).cell(i,5).Range.text:=ADOQuery1.Fieldbyname('ration').asstring;
ADOQuery1.Next;
i:=i+1;
end;
//----------------------------------------------------------------------//
WordApplication1.Selection.SetRange(350,350);//設定段落范圍
ParaFmt.ConnectTo(WordApplication1.Selection.Paragraphs.item(1).Format);
ParaFmt.Borders.Item(3).ColorIndex:=6;
ParaFmt.Borders.Item(3).LineStyle:=wdLineStyleSingle;//畫底線
//-----------設置段落字體----------------------------------------//
WordFont1.ConnectTo(WordApplication1.Selection.Paragraphs.Item(1).Range.Font);
WordFont1.Bold:=integer(true);
WordFont1.Size:=16;
//-----------------------------粘貼圖形-------------------------//
Image1.Picture.SaveToCl
ipboardFormat(MyFormat,AData,APalette);
Clipboard.SetAsHandle(MyFormat,AData);
doc.Sentences.Last.Paste;
//--------------------------插入記錄-------------------------------------//
doc.Range.InsertAfter(#13+'操作員:'+ G_username);//G_username為全局變量
end;
