資源簡介
1.所需的三個控件:
ChooseWA: TWordApplication;
ChooseWD: TWordDocument;
ChooseWF: TWordFont;
2.檢查計算機是否安裝了WORD
try
ChooseWA.Connect;
except
MessageBox(handle,'無法鏈接,請確認電腦上是否安裝Word XP/2003及以上版本','連接出錯', MB_Ok or
MB_ICONERROR);
Abort;
end;
3.關閉WORD拼寫檢查
//因為Word進行拼寫檢查需要很多時間,所以首先關閉檢查
ChooseWA.Options.CheckSpellingAsYouType := False;
ChooseWA.Options.CheckGrammarAsYouType := False;
4.新建一個文檔并設置文檔的標題
var
NewDocument: _Document;
ItemIndex: OleVariant;
ItemIndex := 1;
NewDocument := ChooseWA.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
ChooseWD.ConnectTo(NewDocument);
ChooseWD.Windows.Item(ItemIndex).Caption := '我新建的第一個文檔';//此文檔的第一個窗口的標題,試卷
名稱
5.寫入數據
ChooseWD.Range.InsertAfter('第一行數據'+#13);//#13代表換行
6.設置字體格式
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);//設置字體為22號
7.向WORD中寫入表格
(1)插入表格:
ChooseWD.Tables.Add(ChooseWD.Words.Last, RowNum, ColNum,EmptyParam,EmptyParam);//RowNum為行數,
ColNum為列數
(2)插入數據:
ChooseWD.Tables.Item(1).Cell(1,1).Range.Text := '第一行第一列';
ChooseWD.Tables.Item(1).Cell(2,1).Range.Text := '第二行第一列';
8.向WORD寫入圖片
var
Img: TImage;
MyFormat: Word;
AData: Cardinal;
APalette: HPALETTE;
Img.Picture.LoadFromFile('文件路徑');//從文件夾中導入圖片至控件
Img.Picture.SaveToClipboardFormat(MyFormat,AData,APalette);//將圖片轉存到剪貼板中
Clipboard.SetAsHandle(MyFormat,AData);//將剪貼板中的圖片復制出來,注意添加Clipbrd單元
ChooseWD.Sentences.Last.Paste;//在WORD中粘貼圖片
9.在界面中顯示WORD文檔
ChooseWA.Visible:=true;
10.斷開與WORD的鏈接
ChooseWA.Disconnect;
ChooseWD.Disconnect;
Chart1.SaveToBitmapFile(‘文件名.bmp’);
代碼片段和文件信息
評論
共有 條評論