Добрый день, товарищи программисты!
Рассматриваю вот такой простой код для 1С 7.7. Данный код открывает "шаблон" документа из файла и заменяет в нем "специальные" строки:

//code
 ScrptCtrl = СоздатьОбъект("MSScriptControl.ScriptControl");
 ScrptCtrl.Language = "vbscript";
 code = "
 |Sub FindAndReplace()
 |Set wrd = CreateObject(""Word.Application"")
 |wrd.Documents.Open ""C:\Document.doc""
 |Set myRange = wrd.ActiveDocument.Content
 |myRange.Find.Execute FindText:=""НомерДоговора"", _
 |ReplaceWith:=""№1 от 01.01.01"", Replace:=wdReplaceAll
 |wrd.Visible = True
 |Set wrd = Nothing
 |End Sub
 |";
 
 ScrptCtrl.AddCode(code);
 ScrptCtrl.Run("FindAndReplace");

//end code

Вроде бы все интуитивно понятно. Но на операции ScrptCtrl.AddCode(code) компилятор VBScript ругается "Ошибка компиляции Microsoft VBScript: Предполагается наличие инструкции".
В чем может быть причина?

Процедура FindAndReplace, аналогично написанная в отладчике MS Visual Basic, успешно работает.

зафигачь этот код в редактор VBA в ворд или эксель и посмотри

А хиде разделители операторов?

А просто забить код в 1с?

To kitt
Процедура FindAndReplace, аналогично написанная в отладчике MS Visual Basic, успешно работает.

To Ork
Не понял вопросов.

попробуй это строчку записать в одну

|myRange.Find.Execute FindText:=""НомерДоговора"", _
|ReplaceWith:=""№1 от 01.01.01"", Replace:=wdReplaceAll

To kitt
Неа. Всё равно не хочет.

ммм.. а vbscript поддерживает именованные параметры?? это ведь не тоже самое что VBA

попробовал по очереди закомментировать строки, ругается именно на строку
myRange.Find.Execute FindText:=""НомерДоговора"",ReplaceWith:=""№1 от 01.01.01"", Replace:=2

может проще по оле прямо из 1с создавать все это дело?

Спасибо за помощь!
Да не хотелось бы создавать из 1С, поскольку перечисления типа wdReplaceAll там не поддерживаются. То что я привел - это только вырезка из моего кода, а там таких параметров - много =)

Replace:=2
будет тоже самое

все vbaшные перечисления имеют числовые аналоги.

Ага, спасиб!
А всё же этим способом возможно?