はじめに

以下の記事で紹介した方法では、Editorオブジェクトにアクセスできないという致命的な問題があるので別の方法を考えました。

方法

ラッパー用のvbsファイルに本体のファイルをincludeします

本体のサンプル

Test.vbs

Option Explicit
Sub Test1()
    Call MsgBox("Test1が実行されました")
End Sub

Sub Test2()
    Call MsgBox("Test2が実行されました")
End Sub

ラッパー用のファイルのサンプル

Test1.vbs

Option Explicit
Dim objShell, objFSO
Set objShell = CreateObject("WScript.Shell")
Set objFSO   = CreateObject("Scripting.FileSystemObject")
objShell.CurrentDirectory = objFSO.GetParentFolderName(Editor.ExpandParameter("$M"))
With objFSO.OpenTextFile("Test.vbs")
    ExecuteGlobal .ReadAll
    .Close
End With

Call Test1()

Test2.vbs

Option Explicit
Dim objShell, objFSO
Set objShell = CreateObject("WScript.Shell")
Set objFSO   = CreateObject("Scripting.FileSystemObject")
objShell.CurrentDirectory = objFSO.GetParentFolderName(Editor.ExpandParameter("$M"))
With objFSO.OpenTextFile("Test.vbs")
    ExecuteGlobal .ReadAll
    .Close
End With

Call Test2()

ラッパー用のファイルをマクロに登録します