У меня есть файл который необходимо открыть из приложения, для простоты маленький исходник:

Код

OleVariant FileName;    WordApplication1->Connect(); if (OpenDialog1->Execute()){  FileName = OpenDialog1->FileName;  WordDocument1->ConnectTo(WordApplication1->Documents->Open(FileName)); // WordDocument1->ConnectTo(WordApplication1->Documents->Open(FileName));  }

Файл открывается, но только со второго раза, т.е. для его открытия я должен два раза вызвать :
WordDocument1->ConnectTo(WordApplication1->Documents->Open(FileName));

А почему с первого раза не хочет?

возможно потому, что в первый раз ворд не открыт.
покажи весь код...

_hunter Да это весь код и есть, просто я сначала делаю выгрузку данных в файл(это я как раз таки и не писал), а потом подхватываю его вордом. Просто подобными вещами впервые занимаюсь. Код подсмотрел в книжке Архангельского, там написано, что все должо открываться. На самом деле не это не так. А как тогда просто ворд открыть?

На WordApplication1->Visible = true; - Показать окно, если открыт Word он ругается:
'TWordApplication::Visible' is not accessible

Это сообщение отредактировал(а) Oberon83 - 19.9.2005, 14:47

открыть так:
CreateOleObject("Word.Application");

+ где WordApplication1 ( это если код весь )?
++ может ты после выгрузки ворд закрываеш

Цитата(_hunter @ 19.9.2005, 15:01)

открыть так: CreateOleObject("Word.Application");

Не открывает. Показывает песочные часики - вроде как что - то делает, а word не открывает. Проблема действительно в том, что word закрыт. Если сделать то же самое при отрытом ворде, то в нем появляется второй лист с моими данными.

а процесс появляется?
можно попробовать так:
wordApp.OlePropertySet<VARIANT_BOOL>("Visible", true);
сделать

Код

FileName = OpenDialog1->FileName; WordApplication1->Documents->Add(FileName,EmptyParam) ; WordDocument1->ConnectTo(WordApplication1->WordApplication1->ActiveDocument);

_hunter Процесс появляется.
Добавлено @ 07:21

Цитата(bas @ 19.9.2005, 16:50)

Код  FileName = OpenDialog1->FileName; WordApplication1->Documents->Add(FileName,EmptyParam) ; WordDocument1->ConnectTo(WordApplication1->WordApplication1->ActiveDocument);

То же не помогает. Процесс появляется в списке, а само окно Word'a ни в какую не хочет.

Решил проблему следующим образом:

Код

Variant word_app; Variant word_docs; Variant word_this_document; char* f = "D:\\www.doc"; word_app = Variant::CreateObject("word.application"); word_docs = word_app.OlePropertyGet("documents"); word_this_document = word_docs.OleFunction("Open",f); word_app.OlePropertySet("Visible",(Variant)true);

Все теперь работает.
Всем спасибо за помощь.

Еще вопрос по теме.
Как теперь записать набор какихто символов. А потом удалить их же?