Имя: Пароль:
1C
 
Как открыть документ Word без возможности редактирования и копирования
0 saudin
 
12.04.11
11:00
Всем добрый день! Вопрос к форумчанам такой:Как открыть из 1С документ Word без возможности его редактирования и копирования?
1 YF
 
12.04.11
11:01
(0) А если напечатают и распознают?
2 saudin
 
12.04.11
11:04
Надо чтоб когда документ показался на экране при формировании,его нельзя было редактировать никак.
3 saudin
 
12.04.11
11:09
На VBA есть какие-то команды для этого?
4 Ritofc
 
12.04.11
11:13
Редактирование - при создании COM объекта выстави ReadOnly.

Копирование - вариант попробовать что-то вроде:

...
ДобавитьОбработчик Word.DocumentBeforeSave, BeforeSave;
...
Процедура BeforeSave(Документ, Отмена)
   
   Отмена = 1;
   
КонецПроцедуры
5 Жан Пердежон
 
12.04.11
11:13
есть, можно у самого файлв "только чтение" поставить
6 Ritofc
 
12.04.11
11:14
7 ptiz
 
12.04.11
11:15
У меня только в таком режиме Word и работает (триал закончился :) ).
8 saudin
 
12.04.11
11:16
Щас буду пробовать
9 dka80
 
12.04.11
11:32
В 2007 ворде есть штатная функция, ограничивающая редактироваие, копирование, печать
10 saudin
 
12.04.11
11:41
А что это за функция?
11 Stimcool
 
12.04.11
11:51
я знаю, знаю!
12 Stimcool
 
12.04.11
11:55
я делал в 2007 ворде запрет сохранения документа, копирования текста и печать. только просмотр
13 saudin
 
12.04.11
11:57
А как ты это делал,поделись тайной,о,просветленный! Лучше бы,как это сделать программно.
14 Stimcool
 
12.04.11
12:02
Если НЕ РольДоступна("ПолныеПрава") Тогда
       Word.Application.ActiveDocument.Protect(2,ИСТИНА,Строка(Код),Ложь,ИСТИНА);//пароль на редактрование - код текущего объекта
       ВордВасик=Word.WordBasic;
       Сообщить(ВордВасик.MsgBox("Документ открыт только для чтения!",));
       ДобавитьОбработчик Word.DocumentBeforeSave, ОбработкаСохраненияДокумента;
   КОнецЕсли;
....

Процедура ОбработкаСохраненияДокумента(Doc, SaveAsUI, Cancel)
   Cancel = True;    
   ВордВасик=Word.WordBasic;
   Сообщить(ВордВасик.MsgBox("Вам запрещено сохранять документ!",));
КонецПРоцедуры

Печать соответственно DocumentBeforePrint
15 saudin
 
12.04.11
12:02
Красавчик!
16 saudin
 
12.04.11
12:04
Действительно просветленный!
17 Stimcool
 
12.04.11
12:04
то-то же)
18 saudin
 
12.04.11
12:06
Ну да.Ты действительно молодец! Спасибо за помощь!
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший