|
word только чтение |
☑ |
0
lordworld17
18.07.14
✎
06:11
|
Word = Новый COMОбъект("Word.Application");
Word.Documents.Open(ИмяФайла);
Word.Application.ActiveDocument.Protect(2,ИСТИНА,"123",Ложь,ИСТИНА);//пароль на редактрование - код текущего объекта
Word.Visible = 1;
ДобавитьОбработчик Word.DocumentBeforeSave, ОбработкаСохраненияДокумента;
КонецПроцедуры
Процедура ОбработкаСохраненияДокумента(Doc, SaveAsUI, Cancel)
Cancel = True;
КонецПРоцедуры
нашел на мисте сей код для открытия word док для чтение.но осталась проблема.как убрать выскакивающее окно в документе с вопросом о сохранении изменений.может кто делал?поделитесь опытом.
|
|
1
Wobland
18.07.14
✎
06:12
|
ексель вот имеет заклинание DisplayAlerts
|
|
2
skunk
18.07.14
✎
06:21
|
как бы DisplayAlerts тут совсем не при чем
|
|
3
Wobland
18.07.14
✎
06:24
|
(2) да? в такой редакции матерится
//Excel.DisplayAlerts=0;
Попытка
Excel.Save();
Исключение
Сообщить(ОписаниеОшибки());
Возврат;
КонецПопытки;
|
|
4
skunk
18.07.14
✎
06:26
|
ActiveDocument.Close(wdDoNotSaveChanges) - для документа
ну и тоже самое у Quit для всего ворда ... только он тогда все документы закроет ... поэтому надо проверять
|
|
5
skunk
18.07.14
✎
06:29
|
(3)на что?
|
|
6
Wobland
18.07.14
✎
06:33
|
(5) на что-то страшное. сохранить/нет? но не то, что редактировал ;)
|
|
7
skunk
18.07.14
✎
06:40
|
при сохранении спрашивает тебя сохранить? ... извини не верю
|
|
8
Wobland
18.07.14
✎
06:46
|
(7)
|
|
9
skunk
18.07.14
✎
06:52
|
(8)ну колись, что ты сделал для того что-бы этого достичь?
|
|
10
skunk
18.07.14
✎
06:53
|
на ум приходит только одно ... ты за каким-то аллахом пытаешься новый файл записать поверх старого
|
|
11
skunk
18.07.14
✎
06:56
|
хотя для этого saveas нужон
|
|
12
Wobland
18.07.14
✎
06:56
|
(10) есть такое, это ж отладка. c:\temp\00.xls уже давно там живёт ;)
правда, ни разу не понял, что за resume.xlw, ну да с DisplayAlerts=0 отрабатывает как надо
|
|
13
skunk
18.07.14
✎
07:34
|
(12)меня это тоже насторожило ... но из того куска кода понять что там у тебя творится практически не возможно ... если нет коммерческой тайны сможешь скинуть свою обработку
|
|
14
Wobland
18.07.14
✎
07:41
|
(13) отписался в почту
|
|
15
skunk
18.07.14
✎
07:43
|
спасибо
|
|
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший