Mastera помогите!!! MS Word as Delphi

← →
Dmitrij_K (2004-03-11 12:05) [0]

Как вырезать из документа word все рисунки и сохранить их в одельную папку ???
Как открывается word я знаю, но добраться до рисунков не могу.

← →
kaif © (2004-03-11 12:22) [1]

Если картинки в виде символов в строке и организованы как ссылка на внешний файл, то добраться до них можно примерно так:
ImageCount := WordDoc.Paragraphs.Item(i).Range.InlineShapes.Count; for j := 1 to ImageCount do //разбираем на картинки s := WordDoc.Paragraphs.Item(i).Range.InlineShapes.Item(j).LinkFormat.SourceFullName; Этот код я выдрал из своей программы. До встроенных картинок тоже можно добраться, но я не помню как. На диске с Office раньше шел хороший Help для тех, кто пишет на VB. Там полная структура классов описана

← →
Dmitrij_K (2004-03-11 12:30) [2]

Я нашол как до них добраться. Это делается через ActiveDocument.inlineShapes.Count
А вот сохранить как?

← →
kaif © (2004-03-11 12:32) [3]

Какие свойства есть у InlineShapes.Item(j) ?

← →
Dmitrij_K (2004-03-11 12:36) [4]

не имею ни какого понятия,
но если сначало вырезать рисунок, создать новый документ, вставить, и сохранить в HTML. Если делать так через Word то рисунок сохраниться как image001.*
А через delphi как сохранить в html???

Mastera помогите!!! MS Word as Delphi Найти похожие ветки