从vbs脚本运行word vba宏

Question

我需要从vbs文件或直接从批处理文件调用word宏。宏一词非常简单：

Private Sub Accepted()
CWID_Input.BackColor = &H80FF80
End Sub

我只是不确定该怎么做，并且由于我对vbs不太满意，所以无法真正找到我理解的简单答案。

说明：查看类似问题的另一个答案，这是我到目前为止的代码：

Set objWord = CreateObject("Word.Application")
Set a = objWord.Documents.Open("mypath\my.docm")
objWord.Run "Accepted"

问题是，单词文档已经打开并且需要保持打开状态（我不能只是从单词运行中获取宏，我需要vb来触发它），并且每次我运行vbscript时都会生成一个新版本的单词文档打开。