数学题库的思路：从数据库里读取的多个word文档如何合并为一个

Question

我从数据库里读取很多word文档，想把这些合并为一个，以方便打印，那位高手写过这些方面的东西，能否给我介绍以下，有原码的更好
谢谢

Answer 1

WordApplication1 := TWordApplication.Create(Application);
  wordapplication1.Connect;
  wordapplication1.Visible:=true;
  wordapplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  worddocument1.ConnectTo(wordapplication1.ActiveDocument);
  wordapplication1.ChangeFileOpenDirectory(templateName);
  wordapplication1.Selection.InsertFile('样本.DOC',EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  wordapplication1.Selection.InsertFile('样本-2.DOC',EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  wordapplication1.Selection.InsertFile('样本-3.DOC',EmptyParam,EmptyParam,EmptyParam,EmptyParam);