Как сохранить отредактированный Word-документ

[cloudcat]

Создаю новый Word-документ:

Код:

	WORD = Новый COMОбъект("Word.Application");
	НовДокум = WORD.Documents;
	Докум = НовДокум.Add("");
	WORD.Visible = 1; 
	WORD.WindowState = 0;
	WORD.Activate();

Пользователь его редактирует, сохраняет где-то под каким-то именем.

Вопрос - как мне перехватить имя сохраненного файла, чтобы закатать его в ХранилищеЗначения?

[Kivals]

Используй обработчики событий объекта Word
Платформа 8.Х это позволяет делать...

[cloudcat]

Попробовала, не выходит каменный цветок =(

Так выглядит основная процедура:

Код:

Процедура РедактироватьШаблонНажатие(Элемент)
	//Проверим, что шаблон не пуст
	Если ШаблонТиповогоДоговора.Получить() <> Неопределено Тогда 
		//Пишем шаблон в файл
		ИмяФайла = КаталогВременныхФайлов() + "ШТД" + Номер + ".dot";
		ШаблонТиповогоДоговора.Получить().Записать(ИмяФайла);
		//Открываем Ворд
		WORD = Новый COMОбъект("Word.Application");
		WORD.Visible = 1; 
		//Создаем новый файл по шаблону
		Документ = WORD.Documents.Add(ИмяФайла);
		//Сохраняем готовый файл с текстом договора во временный файл
		ИмяВремФайла = КаталогВременныхФайлов()+ "ТекТД" + Номер + ".doc";
		Документ.SaveAs(ИмяВремФайла,0);
		//Добавляем обработчик события от документа Word
		//Ничего не перехватывается ТТ
		ДобавитьОбработчик Документ.Close, ЗакрытиеДокумента;
		
		Документ.Activate();
		Документ.Application.Activate();
	Иначе
		Предупреждение("Шаблон не выбран.");   
	КонецЕсли;
КонецПроцедуры

Обработчик:

Код:

Процедура ЗакрытиеДокумента()
	// Сохранить документ
	Документ.Save();
	// Получить имя файла документ до того, как документ будет освобожден
	ИмяФайла = Документ.FullName;
	// Удалить обработчик закрытия документа
	УдалитьОбработчик Документ.Close, ЗакрытиеДокумента;
	// Освободить ссылку на документ
	Документ = Неопределено;
	// Сделать копию файла, документ еще остается блокирован Word'ом,
	// поэтому его нельзя загружать в ДвоичныеДанные напрямую
	КопияФайла = ПолучитьИмяВременногоФайла(".doc");
	КопироватьФайл(ИмяФайла, КопияФайла);
	// Загрузить изменения документа
	ТекстДоговора = Новый ХранилищеЗначения(Новый ДвоичныеДанные(КопияФайла), Новый СжатиеДанных(9));
	//// Получить текст документа для полнотекстового поиска
	//ИзвлТекста = Новый ИзвлечениеТекста(КопияФайла);
	//СправочникОбъект.Текст = Новый ХранилищеЗначения(ИзвлТекста.ПолучитьТекст(), Новый СжатиеДанных(9));
	//// Удалить копию
	УдалитьФайлы(КопияФайла);
	// Сохранить имя временного файла для дальнейшего удаления.
	ВременныйФайл = ИмяФайла;
КонецПроцедуры 

Во-первых, не могу добавить событие обработчика Документ.Save - система ругается, что такое событие не найдено
Во-вторых, обработчик ничего не перехватывает! Я уже и так и этак закрывала файл вордовый - ничего не происходит, процедура обработчика не запускается
В-третьих, при обновлении конфигурации 1с ругается, что не найдена переменная Документ в процедуре ЗакрытиеДокумента... но ведь она должна передаваться как параметр?...

Помогите пожалуйста, знатоки =)))

[cloudcat]

У меня стоит 8.1.13.37

[Kivals]

Пойдем с конца:

В-третьих, при обновлении конфигурации 1с ругается, что не найдена переменная Документ в процедуре ЗакрытиеДокумента... но ведь она должна передаваться как параметр?...

Логично, а где у тебя этот параметр?

Код:

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

Может стоит попробовать

Код:

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

"Во-вторых" наверное связано с "в-третьих", т.е. если напишешь правильный обрботчик - то он будет вызываться.
А вот "во-первых" надо искать как правильно:
заходим на MSDN (у меня вторая ссылка) и видим событие BeforeSave

[Dest]

Все привет. Работаю с макетом active document, файл -  ms word. Пытаюсь перехватить событие word перед закрытием.

