Сохранение и закрытие файла Word из Excel

[Dmitry_Cheplya]

Добрый день!
Есть следующая задача. В Excel таблица с данными, которые нужно по закладкам вносить в шаблонный Word-файл. Открыть файл и внести в него изменения - благополучно закрытый вопрос, все работает. Даже сохранить файл с новым именем по правильному пути (выбор пути через стандартное диалоговое окно) удалось реализовать, но закрыть отредактированный файл с использованием имени файла в команде на на закрытие не получается.

Код Выделить Развернуть

myDocument.SaveAs2 (mypath & "\" & "Паспорт " & "Опоры.docx")
Documents("Паспорт " & "Опоры.docx").Close SaveChanges:=wdSaveChanges
Код немного упростил код в части имени файла
Не могу понять, почему не закрывает файл с указанным именем

[Дмитрий Щербаков(The_Prist)]

Код Выделить Развернуть

Documents("Паспорт " & "Опоры.docx").Close SaveChanges:=wdSaveChanges

Вероятно, где-то в коде стоит директива пропуска ошибок On Error Resume next. И строка, которую я в цитате выделил пропускается. Почему? потому что в Excel нет коллекции Documents. Надо обращаться через переменную, которая была создана при помощи CreateObject("Word.Application"). Или через New Word.Application - не могу сказать, т.к. кода нет. Тоже самое относится к wdSaveChanges - Excel не знает такой константы.
Вот здесь я расписывал эту проблему: Как из Excel обратиться к другому приложению - Главная ошибка новичка
Но я бы рекомендовал всю статью прочитать - не лишним будет.

[Dmitry_Cheplya]

Вероятно, где-то в коде стоит директива пропуска ошибок On Error Resume next. И строка, которую я в цитате выделил пропускается.

В программе такой директивы (пропуска ошибки) нет. А за ссылку - спасибо!

[Dmitry_Cheplya]

Мало ли кому-то будет интересно, чем закончилось и какой вариант рабочий

Код Выделить Развернуть

Set myWord = CreateObject("Word.Application")
....
myWord.Documents("Паспорт " & "Опоры.docx").Close SaveChanges:=wdSaveChanges
При таком варианте файл благополучно закрылся, но само приложение Word осталось открытым. Его закрывать нужно в случае необходимости отдельной командой {переменная с объектом "Word.Application"}.Quit

[Дмитрий Щербаков(The_Prist)]

А у Вас переменная wdSaveChanges объявлена в коде? Если нет - то она равна 0, что для метода Close будет равносильно False. В Вашем случае, полагаю, это неважно - т.к. прямо перед этим идет SaveAs. Но на будущее учитывайте это.