Главная страница
    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.036 c
14-1077768297
NOD
2004-02-26 07:04
2004.03.28
Уничтожитель!


1-1078853788
DelphiN!
2004-03-09 20:36
2004.03.28
CreateMappingFile


1-1078429477
KME
2004-03-04 22:44
2004.03.28
Explorer


3-1077782615
Max
2004-02-26 11:03
2004.03.28
Запрос на объединение


1-1078905860
Аноним
2004-03-10 11:04
2004.03.28
Threads





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский