картинку в word / FoxPro, Visual FoxPro

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / картинку в word

4 сообщений из 4, страница 1 из 1

картинку в word

#40104943

DmitryKn

Гость

Добрый всем день!

Создаю из Fox документ в Word из шаблона dot. Есть необходимость вставить рисунок jpg в документ, а как это сделать - не знаю.
С Exel все получилось, а вот с Word проблема.

Прошу помощи.

...

Рейтинг:

0 / 0

16.10.2021, 15:10

| Ответить | Цитировать | Написать

картинку в word

#40104964

DmitryKn

Гость

Как ни бьюсь, картинка вставляется в начало документа. Как ей задать место?

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.

loWord = CREATEOBJECT( 'WORD.APPLICATION')
loDoc = m.loWord.Documents.Add(lcSample)
...

loRange = loDoc.BookMarks('p8_stamp').Range && закладка в документе ворд
.Selection.InlineShapes.AddPicture(lcPicDir) && вставляет в начало документа
*если так:
*loRange.InsertAfter(loWord.Selection.InlineShapes.AddPicture(lcPicDir)) - то ругается и все равно в начало документа.

Как ее приручить?

...

Рейтинг:

0 / 0

16.10.2021, 21:25

| Ответить | Цитировать | Написать

картинку в word

#40104967

DmitryKn

Гость

Кажется победил, чуть голову не сломал

Код: sql

1.
2.
3.
4.

...
loDoc.BookMarks('p8_stamp').Select
.Selection.InlineShapes.AddPicture(lcPicDir)
...

...

Рейтинг:

0 / 0

16.10.2021, 21:50

| Ответить | Цитировать | Написать

картинку в word

#40105027

DmitryKn

Гость

Может кому-то пригодится:

Код: sql

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.

loWord = CREATEOBJECT( 'WORD.APPLICATION')
with loWord
   loDoc = m.loWord.Documents.Add(lcSample) && lcSample - шаблон документа ворд
   ...

   loDoc.BookMarks('p8_stamp').Select && Выделяем закладку в шаблоне, куда вставлять
   loPic = m.loWord.Selection.InlineShapes.AddPicture(lcPicDir)  && Вставляем картинку
   loShape = loPic.ConvertToShape  && конвертируем в плавающую 
   loShape.ZOrder(5) && задаем положение "за текстом", ZOrder(2) - перед текстом, можно использовать WrapFormat.Type  - обтекание текстом
   loDoc.saveas(m.lcDir + '\' + m.lcFile) && сохраняем
endwith

...

Рейтинг:

0 / 0

17.10.2021, 14:12

| Ответить | Цитировать | Написать

4 сообщений из 4, страница 1 из 1

Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / картинку в word

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

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

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (1): Анонимы (1)

Читали форум (1): Анонимы (1)

Пользователи онлайн (9): Анонимы (6), Yandex Bot, Bing Bot 1 мин., Google Bot 2 мин.

Start [/forum/topic.php?fid=41&tid=1581428]:	0ms
get settings:	0ms
get forum list:	6ms
check forum access:	0ms
check topic access:	0ms
track hit:	24ms
get topic data:	4ms
get forum data:	1ms
get page messages:	15ms
update_topic_read_status (1581428): 17.10.2021 14:12:34:	0ms
get tp. blocked users:	1ms
get online users:	30ms
check new:	1ms
others:	76ms

total:	158ms