char *file_name;
   file_name="c:\\test.doc";
   //запуск ворда и открытие в нем файла
   Variant app;
   app=CreateOleObject( "Word.Application" );
   app.OlePropertySet("Visible", (Variant)true);
   Variant docs;
   docs=app.OlePropertyGet("Documents");
   docs.OleProcedure("Open", file_name);
   Variant adoc;
   adoc=app.OlePropertyGet("ActiveDocument");

void __fastcall TMainForm::SetBookmarkValue(Variant doc,AnsiString bookmark_name,\
	AnsiString value, bool is_insert_after)
{
   /*
   doc - текущий документ Word.Application
   Вставка текстовой строки value в позицию закладки с именем bookmark_name
   Значение вставляется до(is_insert_after=false) или после (is_insert_after=true) позиции закладки.
   */
   Variant bookmarks;
   Variant bookmark;
   Variant range;
   bookmarks=doc.OlePropertyGet("Bookmarks");
   try
   {  
	bookmark=bookmarks.Exec(Function("Item") << bookmark_name.c_str());
   	range=bookmark.OlePropertyGet("Range");
	if(is_insert_after)
   	{
	   range.Exec(Procedure("InsertAfter") <<value);
	}
   	else
	{
	   range.Exec(Procedure("InsertBefore") <<value);
	}
   }
   catch(...)
   {
   	ShowMessage(AnsiString("Ошибка ввода данных в закладку: ")+bookmark_name);
   }
}