Как сделать парсинг картинки из таблицы Word

@ddnb · Регистрация: 19.05.2011

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

Здравствуйте!
Делаю стандартную анкету (для последующей автоматической обработки) и все реализовал с помощью форм word.
Осталась одна проблема не могу достать картинку(фото) из документа.
Задача сделать удобное поле вставки картинки для возможности последующего ее получения.

1)Нашел объект Microsoft forms 2.0 image с нее все удобно получается но в нее никак не загнать изображение кроме как макросом.

2)Таблица на 1 ячейку с четко заданной высотой и шириной вообшем неплохо но в результате при выполнении макроса

Visual Basic

1 2	ActiveDocument.Tables(1).Cell(1, 1).Range.Select Selection.CopyAsPicture

получаю картинку вместо только необходимой картинки много дополнительного белого фона.

Как сделать парсинг картинки из таблицы Word

Буду очень рад помощи в возможном направлении куда идти как решать эту задачу.

@Busine2012 · 13.04.2012, 14:04

Visual Basic

1
2
3

Sub Procedure1()
    ActiveDocument.Tables(1).Cell(1, 1).Range.InlineShapes(1).Range.Copy
End Sub

@ddnb · 13.04.2012, 18:59 **[ТС]**

А как в файл картинки?
заранее спасибо.

Добавлено через 3 часа 28 минут
Нашел что это работа с api и через буфер обмена но не могу доделать
был бы очень рад помощи в этом.
Заранее спасибо.

Добавлено через 1 час 0 минут
Я делаю так как мне написали
ActiveDocument.Tables(1).Cell(1, 1).Range.InlineShapes(1).Range.Copy

SavePicture "ClipBoard.GetData", "D:\MyIcon2.bmp"

но ClipBoard не в стандартном vba какую функцию мне нужно написать из api что бы таким образом сохранить. буду очень рад помощи.

@Казанский · 13.04.2012, 22:59

Как вариант - сохранить документ в tmp как html и взять картинку из папки .files.

@ddnb · 13.04.2012, 23:41 **[ТС]**

Спасибо, но не вариант, изображений может быть несколько необходимо знать какое это.
А в html они называются случным образом.

@ddnb 0 / 0 / 0 Регистрация: 19.05.2011 Сообщений: 23
	13.04.2012, 18:59 [ТС]	3
	А как в файл картинки? заранее спасибо. Добавлено через 3 часа 28 минут Нашел что это работа с api и через буфер обмена но не могу доделать был бы очень рад помощи в этом. Заранее спасибо. Добавлено через 1 час 0 минут Я делаю так как мне написали ActiveDocument.Tables(1).Cell(1, 1).Range.InlineShapes(1).Range.Copy SavePicture "ClipBoard.GetData", "D:\MyIcon2.bmp" но ClipBoard не в стандартном vba какую функцию мне нужно написать из api что бы таким образом сохранить. буду очень рад помощи. 0

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	13.04.2012, 22:59	4
	Как вариант - сохранить документ в tmp как html и взять картинку из папки .files. 0

@ddnb 0 / 0 / 0 Регистрация: 19.05.2011 Сообщений: 23
	13.04.2012, 23:41 [ТС]	5
	Спасибо, но не вариант, изображений может быть несколько необходимо знать какое это. А в html они называются случным образом. 0

Опции темы