关于调用word文档

Darkness1 2003-11-08 08:13:35
我想用D7打开一个word2000的文档,如单击一个按钮用word打开D:\1.doc文档,不知道怎么做,请给出详细的代码。谢谢了
...全文
58 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
gdwyh 2003-11-26
  • 打赏
  • 举报
回复
mark
chwdong 2003-11-25
  • 打赏
  • 举报
回复
OleContainer1.CreateObjectFromFile('d:=1.doc',false);
OleContainer1.DoVerb(0);
farfly 2003-11-25
  • 打赏
  • 举报
回复
试试办公之星控件,客户端无须安装office

软件名称:办公之星控件(OStarOCX)
软件版本:V1.02
更新日期:2003.9.18
运行环境:Win9x/2000/Nt/xp
支持语言:VC/VB/PB/Dephi/ASP/JSP
界面语言:简体中文
授权方式:试用软件
软件大小:1036KB
官方网址:http://www.standsoft.com
电子信箱:lxz@oapro.com
软件作者:深圳智岛软件有限公司
演示工程下载:http://www.oapro.com/ostarocx/download_demo.asp
在线演示:http://www.oapro.com/ostarocx/product_demo.asp
控件简介:

办公之星控件(OStarOCX)是智岛软件公司(http://www.standsoft.com)推出的一款基于图文混排的文档处理控件(类似Word的控件),办公之星控件(OStarOCX)完全封装了办公之星的文字、图形、表格、图表等功能,提供了几百个编程接口;在ERP、CRM、HR、OA等系统里,开发难度非常大的文档处理、统计、报表等输出功能都可由办公之星控件(OStarOCX)轻松实现,其所见即所得的效果跟现实里的完全一样。办公之星控件(OStarOCX)适用于Windows环境的各种开发工具(如VB,VC,Delphi,C+Builder, PB, Java等), 并且针对Web开发环境做了大量的优化。
luhualing 2003-11-08
  • 打赏
  • 举报
回复
procedure tfrmConEdit.P_ShowModeText(iContractID:integer);
var
Filename,PasswordDocument,PasswordTemplate,WritePasswordDocument,
WritePasswordTemplate,Encoding,ConfirmConversions,ReadOnly,
AddToRecentFiles,Revert,Visible,Format,ItemIndex:olevariant;

begin
{联接WORD}
wordapplication1.connect;
wordapplication1.visible := true;
wordapplication1.caption := '柳钢物资管理系统--合同管理模块';
{打开一个指定的WORD文件}
FileName := 'd:/1.doc';
ConfirmConversions:= False;
ReadOnly:=False;
AddToRecentFiles:=False;
PasswordDocument:='';
PasswordTemplate:='';
Revert:=True;
WritePasswordDocument:='';
WritePasswordTemplate:='' ;
Format:=wdOpenFormatDocument;
Visible := true;
Encoding := '';
WordApplication1.Documents.Open(FileName,ConfirmConversions,ReadOnly,
AddToRecentFiles, PasswordDocument, PasswordTemplate,Revert,
WritePasswordDocument, WritePasswordTemplate, Format, Encoding, Visible);
ItemIndex:= 1;
WordDocument1.ConnectTo(WordApplication1.Documents.Item(ItemIndex));
WordApplication1.Options.CheckSpellingAsYouType := False;
WordApplication1.Options.CheckGrammarAsYouType := False;
end;
yudehui 2003-11-08
  • 打赏
  • 举报
回复
http://www.delphibbs.com/delphibbs/dispq.asp?LID=737517

你所要的东西都有了!

5,392

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