Как открыть Word из Outlook макросом VBA? Запуск Word из Outlook

Ранее уже рассматривались примеры макросов для Outlook, позволяющих открыть приложение Excel. Ниже приведены программные коды макросов VBA для Microsoft Outlook, открывающие приложение Word. Этими макросами можно запустить Word как из Microsoft Outlook, так и из Excel.

Макрос, запускающий Word и открывающий новый документ

Если для передачи данных из Outlook в Word нужен новый документ Word, можно использовать следующий пример:

Sub Zapusk_Word_iz_Outlook1()
    Dim objWrd As Object
    Set objWrd = CreateObject("Word.Application")
    objWrd.Documents.Add
    objWrd.Application.Visible = True
    Set objWrd = Nothing
End Sub

Для того, чтобы перенести этот программный код на свой компьютер, наведите курсор мыши на поле с программным кодом, нажмите на одну из двух кнопкок  в правом верхнем углу этого поля, скопируйте программный код и вставьте его в модуль проекта на своем компьютере (подробнее о том, как сохранить программный код макроса).

Макрос, запускающий Word и открывающий определенный файл

Если для передачи данных из Outlook в Word, или наоборот, требуется открытие какого-либо определенного документа Word, то можно использовать следующий код: 

Sub Zapusk_Word_iz_Outlook2()
    Dim objWrd As Object
    Set objWrd = CreateObject("Word.Application")
    objWrd.Documents.Open FileName:="C:\Test.docx"
    objWrd.Application.Visible = True
    Set objWrd = Nothing
End Sub

При копировании этого кода на свой компьютер, не забудьте изменить путь к файлу и имя файла. Запуск приложения можно сделать и невидимым, если в коде изменить True на False.