![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Кто с объектами Word-a работал? - II
kull © (2002-11-11 11:26:00)Ну ладно...
Тогда кто нибудь знает как из ворда, используя его объекты, сохранить рисунок в файл не пользуясь буфером обмена.
kull (2002-11-12 16:33:00) [1]
> Kudatsky (12.11.02 16:10)
Спасибо большое!
Но, дело в том, что мне надо именно через COM объекты...
Kudatsky (2002-11-12 16:10:00) [2]В какой-то книге по Delphi описывался формат Doc-файла. Не помню в какой, но она распространена по всему ru-net. Может, Пачеко.
Формат достаточно простой. Если в doc-файл вставлена картинка, то это вставлен полностью файл с картинкой. Может пойти по такому пути: открыть doc-файл, попытаться найти рисунок програмно и выгрузить его в файл ?
kull (2002-11-12 15:26:00) [3]Народ!
Неужели никаких идей?
kull (2002-11-11 17:30:00) [4]
> Smithson © (11.11.02 15:33)
С радостью бы это сделал!
Но подскажи мне ПОЖАЛУЙСТА, ГДЕ можно в ворде сохранить рисунок из документа в файл?
И уж тогда то я не поленюсь нажать на запись макроса....
:O
Smithson (2002-11-11 15:33:00) [5]Идешь в ворд
говоришь - запустить запись макроса
далее делаешь что хотел
останавливаешь запись макроса
идешь в меню макросы, открываешь свой макрос. Перед тобой запись на VBA того, что тебе надо. Ну а >> Конечно это легко можно перевести на Delphi...
Ну и переводи.
Ru (2002-11-11 15:11:00) [6]поковыряйся в хелпе по вёрд, я вроде такое видел, но вот картинки мне не нужны так что извини
kull (2002-11-11 15:07:00) [7]Что сделай?
В ворде можно рисунок из документа в файл сохранить?
sdram (2002-11-11 14:39:00) [8]Сделай это в ворде, а потом повтори в проге.
kull (2002-11-11 14:25:00) [9]Ну что ж вы, мастера?
Или вы способны отвечать только на вопросы типа: как TButton програмно создать, либо как CoInitialize вызвать?
kull (2002-11-11 12:28:00) [10]Это понятно что через COM объекты, но как?
Откопал я тут в инете статейку, так в ней следующий пример:
Sub ExportAllShapes()
"-- Экспорт всех рисунков в виде графических файлов
Dim objShape As Shape
Dim strActiveDocName As String
Dim strNewDocName As String
If ActiveDocument.Shapes.Count
holy (2002-11-11 12:13:00) [11]Через COM объекты...