Foros Club Delphi - Como copiar y pegar?

Hola tengo problemas para copiar y pegar en word
con el siguiente codigo

Código:

 var

w2: OleVariant;

begin

   w2:= ExtractFilePath(Application.EXEName)+'2.DOC';

 WordDocument2.ConnectTo( wordApplication1.Documents.Open(w2,EmptyParam, EmptyParam,EmptyParam,

                       EmptyParam,EmptyParam, EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam));



WordDocument1.Range.Select;

WordDocument1.Range.Copy;

WordDocument1.Range.paste;

Los que pasa es que se pega lo seleccionado uno arriba de otro.

Como puedo hacer para que cada vez que pego lo seleccionado me pase a una pagina siguiente del word