各位大侠:    小虾是一在校学生,目前正在学习Delphi7,碰到一些问题,听说这边高手很多,而且非常热情,乐于助人,故特来请教,恳请各位各侠关心一下小虾!!!
    我的问题是:
       问题1:如何调用Word程序打开指定目录下的Word文件,最好能附有相关的源程序让小虾学习一下?
       问题2:如在ListView中点击某一行数据要实现指定的操作可通过if ListView.items[i].selected then begin {指定操作} end 来实现,可在DBGrid中,如何在点击某一行数据后,实现指定的操作呢?

解决方案 »

  1.   

    var
      app:OleVariant;
    begin
      app:=CreateOleObject("Word.Application");
      app.visible:=true;
      

  2.   

    var
      app:OleVariant;
    begin
      app:=CreateOleObject("Word.Application");
      app.visible:=true;
      app.Documents.Open("c:\1,doc");
    end;
      

  3.   


    //引用ShellAPI单元ShellExecute(Handle,'open',pchar('工作总结.doc'),nil,'D:\My Documents\',SW_SHOWNORMAL);
      

  4.   


    其中app:=CreateOleObject( "Word.Application ");这句为什么会有错误提示:')' expected but identifier 'Word' found
    哪位大侠解释下?
      

  5.   

    var
      MSWord: OleVariant;MSWord := CreateOleObject('Word.Application');
    MSWord.Documents.Open(patch+'test.doc');
    MSWord.ActiveDocument.SaveAs(patch+'Test.Txt',2);
    MSWord.quit;
      

  6.   

    加入 wordxp,或者word2000