Вход | Регистрация

1С:Предприятие :: 1С:Предприятие 8 общая

Word.Application избавиться от запроса на сохранение

Word.Application избавиться от запроса на сохранение
Я
   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.ПолучитьТекст();    
    
КонецФункции
Как лечить?
 
 
   НЕА123
 
1 - 11.12.17 - 09:25
я бы попробовал
 doc1.Saved = True;
 doc2.Saved = True;
   OFF
 
2 - 11.12.17 - 09:31
(1) не помогает. Запрос выходит на строке "doc3.SaveAs"
   Сияющий в темноте
 
3 - 11.12.17 - 09:42
а зачем писать Saved=True,если мы потом все равно сохраняем?
   big
 
4 - 11.12.17 - 09:42
Close() надо вызвать с параметром "сохранить без предупреждения"

http://www.comprice.ru/articles/detail.php?ID=43067
   big
 
5 - 11.12.17 - 09:44
(4) +
ИМХО вот так надо 

 doc3.Close(-1);
   OFF
 
6 - 11.12.17 - 09:52
(3) эксперимент, типа если скинуть флаг - то взлетит, не взлетело
(4) не помогает
   OFF
 
7 - 11.12.17 - 11:23
С политиками могли что то намудрить? Как то работало ведь

Список тем форума
Рекламное место пустует  Рекламное место пустует
ВНИМАНИЕ! Если вы потеряли окно ввода сообщения, нажмите Ctrl-F5 или Ctrl-R или кнопку "Обновить" в браузере.
Тема не обновлялась длительное время, и была помечена как архивная. Добавление сообщений невозможно.
Но вы можете создать новую ветку и вам обязательно ответят!
Каждый час на Волшебном форуме бывает более 2000 человек.
Рекламное место пустует