TWordApplication - Добавление и форматирование изображений

@znseday · Регистрация: 20.03.2012

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

Покопавшись в интернете, нашел только один способ добавления (передачи) изображения в документ Word - вставка через буфер обмена, например, так:

C++
1
2
3
4
WordRangePtr Range; 
Range = WordDocument->Range(TVariant(WordDocument->Characters->Count-1));
Clipboard()->Assign(Image1->Picture);
Range->Paste();

Но почему то этот способ, в среднем, 1 раз из 10 не срабатывает: передается пустая строка.
Есть ли другие способы передачи изображений из своей программы в документ Word? И как это изображение потом форматировать, т.е. как к нему получить доступ, чтобы изменять свойства, которые есть, например, в меню "Формат рисунка"?
Для таблиц, например, есть WordDocument->Tables, для фигур WordDocument->Shapes, а для изображений что?

cpp_developer · 09.08.2013, 01:08

Работа с OLE-сервером Word

@znseday · 09.08.2013, 02:19 **[ТС]**

Спасибо, но с этим сайтом я знаком, и он не имеет отношения к моему вопросу.

Кстати, решил записать макрос во время работы с изображением в Word, так во время записи макроса половина свойств недоступна и мой Word (2010) вылетает с критической ошибкой(...

Анализ свойства WordDocument->Shapes->Count показал, что изображения, которые добавляются как файлы и есть Shapes (как разновидность что ли), а те, которые вставляются из буфера обмена вообще никак не фигурируют, и как к ним получить доступ - вопрос открытый. Хотя, возможно, что никак.

@volvo · 09.08.2013, 02:31

Все изображения - это элементы коллекции InlineShapes. Какой именно шейп - проверяется через свойство Type - тебя особенно должны заинтересовать wdInlineShapeLinkedPicture и wdInlineShapePicture ... Для добавления изображения в документ можно воспользоваться методом AddPicture из того же InlineShapes...

@znseday · 09.08.2013, 13:15 **[ТС]**

Метод AddPicture не очень подходит, т.к. добавляет картинку из файла. Я бы хотел вставлять картинки напрямую (рисую их на TBitmap в своей программе), чтобы не создавать временные файлы.
Не могу найти как задать тип "Обтекание текстом". Не подскажете?

Добавлено через 13 минут

C++
1
2
3
    InlineShapePtr isp;
isp = WordDocument->InlineShapes->Item(1);
isp->Range->ShapeRange->WrapFormat->Type = WdWrapType::wdWrapTopBottom;

не работает...

@volvo · 09.08.2013, 13:38

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

Я бы хотел вставлять картинки напрямую

Если напрямую - то другого способа, кроме Paste, я не встречал. Да и не искал, если честно. Никогда не было особой проблемы: написать функцию, которая сохранит картинку в файл, вставит ее в документ Office, и тут же удалит этот файл.

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

как задать тип "Обтекание текстом"

Почему wdWrapTopToBottom, а не wdWrapTight, который задает именно обтекание со всех сторон?

@znseday · 09.08.2013, 14:34 **[ТС]**

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

Никогда не было особой проблемы: написать функцию, которая сохранит картинку в файл, вставит ее в документ Office, и тут же удалит этот файл.

В принципе не проблема, но если исходных картинок много, штук 10 и все 8MPix, то нужно тестировать как это на производительности будет сказываться... Скорее всего Paste буду использовать, но как сложится.

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

Почему wdWrapTopToBottom, а не wdWrapTight, который задает именно обтекание со всех сторон?

Потому, что я хочу именно wdWrapTopToBottom, чтобы гарантировано текста не было слева или справа при дальнейших манипуляциях с рисунками, которые захочет пользователь.

Добавлено через 1 минуту
А вот так работает:

C++
1
2
3
4
    InlineShapePtr isp;
isp = WordDocument->InlineShapes->Item(1);
isp->Select();
WordDocument->ActiveWindow->Selection->ShapeRange->WrapFormat->Type = WdWrapType::wdWrapTopBottom;

Новые блоги и статьи Все статьи Все блоги /
http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .	Первый деплой lagorue 16.01.2026 Не спеша развернул своё 1ое приложение в kubernetes. А дальше мне интересно создать 1фронтэнд приложения и 2 бэкэнд приложения развернуть 2 деплоя в кубере получится 2 сервиса и что-бы они. . .	Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь постоянного тока с R, L, C, k(ключ), U, E, J. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа, решает её и находит: токи, напряжения и их 1 и 2 производные при t = 0;. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .

cpp_developer 20124 / 5691 / 417 Регистрация: 09.04.2010 Сообщений: 22,546 Записей в блоге: 1
	09.08.2013, 01:08
	Работа с OLE-сервером Word 0

@znseday 18 / 18 / 7 Регистрация: 20.03.2012 Сообщений: 585
	09.08.2013, 02:19 [ТС]
	Спасибо, но с этим сайтом я знаком, и он не имеет отношения к моему вопросу. Кстати, решил записать макрос во время работы с изображением в Word, так во время записи макроса половина свойств недоступна и мой Word (2010) вылетает с критической ошибкой(... Анализ свойства WordDocument->Shapes->Count показал, что изображения, которые добавляются как файлы и есть Shapes (как разновидность что ли), а те, которые вставляются из буфера обмена вообще никак не фигурируют, и как к ним получить доступ - вопрос открытый. Хотя, возможно, что никак. 0

@volvo Супер-модератор 33371 / 21497 / 8234 Регистрация: 22.10.2011 Сообщений: 36,893 Записей в блоге: 12
	09.08.2013, 02:31
	Все изображения - это элементы коллекции InlineShapes. Какой именно шейп - проверяется через свойство Type - тебя особенно должны заинтересовать wdInlineShapeLinkedPicture и wdInlineShapePicture ... Для добавления изображения в документ можно воспользоваться методом AddPicture из того же InlineShapes... 1