Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Закрыитие документа WORD без сохранения [D7, Win2k, WinXP]


Scorpio ©   (2005-12-19 14:47:00) 

Добрый день мастера.
Подскажите как мне закрыть документ на програмном уровне, чтобы мне не вываливалась просьба о сохранении.


    WordApplication1.Documents.Add(EmptyParam,EmptyParam);
    WordApplication1.Selection.InsertAfter(' '+#13);
    WordApplication1.Selection.InsertAfter(' '+#13);

    WordApplication1.PrintOut;

//          WordApplication1.DisplayAlerts := 1;
    WordApplication1.Quit;


Пробовал с DisplayAlertsпоиграться, но так ничего и не получилось, все равно вываливается просьба сохранить документ.


k2   (2005-12-20 12:11:00) [1]

если документ сохранять не нужно:
ActiveDocument.Saved := false;


umbra   (2005-12-20 12:08:00) [2]

2 Scorpio ©   (20.12.05 09:35) [3]

в ворде DisplayAlerts не булевская переменная, а энумератор. может иметь одно из значений wdAlertsNone, wdAlertsMessageBox, wdAlertsAll.

Справка по Word VBA рулит!


scorpio   (2005-12-20 11:57:00) [3]

Если работать с такой конструкцией:

var
  w : variant;

w := createoleobject('word.basic');
w.filenew;

...

w.docclose(2);

Так она работает, но здесь проблема, я никак не могу найти как мне прыгать по строчкам, чтобы я мог поместить строку в нужное мне место по X*Y, и со своим шрифтом.


Dmitrij_K   (2005-12-20 11:18:00) [4]

Совсем не понимаю почему у меня работает такая неделфовая конструкция

doc.Close(SaveChanges:=False);


Scorpio   (2005-12-20 09:35:00) [5]


WordApplication1.DisplayAlerts := FALSE;

Он мне кидает ошибку:
[Error] Unit2.pas(64): Incompatible types: 'TOleEnum' and 'Boolean'

А что за переменная

WordApp.Quit(false);

Что ей присваивается ???


Slym   (2005-12-19 15:27:00) [6]

WordApp.Quit(false);


LORAN   (2005-12-19 15:22:00) [7]

>>WordApplication1.DisplayAlerts := 1;
С какого перепоя

WordApplication1.DisplayAlerts := FALSE;


Наверх

Титульная страница Поиск, карта сайта Написать письмо