1.所需的三個(gè)控件： ChooseWA: TWordApplication; ChooseWD: TWordDocument; ChooseWF: TWordFont; 2.檢查計(jì)算機(jī)是否安裝了WORD try ChooseWA.Connect; except MessageBox(handle,'無(wú)法鏈接，請(qǐng)確認(rèn)電腦上是否安裝Word XP/2003及以上版本','連接出錯(cuò)', MB_Ok or MB_ICONERROR); Abort; end; 3.關(guān)閉WORD拼寫(xiě)檢查 //因?yàn)閃ord進(jìn)行拼寫(xiě)檢查需要很多時(shí)間，所以首先關(guān)閉檢查 ChooseWA.Options.CheckSpellingAsYouType := False; ChooseWA.Options.CheckGrammarAsYouType := False; 4.新建一個(gè)文檔并設(shè)置文檔的標(biāo)題 var NewDocument: _Document; ItemIndex: OleVariant; ItemIndex := 1; NewDocument := ChooseWA.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam); ChooseWD.ConnectTo(NewDocument); ChooseWD.Windows.Item(ItemIndex).Caption := '我新建的第一個(gè)文檔';//此文檔的第一個(gè)窗口的標(biāo)題,試卷 名稱(chēng) 5.寫(xiě)入數(shù)據(jù) ChooseWD.Range.InsertAfter('第一行數(shù)據(jù)'+#13);//#13代表?yè)Q行 6.設(shè)置字體格式 procedure SetFont(aBold,aItalic,aShadow,aSize:integer); begin ChooseWF.ConnectTo(ChooseWD.Sentences.Get_Last.Font); ChooseWF.Name := '宋體'; ChooseWF.Bold := aBold; ChooseWF.Italic := aItalic; ChooseWF.Shadow := aShadow; ChooseWF.Size := aSize; end; 如：SetFont(1,0,0,22);//設(shè)置字體為22號(hào) 7.向WORD中寫(xiě)入表格 (1)插入表格： ChooseWD.Tables.Add(ChooseWD.Words.Last, RowNum, ColNum,EmptyParam,EmptyParam);//RowNum為行數(shù)， ColNum為列數(shù) (2)插入數(shù)據(jù)： ChooseWD.Tables.Item(1).Cell(1,1).Range.Text := '第一行第一列'; ChooseWD.Tables.Item(1).Cell(2,1).Range.Text := '第二行第一列'; 8.向WORD寫(xiě)入圖片 var Img: TImage; MyFormat: Word; AData: Cardinal; APalette: HPALETTE; Img.Picture.LoadFromFile('文件路徑');//從文件夾中導(dǎo)入圖片至控件 Img.Picture.SaveToClipboardFormat(MyFormat,AData,APalette);//將圖片轉(zhuǎn)存到剪貼板中 Clipboard.SetAsHandle(MyFormat,AData);//將剪貼板中的圖片復(fù)制出來(lái)，注意添加Clipbrd單元 ChooseWD.Sentences.Last.Paste;//在WORD中粘貼圖片 9.在界面中顯示W(wǎng)ORD文檔 ChooseWA.Visible:=true; 10.斷開(kāi)與WORD的鏈接 ChooseWA.Disconnect; ChooseWD.Disconnect; Chart1.SaveToBitmapFile(‘文件名.bmp’);