]]>]]>Сходу пара ссылок: VBScript: работаем с OpenOffice.org через COM, OpenOffice.org software supports Microsoft's Automation technology. Automation Bridge.
Правда дальше чем открыть файл у меня не вышло:
option explicit
Dim objServiceManager, objCoreReflection, objDesktop
Set objServiceManager= WScript.CreateObject("com.sun.star.ServiceManager")
Set objCoreReflection= objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
Set objDesktop= objServiceManager.createInstance("com.sun.star.frame.Desktop")
Dim objDocument, objText
' http://www.openoffice.org/api/docs/common/ref/com/sun/star/frame/XComponentLoader.html
Set objDocument = objDesktop.loadComponentFromURL(ConvertToURL("D:\aScripts\vbs\tmp\OOoTest.doc"), "_blank", 0, Array())
Function ConvertToURL(ByVal path) 'костыль №1
ConvertToURL = Replace(path, ":", "|")
ConvertToURL = Replace(ConvertToURL, " ", "%20")
ConvertToURL = Replace(ConvertToURL, "\", "/")
ConvertToURL = "file:///" & ConvertToURL
End FunctionЕсть инструкция по StarBasic(аналог VBA в OOo), на стр. 55 есть раздел "Searching and replacing". Но подружить то что там описано с выше приведённым скриптом не получилось, натыкаюсь на "Объект не поддерживает это свойство или метод". Правда у меня установлен 4-ый офис, а мануал времён версии 3.4, но думаю не в этом дело - уж больно всё там заковыристо с автоматизацией...
Если желание копать дальше имеется, попробуйте пошерстить форумы 1С-ников, похоже у них чаше возникает необходимость работы с ООо через OLE.
___________добавлено___________
Мануал вообще времён StarOffice, так что проблема может быть и в этом. Но искать актуальную версию документации в данный момент времени нет. Может потом.
Какие есть варианты?]]>