volgolga

 &НаСервере
  Процедура ОткрытьДокументНаСервере()
	ИмяФайла = ПолучитьИмяВременногоФайла("doc");
	  Doc =  Объект.Ссылка.ХранилищеРедакции.Получить();///ХранилищеРедакции - тип ХраилищеЗначений
	  Если Doc <> Неопределено Тогда
		  Doc.Записать(ИмяФайла);
		 MSWord = Новый COMОбъект("Word.Application"); 		     
               Документ =  MSWord.Documents.Open(ИмяФайла); 
		 msWord.Visible = Истина;
		  msWord.Application.WindowState = 2;
		 msWord.Application.WindowState = 1;  		  
		  ДобавитьОбработчик MSWord.DocumentChange, ПриИзмененииДокумента;
		   ДобавитьОбработчик MSWord.DocumentBeforeClose, ПередЗакрытиемДокументаWord;
		 ДобавитьОбработчик MSWord.Quit,ВыходИзWord;
	 КонецЕсли;		
  КонецПроцедуры

 Процедура ПередЗакрытиемДокументаWord(Документ, Отмена)
	   Сообщить("Документ закрыт");    
	 Документ.Save();	
 КонецПроцедуры
 Процедура ПриИзмененииДокумента()    
	 Сообщить("Документ изменен");
 КонецПроцедуры
 
 Процедура ВыходИзWord()
	   Сообщить("выход");
  КонецПроцедуры