Вниз
Скачать: CL | DM;

Закрыитие документа WORD без сохранения   Найти похожие ветки 

 
Scorpio ©   (2005-12-19 14:47) [0]

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


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

    WordApplication1.PrintOut;

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


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


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

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

WordApplication1.DisplayAlerts := FALSE;


 
Slym ©   (2005-12-19 15:27) [2]

WordApp.Quit(false);


 
Scorpio ©   (2005-12-20 09:35) [3]


WordApplication1.DisplayAlerts := FALSE;

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

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

WordApp.Quit(false);

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


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

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

doc.Close(SaveChanges:=False);


 
scorpio ©   (2005-12-20 11:57) [5]

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

var
  w : variant;

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

...

w.docclose(2);

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


 
umbra ©   (2005-12-20 12:08) [6]

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

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

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


 
k2 ©   (2005-12-20 12:11) [7]

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



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.024 c
14-1135751515
Vale
2005-12-28 09:31
2006.01.22
Компиляция со сдвигом


14-1135976124
Kerk
2005-12-30 23:55
2006.01.22
Почитал ветки


2-1136450705
Slaga
2006-01-05 11:45
2006.01.22
Как подключиться к Firebird u не "родными" компонентами, но и BDE


2-1136239374
aleccc
2006-01-03 01:02
2006.01.22
перекодировка


14-1135344631
iamdanil
2005-12-23 16:30
2006.01.22
xpmanifest




   Наверх