JS/VBS: Открытие файла в OpenOffice

Классический вопрос - "Зачем ?"(с)

dim s(1), f, a(1)
set sm=CreateObject("com.sun.star.ServiceManager")
set e=sm.createInstance("com.sun.star.ucb.FileContentProvider")
mydocs=CreateObject("WScript.Shell").SpecialFolders("MyDocuments")
set fp = sm.createInstance("com.sun.star.ui.dialogs.FilePicker")

fp.Initialize(Array(9))

fp.setDisplayDirectory(e.getFileURLFromSystemPath("",mydocs))

fp.setDefaultName("Фигня какая то тут.odt") 'имя файла

ext="*.txt; *.doc; *.odt"

set s(0)=sm.Bridge_GetStruct("com.sun.star.beans.StringPair")
s(0).First="Текстовый документ" 'локализованый заголовок
s(0).Second=ext
fp.appendFilterGroup "Text Files", s

'fp.appendFilter "Text Files", ext - можно и так, просче

If fp.Execute()=0 Then WScript.Quit
f=fp.getFiles()(0)
fp.Dispose()

msgbox e.getSystemPathFromFileURL(f) 'позырим чо открываем


set a(0)=sm.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
a(0).Name="Hidden"
a(0).Value=false 'чтобы скрыто true

set desk=sm.createInstance("com.sun.star.frame.Desktop")
set doc = desk.LoadComponentFromURL(f, "_blank", 0, a)
txt=doc.getText().getString()
doc.setModified(False)
doc.Close(true)
msgbox txt

Да еще - getString() может обработать только 64К символов, лучше обойти структуру и разобрать объекты

Да, синтаксис вообще ужасен, и объектная модель ну сильно раздражает
а так тут http://api.openoffice.org
ну там еще книжка питоньяка (есть и на русском)

+ справко во всех поделках ооо и иже с ним вообще мертвая

ОС Windows XP Pro SP2
Windows Script Host Version 5.6
OpenOffice 3.3.0 от "Инфра-Ресурс"

Скрипт, представленный smaharbA у меня вызывает ошибку на строке

f=fp.getFiles()(0)

Microsoft VBScript runtime error: Variable uses an Automation type not supported in VBScript: 'fp.getFiles()(...)'

если меняю на

f=fp.Files(0)

то ошибку получаю здесь

msgbox e.getSystemPathFromFileURL(f) 'позырим чо открываем

[automation bridge] : InterfaceOleWrapper_Impl::Invoke :[automation bridge]UnoConversionUtilities<T>::variantToAny
Cannot convert the value of vartype :"8204"  to the expected UNO type of type class: 12

Аналогичный код в среде OpenOffice.org Basic отрабатывает "на ура", как при использовании метода .GetFiles(),
так и при непосредственном обращении к элементам коллекции(?) .Files.

Подскажите, в какую сторону "рыть".

smaharbA,
спасибо за оперативный ответ. Вариант с f=fp.Files(0)(0) пробовал, не спасло.

Сейчас гоняю Ваш исходный скрипт в более старой версии OpennOffice - 3.0.0 от того-же "Инфра-Ресурс"
Ошибку получаю уже в другом месте

fp.appendFilterGroup "Text Files", s

* барабанная дробь *

[automation bridge] : InterfaceOleWrapper_Impl::Invoke :
[automation bridge]UnoConversionUtilities<T>::createOleObjectWrapper
The VARIANT does not contain an object type!

И это после нормального(?) создания, инициализации и изменения двух свойств (начальная папка, им файла по-умолчанию) объекта.
Закомментировал эту строку - и наконец-то лицезрел путь выбранного файла в msgbox.

Но рано радовался, - следующая ошибка не заставила себя ждать

set doc = desk.LoadComponentFromURL(f, "_blank", 0, a)

Ошибка та-же, что и вышеприведенная в этом посте.

Если ещё вчера я думал, что хоть что-то понимаю в UNO Objects, то сегодня эта иллюзия рассеялась.
* ушёл медитировать над "OOo API Guide" *