Delphi写数据至WORD--转

 

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;