Unir dos documentos word

[cval]

Hola,

yo lo he hecho via copiar y pegar el documento en la nueva hoja:

tenía que hacer un informe con diferentes apartados cada uno con diferentes plantillas y el elegir cual era la siguiente era algo caótico, muy dificil de hacer con el Rave Report, así que lo hago en Word,
Habro la plantilla en cuestion, la modifico, la copio, cierro la plantilla sin grabar
y la pego en el documento final. si quiero insertar página inserto un salto de página y así voy recorriendo todas las plantillas. El resultado es impresionante, el problema, cuando el documento es muy grande el tiempo que tarda en crearlo Tb lo es.

El código para copiar y pegar es una cosa así:

         num:=ListaTexto.Count; // saco el número de marcadores a insertar
          plant:=WordApp.Documents.Open(Plantilla); //abro la plantilla
           for i:=0 to (num-1) do
              begin
                marcador:='M'+IntToStr(i); // nombre marcadores (M0 M1 ... )
                bkmk := plant.Bookmarks.Item(marcador).Range;
                bkmk.text:=ListaTexto.Strings[i]; //relleno los marcadores 
              end;
           plant.sections.item(1).range.copy;  //Copio la plantilla entera
           plant.close(wdDoNotSaveChanges); //Cierro sin grabar la plantilla
         DocFinal.Content.Paragraphs.Last.Range.InsertParagraphAfter;  //inserto un parrafo
           docFinal.Content.Paragraphs.Last.Range.paste; //Pego el texto en el parrafo nuevo

WordApp,docFinal, plant y marcador son objetos OleVariant (uses ComOBj)
ListaTexto es un Tstrings con el texto a insertar
antes hemos creado WordApp y docFinal:

       WordApp := CreateOleObject('Word.Application');
       docFinal:=WordApp.Documents.add(PlantillaVaciaConMargenes);

AH, para insertar un salto de página:

      docFinal.Content.Paragraphs.Last.Range.InsertParagraphAfter;
      docFinal.Content.Paragraphs.Last.Range.InsertBreak(wdpagebreak);

Pues nada eso es todo, un saludo
PD: si tienes más dudas tengo un objeto entero que hace eso