void WordInit(AnsiString FileName)
{
char *file_name;
file_name=FileName.c_str() ;
//запуск ворда и открытие в нем файла
Variant app;
app=CreateOleObject( "Word.Application" );
app.OlePropertySet("Visible", (Variant)true);
docs=app.OlePropertyGet("Documents");
docs.OleProcedure("Add",file_name);

adoc=app.OlePropertyGet("ActiveDocument") ;
}

void WordReplace(AnsiString From, AnsiString To)
{
Variant EmptyParam;
adoc.OleFunction("Range").OlePropertyGet("Find").OleProcedure("Execute",
StringToOleStr(From),
EmptyParam,
EmptyParam,
EmptyParam,
EmptyParam,
EmptyParam,
EmptyParam,
OleVariant(wdFindContinue),
EmptyParam,
StringToOleStr(To),
OleVariant(wdReplaceAll)
);
}

void __fastcall TF_Dog::Button3Click(TObject *Sender)
{
WordInit(DM->Q_TipDogF_Dog->AsString);
WordReplace("#НомерДоговора#",DM->Q_Dogovorcontract->AsString +"-"+ DM->Q_Dogovorsub->AsString);

}

У меня WinXP
Имя шаблона такое:
"S:\\DOG_DBF\\Contract\\Шаблоны\\Приложение-2-1.dot"
Это реально скществующий шаблон

И еще надо
#include <word_2k.h>
чтобы понимал wdFindAsk