delphi如何调用WORD进行文件管理

Question

文件分部门归类，部门的文件又分一般文件和记录表格小类，文件有文件名称和文件内容组成，全部文件都是WORD文档，
                                    
要求：1、用户可以随时为某个部门添加、删除、修改该部门的文件。当添加一个新的文件名称是，系统应该可以调用WORD给用户编辑然后保存。用户可以根据文件名称查询，然后可以点击该文件名称连接到该文件名称对应的WORD文档，进行修改保存2、可以按照部门为查询条件，列出该部门所有的文件，可以按照部门+文件分类查询列出要查询的文件分类列表，也可以按照部门+文件分类+文件名称模糊查询，可以按照部门+文件名称模糊查询，用户可以点击某文件浏览该文件的内容（浏览该文件的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;