Работа С Word

[Guest]

Доброе время суток!
У меня такая проблема: пытаюсь добавить текст в документ word в месте закладки, но текст все время добавляется в начало документа.
Вот кусок кода:

	OleVariant fPath = GetCurrentDir() + "\\word.doc";
WordApplication1->Documents->Open(fPath,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam);
OleVariant bm="Phone";
Variant ints=-1;
WordApplication1->Selection->GoTo(ints,EmptyParam,EmptyParam,bm);
WordApplication1->Selection->TypeText(WideString("234"));

Заранее спасибо!!!

 

[hosm]

попробуйте добавить перед переходом проверку на WordApplication1->ActiveDocument->Bookmarks->Exists(bm) - это проверка, что закладка есть в текущем документе.

 

[Guest]

Спасибо за подсказку! Проверил - существует. Но это проблемы не решило(( Для проверки пришлось bm из OleVariant переделать в Variant(иначе писало ошибку и не компилировалось). Но теперь пишет ошибку о несоответствии типов в GoTo((

 

[Guest]

Я разобрался)))) Я нашел в интернете что можно сделать так:

  TVariant bm="Phone";
WordApplication1->Selection->GoTo(ints,EmptyParam,EmptyParam,&bm);

Спасибо за помощь!