delphi + wordart

[dm12]

есть код, размещающий wordart в колонтитулах.

      vWRD := CreateOleObject('Word.Application');
      vWrd.ActiveDocument.Range.Select;
      vWrd.ActiveWindow.ActivePane.View.SeekView:=wdSeekCurrentPageHeader;
      vWrd.Selection.HeaderFooter.Shapes.AddTextEffect(PresetTextEffect:=1, Text:='пример', 
                            FontName:='Arial',   FontSize:=1, FontBold:=False,FontItalic:=False, Left:=0, Top:=0);
      vShape:=vWrd.Selection.HeaderFooter.Shapes.Item(1);
      vShape.Rotation:= 315;
      vShape.Height:=28;
      vShape.Width  и т.д.

как сделать все тоже самое, но чтобы wordart писался просто в документ (НЕ в колонтитулы) ?
т.е. пользоваться shape но без HeaderFooter...