Здравствуйте!
Сделали макрос, который на основе таблицы Excel заполняет шаблон в Word, пересохраняет его в заданной папке, оставляет этот документ открытым (для дальнейшего ручного редактирования), потом выдает информационное сообщение, что все ок и заканчивает свою работу. При этом, после того, как макрос закончил работу активным остается приложение Excel, а в открытый документ Word надо переходить вручную.
Вопрос: можно ли как-то написать в коде VBA, что бы после окончания работы макроса активным становилось приложение WORD (что бы файл, который мы только что создали появлялся на экране перед глазами пользователя)?
Пока что конец моего кода выглядит вот так:
Спасибо!
Сделали макрос, который на основе таблицы Excel заполняет шаблон в Word, пересохраняет его в заданной папке, оставляет этот документ открытым (для дальнейшего ручного редактирования), потом выдает информационное сообщение, что все ок и заканчивает свою работу. При этом, после того, как макрос закончил работу активным остается приложение Excel, а в открытый документ Word надо переходить вручную.
Вопрос: можно ли как-то написать в коде VBA, что бы после окончания работы макроса активным становилось приложение WORD (что бы файл, который мы только что создали появлялся на экране перед глазами пользователя)?
Пока что конец моего кода выглядит вот так:
Код |
---|
'сохраняем созданный документ, добавляем в список последних открытых objWrdDoc.SaveAs Filename:=sWDDocFullName, AddToRecentFiles:=True End If Next End With 'очищаем переменные Word Set objWrdDoc = Nothing Set objWrdApp = Nothing ' MsgBox "Успех!!! Создан файл '" & sWDDocName & ".docx" & "'", vbInformation, "Information Window" End Sub |
Спасибо!