【结贴】操作word问题**

chenyongci

我想要实现的功能就是把word文档另存为html文件，在delphi中简单如下：
var
    doc: variant;
    Word:variant;
begin
  word:=CreateOleObject('Word.Application');
  word.Visible:=false;
  doc:=word.Documents.open(filename1);
  doc.saveas(FileName:=filename2,FileFormat:=wdFormatHtml);
  word.quit;
end;

假如我想把这样的功能做成控件，导入使用，该怎么做，我没做过第三方控件，看参考文献也没弄明白该怎么做，delphi不怎么熟……
希望你们给点思路，谢谢

shangxy

这个应该不用第三方控件，在平台中按照这个帖子中的方法试试：
http://bbs.justep.com/forum.php? ... ght=CreateOleObject

chenyongci

好像利用平台的这个，没法传入参数，比如wdFormatHtml

像这样简单的处理函数，怎么样做成第三方控件呢？？一点思路都没有，请指导一下，谢谢

zfang

做成第三方控件的话，就是自己用delphi封住好，然后参照平台的那个导入第三方控件的文档进行导入，具体可以在论坛里搜索一下。

chenyongci

哦，，搜不到有用的帖子

问个相关的，呵呵
现在的需求是，服务器端存储项目资料，项目资料部分是已word文档存在，比较大，也包含图片。
客户端在浏览资料时，也会查看这些word资料。
现在的想法是把所有的word文档转成html页面，利用webbrowser嵌入来浏览相关的资料。

假如不转换，直接以word文档的形式存储在服务器，能实现在客户端的浏览吗？并且是有可能几十个用户并发一起浏览这个资料
谢谢，这个问题，现在很郁闷

zfang

我觉得可以用平台的文档服务器来实现吧。
如果不用改平台的文档服务器，你可以自己配一个ftp服务，然后通过ftp的方式把文件下载到本地，然后再打开看。

无论如何，都是要先下载到本地然后再打开看，这样的方式。跟多少个人并发应该没什么关系的。

chenyongci

哦，这样啊，那还是转换文件吧，他们原来有个老版本，用vb写得后台管理程序，也是转换成html网页形式。。

怎么样做第三方控件啊，关键是我现在第一步就不知道怎么做！！！

代码也就1楼所写的那些，，详细指点一下吧，多谢了！！

amao800613

http://bbs.justep.com/forum.php? ... el&pagenumber=1
看看这里面提供的这个WordApp控件能不能满足你需求，office2003

amao800613

还有更简单的办法就是用WebBrowser指向你要另存为的文档，然后调用如下方法另存为文件即可.
WebBrowser.ExecWB(1,1) //打开
WebBrowser.ExecWB(2,1) //关闭所有
WebBrowser.ExecWB(4,1) //另存为
WebBrowser.ExecWB(6,1) //打印
WebBrowser.ExecWB(6,6) //直接打印
WebBrowser.ExecWB(7,1) //打印预览
WebBrowser.ExecWB(8,1) //页面设置
WebBrowser.ExecWB(10,1) //属性
WebBrowser.ExecWB(17,1) //全选
WebBrowser.ExecWB(22,1) //刷新
WebBrowser.ExecWB(45,1) //关闭

----------------------------------------------------
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
  WebBrowser1.ExecWB(4,1); //save as
//自己加一些其他代码设置后缀名
end;

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  openDialog:TOpenDialog;
begin
  try
    openDialog:=TOpenDialog.Create(nil);
    if openDialog.Execute then
    begin
      WebBrowser1.Navigate(openDialog.FileName);
    end;
  finally
    openDialog.Free;
  end;
end;

amao800613

提供一个Word 的操作控件，适用于3088版本。里面包含了相关操作函数。