Delphi開發經驗技巧：可入文ADD下拉列表

    ——此文章摘自《Delphi開發經驗技巧寶典》定價￥　特價￥ 購買>>

    應用程序可以把Word中的文本提取出來作為模糊查詢的依據或其他操作本例是單擊打開文檔按鈕從選中的Word文檔中提取文本內容如圖所示

    通過createoleobject方法創建OLE對象通過OLE對象的DocumentsOpen方法打開所選中的Word文檔從文檔中提取出文本內容顯示在RichEdit中主要代碼如下
    procedure TFormButtonClick(Sender: TObject);
    var
      wordapp doc: olevariant;
      strs: TStringList;
    begin
      if OpenDialogExecute then
      begin
       strs := TStringListCreate;
       wordapp := createoleobject(Wordapplication);
       try
        doc := wordappDocumentsOpen(FileName := OpenDialogFileName);
        RichEditText := docrangeText;
        docClose;
       finally
        wordappquit;
        strsFree;
       end;
      end;
    end;

圖  讀取Word中的文本

From:http://tw.wingwit.com/Article/program/Delphi/201311/24881.html