Как запустить через vbs макрос ворда?

[Karyuudo]

Погуглил, нашел как один человек решил задачу:

with CreateObject("Word.Application")
    .Documents.Open "G:\Progecte\Programming\vba\ScriptControl.docm"
    .Run "ScriptTest"
    .Quit
end with

по аналогии сделал так:

With CreateObject("word.application")
  For Each x In CreateObject("scripting.filesystemobject").getfile(wscript.scriptfullname).parentfolder.Files
    If LCase(Mid(x.Name, InStrRev(x.Name, ".") + 1, 3)) = "rtf" Then
      With .documents.open(x.Path)
        numDocs = numDocs + 1

		.Run "delete_title_page"

        .Close True 'save changes
      End With
    End If
  Next
  .Quit
End With
wscript.echo "Обработано документов " & numDocs

Но выдает ошибку:

Объект не поддерживает это свойство или метод: Run

[Казанский]

.Run - это метод приложения, а не документа. Придется таки Вам использовать еще одну переменную

[Karyuudo]

Сообщение от Казанский

.Run - это метод приложения, а не документа. Придется таки Вам использовать еще одну переменную

Какую еще переменную?
я просто в vbs/vba вообще не понимаю, так разовая задача возникла по обработке файлов.
Вот нашел как человек на другом форуме задал вопрос,ему ответили, вопрос решился.

его вариант сработал, хотя никаких переменных нет.. вроде все тоже


методом тыка, выявил, что ошибка возникает из-за
.Close True 'save changes

без этой строчки обрабатывает, а потом возникает окошко с предложением сохранить.
но надо чтоб автоматом сохранял, я так понял за это отвечает
.Close True 'save changes
но при добавлении её уже и ошибка что писал выше

[Казанский]

Set wa = CreateObject("word.application")
For Each x In CreateObject("scripting.filesystemobject").getfile(wscript.scriptfullname).parentfolder.Files
  If LCase(Mid(x.Name, InStrRev(x.Name, ".") + 1, 3)) = "rtf" Then
    With wa.documents.Open(x.Path)
      numDocs = numDocs + 1

      wa.Run "delete_title_page"

      .Close True 'save changes
    End With
  End If
Next
wa.Quit
wscript.echo "Обработано документов " & numDocs