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;
/**************************************************************
 WordDocuments.Open(FileName,ConfirmConversions,ReadOnly,PassWordDocument,
 PasswordTemplate,Revent,WritePasswordDocument,WritePassWordTemplate,
 Format,Encoding,Visible)

FileName: 文档名(包含路径)
Confirmconversions: Variant 类型,可选。该属性为 True 时,如果文档不是 Microsoft Word 格式 ,则显示“文件转换”对话框。
ReadOnly: 是否以只读方式打开文档
AddToRecentFiles: 是否将文件添加到"文件"菜单底部的最近使用文件列表中
PassWordDocument: 打开此文档时所需要的密码
PasswordTemplate: 打开此模板时所需要的密码
Revert: Variant 类型,可选。用于控制当 FileName 与已打开的文档同名时执行的操作。如果此属性 为 True,则放弃对已打开文档进行的所有尚未保存的改动,并将重新打开该文档。如果此属性 为 False,则激活已打开的文档。
WritePasswordDocument: 保存对文档更改时所需要的密码
WritePasswordTemplate: 保存对模板进行更改时所需要的密码
Format: 打开文档时所需使用的文件转换器
Encoding: 所使用的文档代码页
Visible: 打开文档的窗口是否可见

举例:
Doc_Handle:=Word_Ole.Documents.open(FileName:=Doc_File,ReadOnly:=False,
AddToRecentFiles:=False);

***********************************************************************/ 
三.表格插入数据
 WordDoc.Tables.Item(TbIndex).cell(cellrow,cellcol).Range.InsertAfter(conStr);
        /*
  表格(编号:Tbindex);
    插入表格中第cellrow行,cellcol列中
    插入内容为conStr
 */
四.在指定行写数据
 WordDoc.Paragraphs.Item(16).Range.InsertAfter('abcd');
 /*在第16行的位置插入'abcd'*/
五.指定字符位置插入数据
 MyRange: OleVariant;
 MyRange := wordDoc.Range(Start:=0,End:=10);
 MyRange.InsertAfter('abcd'+#13);
 /*在第10个字符位置输入'abcd'换行*/
六.文件保存
 wordDoc.SaveAs(filename);
/*这个函数还有其他参数用来控制,VBA中讲解的很详细*/

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

//测试当前是否运行了word
try
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));

©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页