// Текст по вертикали - снизу вверх.
WordApplication1.Selection.Orientation:=wdTextOrientationUpward;
// Текст по вертикали - сверху вниз.
WordApplication1.Selection.Orientation:=wdTextOrientationDownward;

// Вставить новую страницу.
WordApplication1.Selection.InsertBreak(EmptyParam);

WordApplication1.Selection.InlineShapes.AddPicture(‘Полный путь доступа к картинке',
EmptyParam,EmptyParam,EmptyParam);

var L, E: OleVariant;
 begin
   L:=wdLine;
   E:=wdExtend;
   // В конец строки.
   WordApplication1.Selection.EndKey(L,E);
   // В начало строки.
   WordApplication1.Selection.HomeKey(L,E);

//Скопировать.
WordApplication1.Selection.Copy;
//Вставить.
WordApplication1.Selection.PasteAndFormat(wdPasteDefault);

var L: OleVariant;
 begin
   L:=wdStory;
   // В конец текста.
   WordApplication1.Selection.EndKey(L,EmptyParam);

WordApplication1.Selection.PageSetup.LeftMargin:=WordApplication1.
CentimetersToPoints(1.5);

var What, Which, Name : OleVariant;
....
  What:=wdGoToPage;
  Which:=wdGoToNext;
  Name:='2';
  WordApplication1.Selection.GoTo_(What, Which, EmptyParam, Name);

col:=WordApplication1.Selection.Sentences.Count;

StartLine:=WS.Information[wdFirstCharacterLineNumber];
WS.EndKey(wdStory);
EndLine:=WS.Information[wdFirstCharacterLineNumber];
CountLine:=EndLine-StartLine;