0
OFF
11.12.17
✎
09:02
|
Все как то работало тихо мирно, теперь при выполнении функции запрос "Сохраняемый документ содержит изменения. Продолжить сохранение?"
Функция ПолучитьРазличияТекстовВHTML(Знач Текст1, Знач Текст2) Экспорт
Если Текст1 = Текст2 Тогда
Возврат "";
КонецЕсли;
ИмяФайла1 = ПолучитьИмяВременногоФайла("html");
Док1 = Новый ТекстовыйДокумент;
Док1.УстановитьТекст(Текст1);
Док1.Записать(ИмяФайла1);
ИмяФайла2 = ПолучитьИмяВременногоФайла("html");
Док2 = Новый ТекстовыйДокумент;
Док2.УстановитьТекст(Текст2);
Док2.Записать(ИмяФайла2);
ИмяФайла3 = ПолучитьИмяВременногоФайла("html");
obj = Новый COMОбъект("Word.Application");
obj.DisplayAlerts = False;
obj.Visible = False;
doc1 = obj.Documents.Open(ИмяФайла1, , False, , , , , , , , , True);
doc2 = obj.Documents.Open(ИмяФайла2, , False, , , , , , , , , True);
doc3 = obj.CompareDocuments(doc1, doc2,,0,0);
doc3.Saved = True;
doc3.SaveAs(ИмяФайла3,8);
doc3.Close(0);
obj.Quit();
obj = 0;
Док3 = Новый ТекстовыйДокумент;
Док3.Прочитать(ИмяФайла3);
УдалитьФайлы(ИмяФайла1);
УдалитьФайлы(ИмяФайла2);
УдалитьФайлы(ИмяФайла3);
Возврат Док3.ПолучитьТекст();
КонецФункции
Как лечить?
|
|