请教一个问题,谢谢各位大虾 哦,我想知道delphi到底能不能将word数据导入,做了修改之后再存储到硬盘上因为在做毕业设计,所以,急需谢谢各位了,帮个忙吧 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 DELPHI:在Word插入字符 现在的文档很多都是用Word软件来编辑的,但如果你想在程序中把某些字符插入到Word文档中,那么下面的程序帮你忙: procedure TForm1.Button1Click(Sender: Tobject); var MSWord: Variant; begin MSWord := CreateOLEObject('Word.Application');//连接Word MSWord.Documents.Open(FileName:='d:\test.doc', ReadOnly:=True);//打开外部Word文档 MSWord.Visible := 1;//是否显示文件编辑 MSWord.ActiveDocument.Range(Start:=0, End:=0);//开始改变的启止位置 MSWord.ActiveDocument.Range.InsertAfter(Text:='Title');//在Word中增加字符'Title' MSWord.ActiveDocument.Range.InsertParagraphAfter; MSWord.ActiveDocument.Range.Font.Name := 'Arial';//字体名称 MSWord.ActiveDocument.Range.Font.Size := 24;//字体大小 end; 在动态库中使用IdTCPClient与IdTCPServer通讯的问题。 listview用法 关于IDFTP无响应的问题(被系统要求结了一个没人给答案的帖子,没分了) 关于POS机上的嵌入式系统移植道通用PC上的实现. 如何提高Socket的连接速度,以及连接数(在线等待...) 如何自动放大和缩小菜单的字体和图标 怎样把自定义数据类型存入表的字段中 请大家帮忙,急,急,急,急,急,! 请问控件的使用方法? 通达信日线.day文件解析,成交额字段有误,求高手指教 tadoquery 帮看一下 belllab,你有DevExpress系列 For D7版的下载地址吗?
那么下面的程序帮你忙:
procedure TForm1.Button1Click(Sender: Tobject);
var MSWord: Variant;
begin
MSWord := CreateOLEObject('Word.Application');//连接Word
MSWord.Documents.Open(FileName:='d:\test.doc', ReadOnly:=True);//打开外部Word文档
MSWord.Visible := 1;//是否显示文件编辑
MSWord.ActiveDocument.Range(Start:=0, End:=0);//开始改变的启止位置
MSWord.ActiveDocument.Range.InsertAfter(Text:='Title');//在Word中增加字符'Title'
MSWord.ActiveDocument.Range.InsertParagraphAfter;
MSWord.ActiveDocument.Range.Font.Name := 'Arial';//字体名称
MSWord.ActiveDocument.Range.Font.Size := 24;//字体大小
end;