Question

如何在Delphi中显示和存取Word文档之急上加

Answer 1

一. 定义word应用程序，文档对象，比如：
wordApp: OleVariant;
wordDoc: OleVariant;
二. 打开word文档
wordApp := CreateOleObject('Word.Application');
wordDoc := WordApp.Documents.Open(FileName:=filename,
ReadOnly:= false, Revert:=True, Visible:= True);
WordApp.Visible := TRUE;
三.表格插入数据
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(联系:二打开文档)
//测试当前是否运行了word
try
v := getactiveoleobject(word.application);
except
//未运行则运行之
v := createoleobject(word.basic);
end;r /> 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));