Builder и OpenOffice

@sergo555 · Регистрация: 10.11.2011

Студворк — интернет-сервис помощи студентам

Добрый день.Нужно в ячейку таблицы вставить несколько рисунков из буфера обмена и установить их размер. Код должен работать как для WORD, так и для OpenOffice.

Для Word код такой:

C++
1
2
3
4
5
6
7
8
9
10
11
12
app =Variant::CreateObject("Word.Application");             
Document = app.OlePropertyGet("Documents").OleFunction("Open", NameFile.c_str());
Table = Document.OlePropertyGet("Tables").OleFunction("Item", table); //получаем таблицу в шаблоне
Cell  = Table.OleFunction("Cell", string, row);
Range = cell.OlePropertyGet("Range");
Range.OleFunction("Select");
app.OlePropertyGet("Selection").OleFunction("Paste");
//Устанавливаем размер
int index = Document.OlePropertyGet("InlineShapes").OlePropertyGet("Count");
Picture = Document.OlePropertyGet("InlineShapes").OleFunction("Item", index);
Picture.OlePropertySet("Width", W);
Picture.OlePropertySet("Height",H);

А как будет для OpenOffice?

C++
1
2
3
4
5
app = Variant::CreateObject("com.sun.star.ServiceManager");
Document = Desktop.OleFunction("LoadComponentFromURL", URLFile, "_blank", 0, OpenParams);
Tables = Document.OleFunction("getTextTables"); // список таблиц
Table = Tables.OleFunction("getByIndex", table-1);  // таблица по номеру
Cell  = Table.OleFunction("getCellByPosition", row-1, string-1);

….а дальше?

2. Нужно вставить рисунко в ячейку таблицы, но уже не из буфера, а из файла.
Для Word код такой:

C++
1
2
3
4
Range.OleFunction("Select");
Shape=range.OlePropertyGet("InlineShapes").OleFunction("AddPicture", WideString(NameFileLogo), True,False);
Shape.OlePropertySet("Width",W);
Shape.OlePropertySet("Height",H);

А как будет для OpenOffice?

PS Я OpenOffice вообще не знаю. Но попробовал записать макрос. Не получилось вставить рисунок непосредствнно в ячейку таблицы. Вставлялся просто в документ. Соответственно текст макроса был не тот. И в макросе про размеры ничего не было. Помогите, кто чем может.
PS2 Если кому нужны примеры работы с OpenOffice – кое-что есть тут.
http://rsdn.ru/article/openoff... on.xml#EOC

Добавлено через 240 минут
Видимо, все гуру в отпуске 
Пока получилось только вставить изображение как из буфера, так и из файла. Осталось немного – установить размеры изображения.Кто-нибудь знает как?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
ServiceManager = Variant::CreateObject("com.sun.star.ServiceManager");
//Параметры вставки
Variant MyStruct = ServiceManager.OleFunction("Bridge_GetStruct","com.sun.star.beans.PropertyValue");
int Bounds[2] = {0,0};
Variant VariantArray = VarArrayCreate(Bounds, 1, varVariant);
MyStruct.OlePropertySet("name","FileName");
MyStruct.OlePropertySet("value","");         //если вставляем из буфера
MyStruct.OlePropertySet("value",URLFile);  //если вставляем из файла
 
//Попытка установить размер изображения. Код НЕ РАБОТАЕТ
MyStruct.OlePropertySet("name","width");
MyStruct.OlePropertySet("value","20");
 
VariantArray.PutElement(MyStruct, 0);
//Место куда вставляем
CurrentController = Document.OleFunction("getCurrentController");
Frame = CurrentController.OleFunction("getFrame");
Dispatcher= ServiceManager.OleFunction("createInstance", "com.sun.star.frame.DispatchHelper");
Tables = Document.OleFunction("getTextTables");               //список таблиц
Table = Tables.OleFunction("getByIndex", table-1);                   //таблица по номеру
Cell = Table.OleFunction("getCellByPosition", row-1, string-1);  //ячейка по номеру
CurrentController.OleFunction("select",Cell);                  //выбрать ячейку
//Вставка изображения
Dispatcher.OleFunction("executeDispatch",Frame,".uno:Paste","",0, VariantArray); //из буфера
 Dispatcher.OleFunction("executeDispatch",Frame,".uno:InsertGraphic","",0, VariantArray); //из файла
//Привязка изображения к ячейке
Dispatcher.OleFunction("executeDispatch",Frame, ".uno:SetAnchorToChar", "", 0, VariantArray);

По логике все настройки д.б. в VariantArray. Как установить размер вставляемого изображения? Какие будут мысли?
При записи макроса не отображается, что пользователь изменил размеры изображения. Так и должно быть?

Комментарий модератора

sergo555, используйте тег вставки кода :

[CPP ]без пробелов[ /CPP] или кнопка C++ на панели окна редактирования сообщения

@kzru_hunter · 10.11.2011, 20:49

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

Видимо, все гуру в отпуске

скорее всего мало у кого стоит OpenOffice

@sergo555 · 11.11.2011, 00:48 **[ТС]**

Не поверишь, сам только с утра установил OpenOffice и стал код адаптировать под него

Скачал книжечку. Вроде там все есть. Завтра буду разбираться. Вот только другая возникла проблема. Мне нужно установить размер изображения в сантиметрах. А что в Worde, что OpenOffice единицы изображения указываются в dpi. Например, у меня открыт документ Word. Как узнать сколько dpi по горизонтали у всего листа Word и по вертикали?

Добавлено
Тогда может кто поможет перевести код с VBA на С++ ?

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub InsertGraphicObject(oDoc, sURL$)
REM Author: Andrew Pitonyak
Dim oCursor
Dim oGraph
Dim oText
 
oText = oDoc.getText()
oCursor = oText.createTextCursor()
oCursor.goToStart(FALSE)
oGraph = oDoc.createInstance("com.sun.star.text.GraphicObject")
With oGraph
.GraphicURL = sURL
.AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
.Width = 6000
.Height = 8000
End With
' теперь вставляем изображение в текстовый документ
oText.insertTextContent( oCursor, oGraph, False )
End Sub

Комментарий модератора

sergo555, используйте тег вставки кода :

[CPP ]без пробелов[ /CPP] или кнопка C++ на панели окна редактирования сообщения

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

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .