如何在delphi7中显示word文件内容？

只显示内容就可以！

解决方案 »

  1.   

    procedure TMainForm.N1Click(Sender: TObject);
    begin
        if OpenDialog1.Execute then
      begin
       Richedit1.Lines.LoadFromFile(OpenDialog1.FileName);
       end;
    end;OpenDialog1.Filter:='*.RTF';
      

  2.   

    to jackie168(花好月圓) :
        文件名我不想从打开文件对话框取，想直接指定，怎么写语句？谢谢你
      

  3.   

    procedure TMainForm.N1Click(Sender: TObject);
    begin
         Richedit1.Lines.LoadFromFile('C:\Test.RTF');   
    end;
      

  4.   

    to jackie168(花好月圓) :
       用你的方法确实实现了word的显示，可为什么不能显示word文档中的图片呢？
      

  5.   

    要显示图片的话，用下面的方法：procedure TMainForm.N1Click(Sender: TObject);
    begin
     WebBrowser1.Navigate('C:\Test.doc');
    end;
      

  6.   

    to jackie168(花好月圓) :
    不行，用这个WebBrowser1.Navigate('C:\Test.doc');方法总是提示‘下载信息’，而且，打开后文件损坏了。还有没有别的好的方法？　　：）　真的谢谢你！
      

  7.   

    楼主想问的是把Word嵌入到程序里吧？
      

  8.   

    to fayeflash(我爱阿菲:
       是啊，就是想在程序的表单上显示word文档，文档中插入有图片，如何实现？
      

  9.   

    看看，这是我的效果图：http://free.efile.com.cn/vsoft/test.gif
      

  10.   

    OleContainer1控件在SYSTEM页面
    OleContainer1.CreateLinkToFile('C:\Test.doc',false);//从指定目录中读出文档
      

  11.   

    to jackie168(花好月圓) :
       你好！我刚才也是显示出来了，可在显示之前，它要提示：‘打开、保存’信息，能不让提示？
      

  12.   

    如果想在delphi程序中能编辑word文档，就用我的方法：WebBrowser1.Navigate('C:\Test.doc');http://free.efile.com.cn/vsoft/test.gif　//这是效果图。
    相反，如果是不用到编辑功能，可以使用zdq801104(【☆我很笨，但是我不傻！☆】) 的方法：OleContainer1.CreateLinkToFile('C:\Test.doc',false);
      

  13.   

    回复人： bgq2003(红红豆) ( ) 信誉：96  2004-12-21 11:28:00  得分: 0   
     
       to jackie168(花好月圓) :
       你好！我刚才也是显示出来了，可在显示之前，它要提示：‘打开、保存’信息，能不让提示？
      
     >>>我的并没有提示：‘打开、保存’信息....
      

  14.   

    留下你的mail，我把整个demo发给你吧...
      

  15.   

    to jackie168(花好月圓):
        
       ，谢谢你，怎么让不提示‘下载提示’
      

  16.   

    to jackie168(花好月圓:
       你好！真的谢谢你！用你的方法在我这里也可以显示了，就是在显示之前将提示‘以后不显示’勾上就可以了。我想请教你，用OleContainer控件也可以显示word文档，可这个控件有没有滚动条呀？文件大的时候如何翻页呀？我没有找到滚动条的属性
      

  17.   

    用OLE打开窗体时,要用OLE.DoVerb(ovShow);或是双击OLE就可以像操作Word那样操作OLE了~
      

  18.   

    to ghy412(用心良苦):
       怎样用OLE打开窗体时,怎样用OLE.DoVerb(ovShow);给个语句呀
      

  19.   

    光是显示,利用WinExec直接调用word.exe的命令行就可以了,后面加上文件名就行了.(如'c:\program files\Ms office\word.exe d:\a.doc')就行了,因为用户的机器上不一定装有MS office,WPS Office等也可以打开word文件呀,把这个信息放在ini文件里,需要时就可以修改,用起来比其它方法都灵活,也没有MS office的版本限制.我在原来做的一个项目就用过此类方法,呵呵.
      

  20.   

    以上方法都不行，还有谁有更好的办法只用来显示‘有图片的word文档’，且要能翻页
      

  21.   

    我正需要这个，如果是.rtf文件，delphi里本能就有例子，请高手指点一下