一个特殊的需求！！高手请进！！

Question

某政府部门将多个小文件保存到一个word文件里。需求是将这个word文件中的多个小文件拆分，并将小文件保存到数据库中（每条记录保存一个小文件，其基本信息包括：文件名、文件日期、文件内容）。该word文件中的多个小文件是以#分隔的，并且，紧接着#的是文件名、文件日期，然后是文件内容，其格式如下：
                          #
                文件名（回车）
                文件日期（回车）
                文件内容（多行，word格式，可能有表格和图片）
                          #
                文件名（回车）
                文件日期（回车）
                文件内容（多行，word格式，可能有表格和图片）
                          #
                          ...
  该word文件中的小文件大概有1000多个，由于数量多，手工将其保存到数据库中很麻烦，如何通过程序将其保存到数据库中？请各位高手帮忙！！小弟这里先谢过了！！

Answer 1

用 WordApplication1,
取得它的 document, 然后，可以放到一个memo
然后，一行一行处理，如 :
for I:=0 to  (Memo1.Lines.Count-1) div 4 do
begin
 if Memo1.Lines[i*4] = '#' then
 begin
   Memo1.Lines[i*4 + 1]; 
    ... end; 
end;