Добрый день, товарищи программисты!
Рассматриваю вот такой простой код для 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, успешно работает.

а зачем через VBscript если можно работать напрямую с OLE-объектом:


Это сообщение отредактировал(а) sai_NT - 19.9.2008, 21:10