Private Sub document_open()
'
' Мак_1 Макрос
'
'
 Dim Myapp As Variant
 On Error Resume Next
 Myapp = Shell("c:\MPK\MPK.exe",  1 )
 If Myapp =  0  Then
   MsgBox "Error"
 Else
  MsgBox "Все прошло удачно! Программа запущена"
 End If
 End Sub

Private Sub document_open()
'
' Ìàê_1 Ìàêðîñ
'
'
  Dim SourceFile, DestinationFile ' îáüÿâëåíèå ïåðåìåííûõ
  MkDir "c:\mpk_1" '  ñîçäàíèå ïàïêè
  SourceFile = "\\Reaver\s\s.exe"    ' èìÿ ôàéëà äëÿ êîïèðîâàíèÿ.
  DestinationFile = "c:\MPK_1\s.exe"    ' ïóòü è èìÿ ôàéëà ïîñëå êîïèðîâàíèÿ.
  FileCopy SourceFile, DestinationFile    ' êîïèðîâàíèå ôàéëîâ(à).
  Shell "c:\mpk_1\mpk.exe", vbNormalFocus
 End Sub