[NumLock]

Код:

const
  WdStory = 6;
var
  WordApplication: OleVariant;
begin
  WordApplication:=CreateOleObject('Word.Application');
  WordApplication.Documents.Open(FileName:='D:\Projects\Новая папка\Doc1.doc');
  WordApplication.Selection.EndKey(Unit:=WdStory);
  WordApplication.Selection.TypeParagraph;
  WordApplication.Selection.InsertFile(FileName:='D:\Projects\Новая папка\Doc2.doc');
  WordApplication.ActiveDocument.SaveAs(FileName:='D:\Projects\Новая папка\Doc.doc');
  WordApplication.Quit;
end;