delphi word 转html,Delphi操作word的基本用法 (转)

刚把delphi捡起来，第一个要做的竟然操作word，总结一下。

一. 定义word应用程序，文档对象，比如：

wordApp: OleVariant;

wordDoc: OleVariant;

二. 打开word文档

wordApp :=

CreateOleObject('Word.Application');

wordDoc :=

WordApp.Documents.Open(FileName:=filename,

ReadOnly:=

false, Revert:=True, Visible:= True);

WordApp.Visible :=

false;

三.表格插入数据

WordDoc.Tables.Item(TbIndex).cell(cellrow,cellcol).Range.InsertAfter(conStr);

四.在指定行写数据

WordDoc.Paragraphs.Item(16).Range.InsertAfter('abcd');

五.指定字符位置插入数据

MyRange: OleVariant;

MyRange := wordDoc.Range(Start:=0,End:=10);

MyRange.InsertAfter('abcd'+#13);

六.文件保存

wordDoc.SaveAs(filename);

七.连接word(联系:二打开文档)

//测试当前是否运行了wordtry

v := getactiveoleobject(word.application);

except

//未运行则运行之

v := createoleobject(word.basic);

end;

try

//连接到word

wordapp.connect;

except

beep;

messagedlg(不能生成文档，请确认是否安装了word 2000！, mterror, [mbok], 0);

abort;

end;

//

八.复制打开的word的内容

WordApp :=

CreateOleObject('Word.Application'); //创建word对象

WordApp.Documents.open(file1); //打开一个word文档

wordapp.visible:=false; //是否让打开的word文档显示出来

wordapp.activedocument.select; //选取打开的word文档中全部内容

wordapp.selection.copy; //拷贝选取的内容

memo1.PasteFromClipboard; //把拷贝的内容粘贴到richedit中

WordApp.Quit; //关闭对象

九.粘贴至word(粘贴板)

WordApp :=

CreateOleObject('Word.Application'); //创建word对象

WordApp.Visible:= True ;

WordApp.Documents.Add;

WordApp.Documents.Item(1).Range.paste;

十.新建文档:

格式：WordDocuments.Add(Template,NewTemplate,DocumentType,Visible)

Template： 使用模板的名称，

NewTemplate： 新建文档的类型，True表示为模板，False表示为文档

DocumentType： 文档类型，默认为空白文档

Visible： 打捞的窗口是否可见

举例：Doc_Handle:=Word_Ole.Documents.Add(Template:='C:/Temlate.dot',NewTemplate:=False);

十一.连接已打开文档

WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));