// Пример оздания Word документа из 1С и подключение обработчика события word



// Если у документ Word до сих пор не создан

	Если WordДокумент = Неопределено Тогда



		// Открыть Word

		MSWord = Новый COMОбъект("Word.Application");

		MSWord.Visible = Истина;



		// Удалить временный файл, если есть

		Если ВременныйФайл <> Неопределено Тогда

			УдалитьФайлы(ВременныйФайл);

		КонецЕсли;



		// Получить имя временного файла для хранения документа

		ИмяФайла = ПолучитьИмяВременногоФайла(".doc");



		// Получим данные файла

		ДанныеФайла = СправочникОбъект.Файл.Получить();

		Если ДанныеФайла = Неопределено Тогда

			// Создать новый документ, если не был создан до этого

			WordДокумент = MSWord.Documents.Add();

			// И сохранить его во временный файл

			WordДокумент.SaveAs(ИмяФайла);

		Иначе

			// Записать данные во временный файл

			ДанныеФайла.Записать(ИмяФайла);



			// Открыть документ Word и добавить обработчик закрытия документа

			WordДокумент = MSWord.Documents.Open(ИмяФайла);

		КонецЕсли;



		// Добавим обработчик события от документа Word

		ДобавитьОбработчик WordДокумент.Close, ЗакрытиеДокумента;



	КонецЕсли;



	// Если документ открыт, активизировать его

	WordДокумент.Activate();

	WordДокумент.Application.Activate();   

 Если НЕ РольДоступна("ПолныеПрава") Тогда

        Word.Application.ActiveDocument.Protect(2,ИСТИНА,Строка(Код),Ложь,ИСТИНА);//пароль на редактрование - код текущего объекта 

        ВордВасик=Word.WordBasic;

        Сообщить(ВордВасик.MsgBox("Документ открыт только для чтения!",));

        ДобавитьОбработчик Word.DocumentBeforeSave, ОбработкаСохраненияДокумента;

    КОнецЕсли;

....



Процедура ОбработкаСохраненияДокумента(Doc, SaveAsUI, Cancel)

    Cancel = True;    

    ВордВасик=Word.WordBasic;

    Сообщить(ВордВасик.MsgBox("Вам запрещено сохранять документ!",)); 

КонецПРоцедуры

// Печать соответственно DocumentBeforePrint   

  Процедура КнопкаDOCНажатие(Элемент)

	

	ИмяФайла = ПолучитьИмяВременногоФайла("doc");

	Doc = ХранилищеФайла.Получить();

	

	Если Doc <> Неопределено Тогда

		

		Doc.Записать(ИмяФайла)

		Word = Новый COMОбъект("Word.Application");

		Word.Documents.Open(ИмяФайла); 

		Word.Visible = Истина; 

		

		ДобавитьОбработчик Word.DocumentBeforeClose, ПередЗакрытиемДокументаWord;

		ДобавитьОбработчик Word.Quit, ВыходИзWord;

		

	КонецЕсли;

	

КонецПроцедуры



//Процедуры назначаемые обработчиками 

Процедура ПередЗакрытиемДокументаWord(Документ, Отмена)

   Документ.Save();	

КонецПроцедуры



Процедура ВыходИзWord()

   ШаблонДоговора = Новый ХранилищеЗначения(Новый ДвоичныеДанные(ИмяФайла));

КонецПроцедуры