macro to create executable file

[ArtemUBRR]

Hi everyone!

I have a macro witch start refresh save and close qwv file.

Sub ReloadThisDoc

    Set fso = CreateObject("Scripting.FileSystemObject")    

    If fso.FileExists("C:\Вызовы Naumen.txt") Then

        ActiveDocument.Reload

        ActiveDocument.Save

        ActiveDocument.GetApplication.Quit

    end if

    set fso=Nothing

End Sub

Now, i need to create exe through the macro

Please, help me!