请那位朋友帮忙,帮我写一段程序,内容是:1,用程序写新建一个word文档并保存为文件名为dd.doc,
2,在dd.doc里第一行,第十列写“我爱你”,在第一行,第五十列写“一万年”,在第三行,第十列
写“谢谢”,在第三行,第五十列写“永远的爱”
2,在dd.doc里第一行,第十列写“我爱你”,在第一行,第五十列写“一万年”,在第三行,第十列
写“谢谢”,在第三行,第五十列写“永远的爱”
解决方案 »
- ClientDataSet1控件怎么删除数据?
- 这种进制怎么转换成文本?
- 我在用TCP做一个类似于QQ的东东,请问如何从数据库读取好友分组和好友数据显示出来,这种树状结构最好用什么来处理,因为我还要添加删除分组等,组还要显示好友!
- 一個Tedit編輯框如何跟access數據庫中的一個user表的name字段進行綁定?
- 类的私有成员访问问题。
- 我觉得有点难且有趣的问题:怎样用SQL语言返回结果,使DBCHART形成饼图?
- 错在那里
- 关于两个DateTimePicker执行偱环的问题?
- 做报表时,如何显示共有多少条记录以及是否可以设置显示日期的格式?
- ADO访问数据库时,如何导出数据库记录到一个新的数据库类型文件中如Excel,Access
- 求救,关于自动登陆。
- 为什么我的dll会出现没有接入点?
\ /
\ /
\/
????????????????????????????????????????????????
用Memo、TWordApplication就可以啦,自己写代码
因为,代码是非常长的~~
http://expert.csdn.net/Expert/topic/1806/1806110.xml?temp=.2416803
matchcase := false;
matchwholeword := True;
matchwildcards := false;
matchsoundslike := false;
matchallwordforms := False;
to_forward := true;
wrap := wdFindContinue;
replace_format := false;
replace := True;
for I:=0 to StringListA.Count-1 do
begin
findtext := StringListA.Strings[I];
replacewith := StringListB[.Strings[I];
replacewith:='^c';
WordDocument1.range.find.execute( findtext, matchcase, matchwholeword,
matchwildcards, matchsoundslike, matchallwordforms, to_forward,
wrap, replace_format,replacewith, replace ); WordDocument1.range.find.execute( findtext, matchcase, matchwholeword,
matchwildcards, matchsoundslike, matchallwordforms, to_forward,
wrap, replace_format, replacewith, replace ); end;
……