Ole сервер Word

[s100i29]

Доброго времени суток.
Имеется готовый шаблон *.doc
Необходимо вставить с помощью оле-сервера word, текст в конкретную позицию.
Если делать с помощью команды OlePropertyGet, вставленный текст замещает существующий.
Жду вашего ответа спасибо!

[s100i29]

Хоть кто нибудь отзовитесь!

[fgghj]

Сообщение от s100i29

Хоть кто нибудь отзовитесь!

Если еще нужна помощь, я это так реализовала (если нужно вставить данные из таблицы):
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Variant T;
if(!fStart)
{
try
{
vVarApp=CreateOleObject("Word.Appli cation");
fStart=true;
}
catch(...)
{
MessageBox(0, "Ошибка при открытии сервера Word",
"Ошибка", MB_OK);
return;
}
}

vVarApp.OlePropertySet("Visible",tr ue);
vVarDoc=vVarApp.OlePropertyGet("Doc uments");
vVarDoc.OleProcedure("Open", "D:\\File.doc");
vVarDoc=vVarDoc.OleFunction("Item", 1);
vVarDoc.OleProcedure("Activate");

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);

Вот как-то так!

[s100i29]

Сообщение от fgghj

Если еще нужна помощь, я это так реализовала (если нужно вставить данные из таблицы):
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Variant T;
if(!fStart)
{
try
{
vVarApp=CreateOleObject("Word.Appli cation");
fStart=true;
}
catch(...)
{
MessageBox(0, "Ошибка при открытии сервера Word",
"Ошибка", MB_OK);
return;
}
}

vVarApp.OlePropertySet("Visible",tr ue);
vVarDoc=vVarApp.OlePropertyGet("Doc uments");
vVarDoc.OleProcedure("Open", "D:\\File.doc");
vVarDoc=vVarDoc.OleFunction("Item", 1);
vVarDoc.OleProcedure("Activate");

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);

Вот как-то так!

Спасибо, помогло!) А не подскажите ещё где можно взять литературу по работе с ole сервером ворд или видеоуроки. Заранее спасибо!)