Доброго дня!

Парни, кто может подсказать. Проблема в следующем.
Склеиваю вордовские файлы (Д7), но условие – при склейке, на новом листе куда тянем данные источника нужно выставить размеры полей и ориентацию листа как у источника.

Набросал пример, с одним файлом все работает.
Но при подтягивании следующего файла и выставлении параметров – настройки применяются не к конкретному листу, а всему документу!

Пробовал решить вопрос поиском, как  сменить позицию курсора, но не получается каменный цветок … !
Кто что подскажет!

Мой приме:


  var
    _WordApp_, _WinDocument_, _WinDocumentRange_: OleVariant;
  Const
    _Word_Title_    = 'Word.Application';
  Function CentimetersToPoints( _Steps_: Single ): Single;
  begin
    Result := ( 28.5 * _Steps_ );
  end;
begin
  _WordApp_ := CreateOleObject( _Word_Title_ );
  _WordApp_.Visible := True;

  _WinDocument_ := _WordApp_.Documents;
  _WinDocument_.Add;

  _WinDocumentRange_ := _WordApp_.ActiveDocument.Range;
  _WordApp_.ActiveDocument.Range.Font.Color    := RGB( 250, 50, 147 ); //clred;
  _WordApp_.ActiveDocument.Range.Font.Bold      := True;
  _WordApp_.ActiveDocument.Range.Font.Underline := True;
  _WordApp_.ActiveDocument.Range.Font.Size      := 17;
  _WinDocumentRange_.InsertAfter( DateTimeToStr( NOW ) );

  _WordApp_.ActiveDocument.PageSetup.Orientation := wdOrientLandScape;

  _WinDocumentRange_.PageSetup.TopMargin      := CentimetersToPoints( 0.5 );
  _WinDocumentRange_.PageSetup.RightMargin    := CentimetersToPoints( 0.5 );
  _WinDocumentRange_.PageSetup.BottomMargin  := CentimetersToPoints( 0.5 );
  _WinDocumentRange_.PageSetup.LeftMargin    := CentimetersToPoints( 0.5 );

End;