non è difficile, ti serve qualcosa tipo questo
(non l'ho compilato, vado a memoria)

codice:
uses comobj;

var    WordApp:variant;
   WordAppFuso:variant;

begin
 WordAppFuso := CreateOleObject('Word.Application');
 WordAppfuso.visible:=false;
 WordAppFuso.Documents.Open(nome_file_word_vuoto); // consiglio: usa un documento Word vuoto da aprire
 WordappFuso.Selection.wholestory;
 WordappFuso.selection.cut; // in questo modo non devi creare un nuovo documento word, cosa non banale con le 700 versioni diverse di Word


   WordApp := CreateOleObject('Word.Application');
 (...) qui cicla N volte. Sostanzialmente apri il file, selezioni tutto, copi tutti, chiudi il file, incolli dentro il WordAppFuso
  WordApp.Documents.Open(fileDaAprire);
  WordApp.Selection.wholestory;
  WordApp.Selection.copy;
  WordApp.activedocument.close;
  WordAppFuso.selection.Paste;
// eventualmente metti questo  WordAppFuso.selection.insertbreak(7); //wdpagebreak

(...)

  WordApp.quit(false); 
  WordAppFuso.Documents.Item(1).SaveAs(fileSalvato);
  WordAppFuso.activedocument.close;
  WordAppfuso.quit(false);
  
end;
E' una procedura lenta, ma funziona.
Ovviamente ci devi mette try..except, verifiche sull'esistenza dei file e "roba varia", questa è l'idea