一个问题，想了好久，没有答案，求助！

Question

从数据库里提出某WORD文件，存为临时文件打开，修改后关闭此文件时自动存入数据库，我觉得很难

Answer 1

function OpenWordDocument(const AFileName: String;
  AControl: TCustomMemo): Boolean;
var
  NewDoc: Variant;
  V: OleVariant;
begin
  try
    try
      V := CreateOleObject('Word.Application');//建立自动化对象
      NewDoc :=V.Documents.Open(AFileName); //打开指定文件
      NewDoc.Content.Copy; //拷贝到剪贴板
      AControl.Lines.Clear;
      AControl.PasteFromClipboard; //粘贴
      NewDoc.Close; //关闭Word文件
    finally
      V.Quit; //释放自动化对象
    end;
    Result := True;
  except
    Result := False;
  end;
end;

Answer 2

楼上兄台的方法仅可用于纯文本格式的Word文档.

Answer 3

用ole 不可以吗？修改后自动保存到文件（将文件保存到流然后在提交流到你的数据库中）