Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];
Вниз
Кто с объектами Word-a работал? - II Найти похожие ветки
← →
kull (2002-11-11 11:26) [0]Ну ладно...
Тогда кто нибудь знает как из ворда, используя его объекты, сохранить рисунок в файл не пользуясь буфером обмена.
← →
holy (2002-11-11 12:13) [1]Через COM объекты...
← →
kull (2002-11-11 12:28) [2]Это понятно что через COM объекты, но как?
Откопал я тут в инете статейку, так в ней следующий пример:
Sub ExportAllShapes()
"-- Экспорт всех рисунков в виде графических файлов
Dim objShape As Shape
Dim strActiveDocName As String
Dim strNewDocName As String
If ActiveDocument.Shapes.Count <= 0 Then Exit Sub
strActiveDocName = ActiveDocument.Name
Documents.Add
strNewDocName = ActiveDocument.Name
"-- копируруем все рисунки в новый документ
For Each objShape In Documents(strActiveDocName).Shapes
objShape.Select
Selection.Copy
Documents(strNewDocName).Activate
Selection.PasteSpecial Link:=False, _
DataType:=wdPasteMetafilePicture, _
Placement:=wdFloatOverText, DisplayAsIcon:=False
Next
"-- сохраняем новый документ в формате HTML
ActiveDocument.SaveAs FileName:=strNewDocName & ".htm", _
FileFormat:=114, LockComments:=True, _
Password:="", AddToRecentFiles:=False, _
WritePassword:="", _
ReadOnlyRecommended:=False, _
EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, _
SaveFormsData:=False, SaveAsAOCELetter:=False
ActiveWindow.Close
Documents(strActiveDocName).Activate
"-- удаляем ненужный файл
Kill strNewDocName & ".htm"
End Sub
Конечно это легко можно перевести на Delphi, но в примере используется буфер обмена. Это не подходит.
Вот я и спрашиваю: можно ли как это сделать без использования буфера?
← →
kull (2002-11-11 14:25) [3]Ну что ж вы, мастера?
Или вы способны отвечать только на вопросы типа: как TButton програмно создать, либо как CoInitialize вызвать?
← →
sdram (2002-11-11 14:39) [4]Сделай это в ворде, а потом повтори в проге.
← →
kull (2002-11-11 15:07) [5]Что сделай?
В ворде можно рисунок из документа в файл сохранить?
← →
Ru (2002-11-11 15:11) [6]поковыряйся в хелпе по вёрд, я вроде такое видел, но вот картинки мне не нужны так что извини
← →
Smithson (2002-11-11 15:33) [7]Идешь в ворд
говоришь - запустить запись макроса
далее делаешь что хотел
останавливаешь запись макроса
идешь в меню макросы, открываешь свой макрос. Перед тобой запись на VBA того, что тебе надо. Ну а >> Конечно это легко можно перевести на Delphi...
Ну и переводи.
← →
kull (2002-11-11 17:30) [8]
> Smithson © (11.11.02 15:33)
С радостью бы это сделал!
Но подскажи мне ПОЖАЛУЙСТА, ГДЕ можно в ворде сохранить рисунок из документа в файл?
И уж тогда то я не поленюсь нажать на запись макроса....
:O
← →
kull (2002-11-12 15:26) [9]Народ!
Неужели никаких идей?
← →
Kudatsky (2002-11-12 16:10) [10]В какой-то книге по Delphi описывался формат Doc-файла. Не помню в какой, но она распространена по всему ru-net. Может, Пачеко.
Формат достаточно простой. Если в doc-файл вставлена картинка, то это вставлен полностью файл с картинкой. Может пойти по такому пути: открыть doc-файл, попытаться найти рисунок програмно и выгрузить его в файл ?
← →
kull (2002-11-12 16:33) [11]
> Kudatsky (12.11.02 16:10)
Спасибо большое!
Но, дело в том, что мне надо именно через COM объекты...
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.11.21;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.008 c
