Поиск:

Ответ в темуСоздание новой темы Создание опроса
> WordApplication сохранение документа 
V
    Опции темы
MoLeX
Дата 26.4.2011, 08:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Местный пингвин
****


Профиль
Группа: Модератор
Сообщений: 4076
Регистрация: 17.5.2007

Репутация: 1
Всего: 140
Добрый день.

Не получается сохранить документ при закрытие ворда (по кнопке получается).

Код

// Создаем документ
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        WordApplication1->Connect();
        WordApplication1->set_Visible(true);
        WordApplication1->Documents->Add(EmptyParam, EmptyParam);
        WordApplication1->Activate();
}

// Сохраняем при закрытие ворда
void __fastcall TForm1::WordApplication1Quit(TObject *Sender)
{
        WordApplication1->ActiveDocument->SaveAs(TVariant("D:\\test.doc"));
        WordApplication1->Disconnect(); 
}

// Сохраняем по нажатии кнопки на форме
void __fastcall TForm1::Button2Click(TObject *Sender)
{
        WordApplication1->ActiveDocument->SaveAs(TVariant("D:\\test.doc"));
        WordApplication1->Disconnect();        
}


P.S. ошибка в аттаче

Присоединённый файл ( Кол-во скачиваний: 9 )
Присоединённый файл  __________.png 26,75 Kb


--------------------
Amazing  smile 
PM MAIL WWW ICQ   Вверх
xvr
Дата 26.4.2011, 11:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223
Судя по ошибке на момент вызова WordApplication1Quit ActiveDocument'а в Word'е уже нет (закрылся?)
PM MAIL   Вверх
MoLeX
Дата 26.4.2011, 14:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Местный пингвин
****


Профиль
Группа: Модератор
Сообщений: 4076
Регистрация: 17.5.2007

Репутация: 1
Всего: 140
xvr, угу. а как сделать тогда, чтобы при попытки закрыть ворд сначала сохранялся документ?


--------------------
Amazing  smile 
PM MAIL WWW ICQ   Вверх
xvr
Дата 26.4.2011, 20:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223
Цитата(MoLeX @ 26.4.2011,  14:06)
xvr, угу. а как сделать тогда, чтобы при попытки закрыть ворд сначала сохранялся документ?

Например ловить событие Application.DocumentBeforeClose
PM MAIL   Вверх
MoLeX
Дата 27.4.2011, 07:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Местный пингвин
****


Профиль
Группа: Модератор
Сообщений: 4076
Регистрация: 17.5.2007

Репутация: 1
Всего: 140
Что-то у меня не получается совсем  smile 


--------------------
Amazing  smile 
PM MAIL WWW ICQ   Вверх
xvr
Дата 27.4.2011, 09:56 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 7046
Регистрация: 28.8.2007
Где: Дублин, Ирландия

Репутация: 48
Всего: 223
Ну тогда можно попробовать event Close у Document'а
PM MAIL   Вверх
MoLeX
Дата 27.4.2011, 10:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Местный пингвин
****


Профиль
Группа: Модератор
Сообщений: 4076
Регистрация: 17.5.2007

Репутация: 1
Всего: 140
xvr, через него получилось. в итоге программа стала такая:
Код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        WordApplication1->Connect();
        WordApplication1->set_Visible(true);
        WordApplication1->set_Caption(L"Test");
        WordApplication1->GetDefaultInterface()->Visible = true;
        WordApplication1->Documents->Add(EmptyParam, EmptyParam);
        WordDocument1->ConnectTo(WordApplication1->ActiveDocument);
        WordDocument1->Activate();
}

void __fastcall TForm1::WordDocument1Close(TObject *Sender)
{
        WordDocument1->SaveAs(TFile);
        WordDocument1->Disconnect();
}



--------------------
Amazing  smile 
PM MAIL WWW ICQ   Вверх
srt
Дата 1.5.2011, 21:20 (ссылка) | (голосов:1) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 13.5.2008

Репутация: нет
Всего: 1
просто прочитайте инструкцию
это просто
PM MAIL   Вверх
MoLeX
Дата 2.5.2011, 11:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Местный пингвин
****


Профиль
Группа: Модератор
Сообщений: 4076
Регистрация: 17.5.2007

Репутация: 1
Всего: 140
srt, тема помечена как решенной! 


--------------------
Amazing  smile 
PM MAIL WWW ICQ   Вверх
srt
Дата 2.5.2011, 13:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Шустрый
*


Профиль
Группа: Участник
Сообщений: 65
Регистрация: 13.5.2008

Репутация: нет
Всего: 1
незаметил - сорри
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "С++ Builder"
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по С++ Builder обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Настоятельно рекомендуем заглянуть в DRKB (Delphi Russian Knowledge Base) - крупнейший в рунете сборник материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | C++ Builder | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0491 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.