Создание документа через .CreateDocumentByParam

[tavis]

Скажите пожалуйста как можно программно создать документ в MeDoc.
К примеру:

Set ThisWorkbook.Doc = ThisWorkbook.App.CreateDocumentByParam("J1300101", 0, Now(), 1)
Set rsMain = ThisWorkbook.Doc.DataSets("MAIN")
rsMain.FldVal("N1") = "777"
ThisWorkbook.Doc.Refresh
ThisWorkbook.Doc.Save

Ошибок не выдает, но и документ в основном интерфейсе MEDoc не показывается. Хотя если пробежаться по коллекции документов через
DocumentsDataSet("CharCode='J1300101'", True)
в коллекции он есть
Подскажите, что я делаю не так?

[Родин Евгений]

Невалидные документы не отображаются.

[tavis]

Просто покажите пзл как создать валидный документ через vb-script
В чем ошибка в коде?

Set ThisWorkbook.Doc = ThisWorkbook.App.CreateDocumentByParam("J1300101", 0, Now(), 1)
Set rsMain = ThisWorkbook.Doc.DataSets("MAIN")
rsMain.FldVal("N1") = "777"
ThisWorkbook.Doc.Refresh
ThisWorkbook.Doc.Save

Заранее, большое спасибо!
P.S.
Пример работы был взят из папки MEDoc:
c:\Documents and Settings\All Users\Application Data\Medoc\Station\tmpl\