我有一些word文档,要给它作成索引。不用数据库,怎么做呀!!?

解决方案 »

  1.   

    建议你多看一些OLE技术文档!
      

  2.   

    opendialog1.filter := '*.doc|*.doc'if opendialog1.Execute then
    begin
            OleContainer1.CreateObjectFromFile(opendialog1.FileName, false);
            OleContainer1.DoVerb(ovshow);
    end;
      

  3.   

    if opendialog1.Execute then
         begin
            OleContainer1.CreateObjectFromFile(opendialog1.FileName, false);
            OleContainer1.DoVerb(ovshow);
         end;
      

  4.   

    var
       FileName :string;
    begin
       if odgLawInput.Execute then
        begin
         FileName := odgLawInput.FileName;
         mmoLawtext.Lines.LoadFromFile(filename);
         end
         else
         exit;
    end;
      

  5.   

    如果不太懂OLE、自动化的话,你可以用TurboPower的Office Partner,免费,好用,基本上除了OfficeXP新增的一些特殊功能外,Office的功能都能支持。