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

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

А что пишет в ошибке, я подозреваю, что здесь вся загвоздка с объектом Variables

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

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

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

1 блок с Вариаблес мне нужен
2 ведь ошибка вырисовуется позже

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

видимо лучше описать всю задачу
есть два файла, оба лежат на диске С
1.doc и 2.doc
открываю 1.doc запускаю прогу, её функционал
много чего, и затем
открыть 2.doc "втёмную" - то есть не видимым
сделать изменения
закрыть с сохранением
и чтобы без вопросов
есть загвоздка в этом 2.doc в АутоКлозе есть код

Sub AutoClose()
'AutoClose работает при закрытии документа Ворд

'отключаем дёргание экрана при выполнении кода
    Application.ScreenUpdating = False

    'условие, если были в документе изменения и ..., тогда ...
    If ActiveDocument.Saved = False And ActiveDocument.Name = "2.doc" Then

        'показать форму с именем ... в модальном режиме
        'в модальном режиме форма не является помехой для осуществления других действий
        'не нужно имени кнопки и имени формы давать одно и тоже имя
        UserForm_Сохранить_документ.Show
    End If

    'отменяем отключенное ранее дёргание экрана при выполнении кода
    Application.ScreenUpdating = True

End Sub

то есть этот АутоКлозе надо обходить
Можете выложить примерный код действий?

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

Sub AutoClose(boo)
If boo = False Then Exit Sub

При передаче действий в AutoClose если параметр boo = False, тогда код процедуры не будет выполняться

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

не взлетает, в файле 2.doc имею:

Public ОбойтиAutoClose As Boolean
Sub AutoClose()
'AutoClose работает при закрытии документа Ворд

    ОбойтиAutoClose = False

    'выполнить функцию с именем ...
    FunctionAutoClose ОбойтиAutoClose

End Sub

Sub FunctionAutoClose(ОбойтиAutoClose)
'AutoClose работает при закрытии документа Ворд

'отключаем дёргание экрана при выполнении кода
    Application.ScreenUpdating = False

    If ОбойтиAutoClose = True Then GoTo Конец

    'условие, если были в документе изменения и ..., тогда ...
    If ActiveDocument.Saved = False And ActiveDocument.Name = "2.doc" Then

        'показать форму с именем ... в модальном режиме
        'в модальном режиме форма не является помехой для осуществления других действий
        'не нужно имени кнопки и имени формы давать одно и тоже имя
        UserForm_Сохранить_документ.Show
    End If

Конец:

    'отменяем отключенное ранее дёргание экрана при выполнении кода
    Application.ScreenUpdating = True

End Sub

в файле 1.doc в конце имею

Public ОбойтиAutoClose As Boolean

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

    Else

        'в пошаговом режиме нажимаем Шифт + Эф 8
        'открываем документ ...
        'чтобы открыть файл "втёмную" необходимо при открытии свойство Visible установить в false:
        'Documents.Open FileName:="D:\Рабочая папка\А.doc", Visible:=False
        Set oDocument = Documents.Open(Диск_папки_файлы_программы & ":" & Адрес_размещения_папки_Рабочая & "2.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
        ОбойтиAutoClose = True
        'сохранить документ
        oDocument.Save
        'ставим флаг, что изменения были в документе
        'oDocument.Saved = False
        'закрыть документ
        oDocument.Close
    End If

Что получается - файл 2.doc открывается, но в нём не сохраняется
Верится с трудом, чтобы Public ОбойтиAutoClose As Boolean с одного файла в другой передалось, что делать??

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

сделал, только по окончанию спрашивает Сохранить? и надо подтверждать, но в этом есть и плюс,такая вот петрушка

[Sasha_Smirnov]

Сообщение от Ципихович Эндрю

то есть этот АутоКлозе надо обходить
Можете выложить примерный код действий?

Примерный (вставив его в Normal.dot[m] — вы им перебьёте прочие аутоклоузы):

Sub autoclose()
Dialogs(wdDialogFileSaveAs).Execute 'закрыли-сохранили'
End Sub

(документ сохранится закроется без вопросов при нажатии на крестик).

Как при этом всё же оставить себе возможность не сохранять изменения (кроме клавиши Shift), вы открыли давным-давно (25.07.2010 в 18:22): http://www.cyberforum.ru/vba/thread154357-page4.html#35