Код:

...
	Макет = ПолучитьМакет("Макет"); 
		// Получить объект из макета. 
		MSWord = Макет.Получить();
		Документ = MSWord.Application.Documents(1);
		Документ.Activate();
			
		ДобавитьОбработчик Документ.DocumentBeforeClose, ПередЗакрытиемДокументаOffice;            // (*)
...

Процедура ПередЗакрытиемДокументаOffice(Документ, Отмена)
    сообщить("есть");
КонецПроцедуры

Ругается на Строку (*)
{Форма.Форма(19)}: Событие объекта не обнаружено (DocumentBeforeClose)

Должно работать, где собака?
      

[RXL]

В MSDN это иначе описано...

http://msdn.microsoft.com/en-us/library/aa211915%28v=office.11%29.aspx
http://msdn.microsoft.com/en-us/library/aa211766%28v=office.11%29.aspx

Хотя, у тебя же не VBA...

[Kivals]

Dest, по той ссылке, что я давал, событие называется BeforeSave (без Document).
А формат object_DocumentBeforeSave (из ссылки RXL) - это вроде как правила формирования названий процедур в VBA для использования их как обработчиков событий

[Dest]

Попробовал BeforeSave:

Код:

...
                Макет = ПолучитьМакет("Макет"); 
		// Получить объект из макета. 
		MSWord = Макет.Получить();
		Документ = MSWord.Application.Documents(1);
		Документ.Activate();
                ДобавитьОбработчик Документ.BeforeSave, ДокBeforeSave;  
...


Процедура ДокBeforeSave(msword, Отмена)
    сообщить("есть");
КонецПроцедуры

Пишет
{Форма.Форма(36)}: Событие объекта не обнаружено (BeforeSave)

[Kivals]

Меня смущает вот это:

Код:

MSWord = Макет.Получить();

У тебя в макете объект Word.Application?
Может все-таки должно быть:

Код:

MSWord = COMОбъект("Word.Application");

[Dest]

Вообще, когда я добавлял макет выбирал тип макета "Active Document", потом загружал вордовский документ из файла.

[Kivals]

Методом тыка и по аналогии с синтакс-помощником получил вот такой работающий код (после Document точки нет):
ДобавитьОбработчик MSWord.Application.DocumentBeforeSave, ДокBeforeSave;

Добавлено через 1 минуту и 43 секунды:
Только на BeforeSave ругнулся про количество параметров, а BeforeClose отработало корректно.

[Dest]

Добавляю обработчик:

Код:

...
ДобавитьОбработчик Документ.Application.DocumentBeforeClose, ДокBeforeClose;
...

Потом  документ word'ий открывается, я  там пишу, пишу. Закрываю срабатывает моя процедура

Процедура ДокBeforeClose(Документ, пар2)
...
КонецПроцедуры

В ней мне необходимо узнать - редактировал я word'ий документ после открытия или нет?
Мне советовали так:

Код:

Документ.Saved

Все время показывает ложь.

[Kivals]

Советовали правильно.
Определись, что ты подразумеваешь под словами: "редактировал я word'ий документ после открытия или нет":
1. Добавил и удалил что угодно и документ стал таким, как при открытии - в понимании Word это значит "Редактировался" (Документ.Saved=Ложь)
2. Добавил что-то и вернул все назад через отмену (Undo, Ctrl+Z) к первоначальному виду - вот это "Не редактировлся" (Документ.Saved=Истина)

[Dest]

Что-то я фишку не понял. Как мне это может пригодиться?
Если просто ворд открыть, хоть что-нибудь на листе изменить, добавить и т.д. у документа вводится флаг, что он изменялся. Потом, если нажать на кнопку закрыть (крестик), вылезет окно - "Сохранять или не сохранять". Мне нужно, т.к. я заменил обработчик ДокBeforeClose, повторить эту же логику. Я не знаю как узнать, что документ изменялся.
Saved мне в любом случае (менял, я что-то или не менял) показывает ложь. Может другое свойство есть?

[Kivals]

А что мешает в Табло исследовать свойства переменной Документ, установив точку остнова на первый оператор ДокBeforeClose?
Или же посмотреть справку VBA по типу объекта Document...

[Dest]

А что мешает в Табло исследовать свойства переменной Документ, установив точку остнова на первый оператор ДокBeforeClose?

В общем-то я это делал, но увы...
Я же с начала сам ищу, потом сюда пишу.

[Kivals]

Dest, сможешь здесь выложить обработку, в которой это реализовано (открытие документа и привязка события)?
Тогда смогу проверить (а то повторять времени сейчас нет)...