Add(Button,2925707,329,266)
{
 Left=30
 Top=30
 link(onClick,1692287:doExecute,[])
}
Add(ODialog,1692287,378,266)
{
 StartDir=""
 FileName=""
 link(onExecute,4861929:toRTF,[])
}
Add(VBJScript,4861929,434,266)
{
 WorkPoints=#5:toRTF|
 DataPoints=#8:filename|
 Script=#22:sub doWork(Data,Index)|24: Dim fn, objWord, objDoc|0:|57: fn = sys.filename 'Тут мы снимаем данные с верхней точки|68: Set objWord = CreateObject("Word.Application") 'Создаём объект Word|107: Set objDoc = objWord.Documents.Open(Data) 'Открываем документ, имя берётся из потока - это переменная Data|39: objWord.Visible = True 'Видимость окна|0:|98: 'Сохраняем, т.к. больше 1-го параметра, то вызываем без скобок, первый параметр - имя сохранения,|111: 'второй - формат; константа для формата узнаётся из редактора VBA в том же Word нажатием на неё правой кнопкой|22: 'и выбором Quick Info|20: objDoc.SaveAs fn, 6|20: objWord.Quit 'Выход|7:end sub|
 UseName=0
 link(filename,10266161:Text,[])
}
Add(VisualStrings,10266161,434,231)
{
 Lines=#8:word.rtf|
 Width=53
}