Легенда:
новое сообщение
закрытая нитка
новое сообщение
в закрытой нитке
старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
итак.. 16.02.05 17:50 Число просмотров: 1773
Автор: Duke Статус: Незарегистрированный пользователь
|
> Eсли мне не изменяет склероз, то примерно так: > 1) Project -> Import Type Library > 2) Выбираем из списка "Microsoft Word 10.0 Object Library" > 3) Создаем "WordApplication" > 4) etc.. ну.. зачем это импортировать я так и не понял...
вобщем я делаю так:
Variant WordAppl;
Variant Docs;
Variant Doc;
Variant BMs;
Variant BM;
Variant Range;
WordAppl = Variant::CreateObject("Word.Application");
WordAppl.OlePropertySet("Visible", Variant(true));
Docs = WordAppl.OlePropertyGet("Documents");
Docs.Exec(Procedure("Open")<<ExtractFilePath(Application->ExeName)+"\\äî âîñòðåáîâàíèÿ.doc");
Doc=WordAppl.OlePropertyGet("ActiveDocument");
BMs=Doc.OlePropertyGet("Bookmarks");
BM=BMs.Exec(Procedure("Item")<<"MY_BOOKMARK");
BM.Exec(Procedure("Select")); -- здесь вылетает.. так как строкой выше BM почему-то присваивается -1 вместо Bookmark..
Range=WordAppl.OlePropertyGet("Selection");
Range.OlePropertySet("Text","mytext");
чего можно сделать?...
как эту чертову закладку выделить чтобы вместо нее свой текст вставить?!!!!
|
|
|