Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];

Вниз

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 вся ветка

Форум: "Основная";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.044 c
1-1078391606
@G
2004-03-04 12:13
2004.03.28
Bmp из DLL


1-1078393979
Builder
2004-03-04 12:52
2004.03.28
Печать Excel


7-1073350787
zumo
2004-01-06 03:59
2004.03.28
соединение и ..... прокси


1-1078599958
Pine
2004-03-06 22:05
2004.03.28
При переходе с D6 на D7 траблы с QReport


1-1078854607
hgd
2004-03-09 20:50
2004.03.28
Как организовать стек





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский