Builder и таблица OpenOffice

[sergo555]

Всем привет. Нужно установить ширину столбца таблицы Writer. На VBA код такой:

oTblColSeps = oTable1.TableColumnSeparators
  oTblColSeps(0).Position = 3000
  oTblColSeps(1).Position = 5000
oTable1.TableColumnSeparators = oTblColSeps

Вот 2 и 3 строчку не получается перевести на Builder. Мой код:

	Variant App = Variant::CreateObject("com.sun.star.ServiceManager");
	Variant Desktop = App.OleFunction("createInstance", "com.sun.star.frame.Desktop");
	//Параметры открытия
	int Bounds[2] = {0,0};
	Variant OpenParams = VarArrayCreate(Bounds, 1, varVariant);
	Variant MyStruct = App.OleFunction("Bridge_GetStruct","com.sun.star.beans.PropertyValue");
	MyStruct.OlePropertySet("name","Hidden");
	MyStruct.OlePropertySet("value", false);
	OpenParams.PutElement(MyStruct, 0);
	//Открытие файла шаблона
	Variant DocWord = Desktop.OleFunction("LoadComponentFromURL", "file://localhost/D:/333.doc", "_blank", 0, OpenParams);
	//Получаем ячейку
	Variant Tables = DocWord.OleFunction("getTextTables");
	Variant Table = Tables.OleFunction("getByIndex", 0);
	Variant oTblColSeps = Table.OlePropertyGet("TableColumnSeparators");
//нужно перевести на Builder
//	oTblColSeps[0].Position = 2000;
	Table.OlePropertySet("TableColumnSeparators", oTblColSeps);

Заранее благодарен если кто сможет чем помочь.
PS "TableColumnSeparators" не будет работать в OO версии 3.3 (баг офиса)