Ищу класс для работы с OpenOffice

[kBace4ka]

Есть ли готовый класс для работы с OpenOffice ?

[gl00mie]

Цитата:

Сообщение от kBace4ka

Есть ли готовый класс для работы с OpenOffice ?

Форум выводит схожие, по его мнению, темы внизу, однако в этот раз он показывает что-то совсем не то... Хотя готовых классов, что бы вы под этом ни подразумевали, не публиковалось, тем не менее, в похожих темах были куски кода под различные задачи
Axapta+OpenOffice
OpenOffice форматирование
Как открыть шаблон в OpenOffice?
Также была ссылка на форум OpenOffice.org

[mau]

Ссылка должна помочь. Сам не пробовал.

[kBace4ka]

Спасибо за ответы. А работал ли кто с буфером обмена? Средствами аксапты заполняется буфер и надо вставить содержимое в OpenOffice Calc.

[kBace4ka]

Бьюсь со вставкой из буфера обмена, не получается. Подскажите как реализовать.
Код на бейсике:

Set ServiceManager = CreateObject("com.sun.star.ServiceManager")
Set Desktop = ServiceManager.createInstance ("com.sun.star.frame.Desktop")
Dim arr() As Variant
Set Document=Desktop.LoadComponentFromURL("private:factory/swriter", "_blank", 0, arr())

Set oClip=ServiceManager.CreateInstance("com.sun.star.datatransfer.clipboard.SystemClipboard")
Set oClipContents=oClip.getContents()
oTypes=oClipContents.getTransferDataFlavors()
	
Сall oText.insertString(oCursor,oClipContents.getTransferData(oTypes(0)),False)

Мой код:

    Array arr = new Array(Types::String);
    COMVariant arg;
    COM OpenOffice, Desktop, Document, oClip, oClipContents;
    COM Sheets, Sheet, Cell, oCursor;
    COMVariant oTypes;
;
    OpenOffice = new Com("com.sun.star.ServiceManager");
    Desktop = OpenOffice.createInstance("com.sun.star.frame.Desktop");
    arg = COMVariant::createFromArray(arr);

    Document = DeskTop.LoadComponentFromURL("private:factory/scalc", "_blank", 0, arg);

    oClip = OpenOffice.CreateInstance("com.sun.star.datatransfer.clipboard.SystemClipboard");

    oClipContents = oClip.getContents();

    oTypes = oClipContents.getTransferDataFlavors();

    Sheets   = Document.getSheets();
    Sheet    = Sheets.getByIndex(0);
    Cell = Sheet.getCellByPosition(2,2);

    oCursor = Cell.createTextCursor();
    oCursor.gotoStart(false);

    Cell.insertString(oCursor, oClipContents.getTransferData(oTypes[1]), False);

Проблема с последней строкой, как сделать что бы брался oTypes[1] ?

[belugin]

>>>Проблема с последней строкой, как сделать что бы брался oTypes[1] ?

Попробуйте oTypes.Item(1)

[belugin]

Это если это коллекция (да и то надо сначала ее из вартанта вытянуть), а вот если это SafeArray, то. oTypes.safeArray().value(1)

[kBace4ka]

Спасибо. Сработала такая строчка

Cell.insertString(xTextCursor, xClipContents.getTransferData(oTypes.value(2)), false);

почему то на двойке
ну и вставилось в другой кодировке, буду копать дальше.

[belugin]

Цитата:

Сообщение от kBace4ka

почему то на двойке

Наверное, потому, что массив в аксапте с единицы начинается, а оригинально, с нуля.

[DocSerzh]

Может , будет интересно - обертка для работыс OpenOffice

http://triteh.ru/libooo/