Вставка в WORD картинки

@techdiv · Регистрация: 17.10.2007

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

Привет.
При формировании вордовских отчетов из VB я активно использую конструкции типа

Dim objWord As Word.Application
objWord.ActiveDocument.Bookmarks.Item('B ookmark').Range.text='Ля-Ля-Ля'

А можно ли как-то на нужную закладку поместить картинку? По подобию или еще как?

Счастливо.

@Armen Jzmejyan · 11.06.2008, 15:30

v word vot tak, a na konkretnuu zakladku ne proboval

Code
1
2
    objWord.ActiveDocument.Shapes.AddPicture FileName:= _
        'C:My Documentsphoto.bmp', LinkToFile:=False, SaveWithDocument:=True

@techdiv · 11.06.2008, 17:35 **[ТС]**

Может в конструкции:

objWord.ActiveDocument.Bookmarks.Item('B ookMark').Range.InsertFile 'c:1.jpg'

выставив ключи можно добиться корректной вставки рисунка?

@techdiv · 11.06.2008, 18:28 **[ТС]**

А как в предложении от Armen Jzmejyan поставить курсор в нужное место активного документа? Как спозиционировать курсор, например на закладке по имени?
Счастливо.

@Armen Jzmejyan · 12.06.2008, 08:54

kak ustanovit' kursor na nujniy bookmark ja ne znau, no kartinku posle togo kak sdelal :

Code
1
2
3
4
5
6
7
    objWord.ActiveDocument.Shapes.AddPicture FileName:= _
        'C:My Documentsphoto.bmp', LinkToFile:=False, SaveWithDocument:=True
nado sdelat' sleduushee:
 
    objWord.ActiveDocument.Shapes(1).Select
    objWord.Selection.ShapeRange.IncrementLeft 285#
    objWord.Selection.ShapeRange.IncrementTop 10#

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

@techdiv 0 / 0 / 0 Регистрация: 17.10.2007 Сообщений: 84

	Вставка в WORD картинки 11.06.2008, 14:36. Показов 2985. Ответов 4 Метки нет (Все метки) Привет. При формировании вордовских отчетов из VB я активно использую конструкции типа Dim objWord As Word.Application objWord.ActiveDocument.Bookmarks.Item('B ookmark').Range.text='Ля-Ля-Ля' А можно ли как-то на нужную закладку поместить картинку? По подобию или еще как? Счастливо. 0

@techdiv 0 / 0 / 0 Регистрация: 17.10.2007 Сообщений: 84
	11.06.2008, 17:35 [ТС]
	Может в конструкции: objWord.ActiveDocument.Bookmarks.Item('B ookMark').Range.InsertFile 'c:1.jpg' выставив ключи можно добиться корректной вставки рисунка? 0

@techdiv 0 / 0 / 0 Регистрация: 17.10.2007 Сообщений: 84
	11.06.2008, 18:28 [ТС]
	А как в предложении от Armen Jzmejyan поставить курсор в нужное место активного документа? Как спозиционировать курсор, например на закладке по имени? Счастливо. 0