Редактирование шаблона OLE-Word

#include "ComObj.hpp"
#include <utilcls.h>
Variant vVarApp,vVarParagr,vVarParph,vVarParagraph,v;
bool fStart;    
String str;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        FrmSrr->Close();
        vVarApp=CreateOleObject("Word.Application");    
        vVarApp.OleProcedure("Documents");  
                      vVarApp=CreateOleObject("Word.Application");
              fStart=true;
         
        vVarApp.OlePropertySet("Visible",false);   
        Variant Doc=vVarApp.OlePropertyGet("Documents");       
        Doc.OleProcedure("Add","C\\Sablon.dot",false,0); // загрузка готового документа-шаблона (таблица)
........
}

vVarApp.OlePropertyGet("Selection") .OlePropertyGet("Find").OleProcedur e("Execute",
/*FindText=*/ "Старое_слово", /*MatchCase=*/false, /*MatchWholeWord=*/ false,
/*MatchWildcards=*/false, /*MatchSoundsLike=*/false, /*MatchAllWordForms=*/false,
/*Forward=*/true, /*Wrap=*/1, /*Format=*/false, /*ReplaceWith=*/ Table1->FieldByName("StationName")->AsString.c_str(), /*Replace=*/2);
 
P.S. если просто любое слово вставить:
...
vVarApp.OlePropertyGet("Selection") .OlePropertyGet("Find").OleProcedur e("Execute",
/*FindText=*/ "Старое_слово", /*MatchCase=*/false, /*MatchWholeWord=*/ false,
/*MatchWildcards=*/false, /*MatchSoundsLike=*/false, /*MatchAllWordForms=*/false,
/*Forward=*/true, /*Wrap=*/1, /*Format=*/false, /*ReplaceWith=*/ "Новое_слово", /*Replace=*/2);