Открыть нужный файл, изменить его, закрыть без вопросов

[Ципихович Эндрю]

Речь о Ворде, как сделать чтобы не задавало вопросов "сохранить изменения" а потихому сохранило и закрыло?
Спасибо
С наступающим

[Пименов Александр]

ActiveDocument.Save
ActiveDocument.Close

Вас также с наступающим

[Ципихович Эндрю]

ОКЕЙНО, спасибо

[Ципихович Эндрю]

что-то не всё так просто, у меня в коде так:
Set oDocument = Documents.Open("C:\00.doc", Visible:=False)
oDocument.Close
на последней строке, oDocument.Close получаю - Ошибка команды, без номера ошибки
Что не так???

[Ципихович Эндрю]

естественно между строками
Set oDocument = Documents.Open("C:\00.doc", Visible:=False)
и
oDocument.Close
есть код, но он к этой ошибке ничего общего не имеет

[Пименов Александр]

Ошибка из-за того, скорее всего, что у Вас oDocument.Visible = False, т.е. документ не виден и если использовать Close без Save то в невидимом окне возникает запрос "Сохранить" это и вызывает ошибку.....

[Ципихович Эндрю]

придётся выложить отрезок побольше

If Данные_добавить_или_изменить_требуется_в_этом_документе = True Then
        Set oDocument = ActiveDocument
        '******ActiveDocument -- oDocument **************************

    Else

        'в пошаговом режиме нажимаем Шифт + Эф 8
        'открываем документ ...
        'чтобы открыть файл "втёмную" необходимо при открытии свойство Visible установить в false:
        'Documents.Open FileName:="D:\Рабочая папка\А.doc", Visible:=False
        Set oDocument = Documents.Open(Диск_папки_файлы_программы & ":" & Адрес_размещения_папки_Рабочая & "00.doc", Visible:=False)
        ActiveDocument.Activate
    End If

    IntegerДобавлено_Variables = 0

    On Error Resume Next
    '11 цикл
    For q = 1 To IntegerРазмер_массива
        oDocument.Variables.Add StringНазвание_Variables(q), StringЗначение_Variables(q)
        If Err.Number = 9 Then oDocument.Variables.Add StringНазвание_Variables(q): Err.Clear
        'Subscript out of range
        IntegerДобавлено_Variables = IntegerДобавлено_Variables + 1
        'конец 11 цикла
    Next q
    'отключить обработчик ошибок
    On Error GoTo 0

    If Данные_добавить_или_изменить_требуется_в_этом_документе = False Then
        'присвоить значение Variables ...
        oDocument.Variables(1).Value = "НеВыполнять"
        'сохранить документ
        oDocument.Save
        'ставим флаг, что изменения были в документе
        oDocument.Saved = False
        'закрыть документ
        oDocument.Close
    End If

[Ципихович Эндрю]

то есть и Клозе и Саве, а с этим: oDocument.Saved = False
играюсь и заремарчиваю, не помогает

[Пименов Александр]

При возникновении ошибки какая строка подсвечивается желтым?

[Ципихович Эндрю]

oDocument.Close