Скачать: CL | DM;

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???

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c