Замена текста в автофигуре word

tagVARIANT a = (OleVariant) 2;
 WordApplication1->ActiveDocument->Shapes->Item(&a)->Select();
 TVariant strFindFor = "~№", strReplaceWith = "123";
 WordApplication1->Selection->Find->Execute( strFindFor,EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, strReplaceWith,
 (TVariant)wdReplaceAll,EmptyParam, EmptyParam, EmptyParam, EmptyParam);

WordApplication1->ActiveWindow->ActivePane->View->SeekView = wdSeekCurrentPageHeader;

tagVARIANT a = (OleVariant) 2;//номер автофигуры
WordApplication1->ActiveWindow->ActivePane->View->SeekView = wdSeekCurrentPageHeader;//активируем колонтитул
WordApplication1-> Selection->HeaderFooter->Shapes->Item(&a)->Select();//выделяем автофигуру
TVariant strFindFor = "~№";//метка - текст в автофигуре
TVariant strReplaceWith = "111";//на что заменяем
WordApplication1->Selection->Find->Execute(strFindFor,EmptyParam, EmptyParam, EmptyParam, EmptyParam,
 EmptyParam, EmptyParam, EmptyParam, EmptyParam, strReplaceWith,
 (TVariant)wdReplaceAll,EmptyParam, EmptyParam, EmptyParam, EmptyParam);