ScrptCtrl=Новый COMОбъект("MSScriptControl.ScriptControl");
       ScrptCtrl.Language="vbscript";
       ScrptCtrl.AddCode("
Можно ли в данный код добавить несколько функций и получить значения ?

получаю ошибку
Ошибка при вызове метода контекста (AddCode): Произошла исключительная ситуация (Ошибка компиляции Microsoft VBScript): Предполагается наличие идентификатора


ScrptCtrl=Новый COMОбъект("MSScriptControl.ScriptControl");
       ScrptCtrl.Language="vbscript";
       ScrptCtrl.AddCode("
       |Function MkPropVal( Optional cName As String, Optional uValue ) As com.sun.star.beans.PropertyValue
       |Dim oPropertyValue As New com.sun.star.beans.PropertyValue
       |If Not IsMissing( cName ) Then
       |        oPropertyValue.Name = cName
       |EndIf
       |If Not IsMissing( uValue ) Then
       |        oPropertyValue.Value = uValue
       | EndIf
       |MkPropVal() = oPropertyValue
       |End Function
       |Function oExpOptions()
       |    oExpOptions = Array(_
       |               MkPropVal( 'Overwrit', 'true'))
       |End Function
       |");
       MassivParametrovSave = ScrptCtrl.Run("oExpOptions");

(1)
Запихнуть в ScriptControl код на обычном VB не получится.
В VBScript нет строгой типизации.
Интерпретатор не понимает, что такое "As String" и "As com.sun.star.beans.PropertyValue".
Также ему неведомы ключевое слово Optional и функция IsMissing.
Строковые константы в бэйсиках обозначаются двойными кавычками.
И т.д. и т.п.

+(2)
И вообще, для работы с объектной моделью OO, в восьмёрке нет необходимости извращаться со ScriptControl...

нашел. Книга знаний: Интеграция OpenOffice Calc с 1С 7.7 :)

http://www.cyberforum.ru/1c/thread354548.html

(1,2) и все таки можно было так
script             = Новый COMОбъект("ScriptControl");
   script.Language     = "vbs";
   script.AddCode
   (
       "Dim Parameters()
       |  
       |Sub InitParameters(Size)
       |    
       |    Erase Parameters
       |
       |    If Size > 0 Then
       |        Redim Parameters(Size - 1)
       |    End If
       |
       |End Sub
       |    
       |Sub SetParameter(ServiceManager, Name, Value, Index)
       |
       |    Set PropertyValue     = ServiceManager.Bridge_GetStruct(""com.sun.star.beans.PropertyValue"")
       |    PropertyValue.Name     = Name
       |    PropertyValue.Value     = Value
       |    
       |    Set Parameters(Index) = PropertyValue
       |
       |End Sub
       |    
       |Sub SetBooleanParameter(ServiceManager, Name, Value, Index)
       |    
       |    SetParameter ServiceManager, Name, Cbool(Value), Index
       |
       |End Sub
       |
       |Function LoadDocument(ComponentLoader, URL, TargetFrameName, SearchFlags)
       |  
       |    Set LoadDocument = ComponentLoader.loadComponentFromURL(URL, TargetFrameName, SearchFlags, Parameters)
       |
       |End Function
       |
       |Sub CloseDocument(Document)
       |
       |    Document.Close True
       |
       |End Sub"
   );
     
   script.Run("InitParameters", 2);
   script.Run("SetBooleanParameter", ServiceManager, "Hidden",         1, 1);